/dports/math/libpgmath/flang-d07daf3/test/f90_correct/src/ |
H A D | mmulI1mxm.f90 | 21 parameter(n_extent=6) 358 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 365 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 414 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 421 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 429 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 437 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 461 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & 506 arr12(1,2:n_extent:2,2:k_extent:2) = matmul(arr5(2:n_extent:2,2,1:m_extent-1), & 553 arr15(2:n_extent,:) = matmul(arr13(2:n_extent,:),arr14) [all …]
|
H A D | mmulI2mxm.f90 | 21 parameter(n_extent=6) 438 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 445 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 494 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 501 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 509 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 517 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 541 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & 586 arr12(1,2:n_extent:2,2:k_extent:2) = matmul(arr5(2:n_extent:2,2,1:m_extent-1), & 633 arr15(2:n_extent,:) = matmul(arr13(2:n_extent,:),arr14) [all …]
|
H A D | mmulR4mxm.f90 | 21 parameter(n_extent=6) 440 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 447 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 496 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 503 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 511 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 519 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 543 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & 588 arr12(1,2:n_extent:2,2:k_extent:2) = matmul(arr5(2:n_extent:2,2,1:m_extent-1), & 635 arr15(2:n_extent,:) = matmul(arr13(2:n_extent,:),arr14) [all …]
|
H A D | mmulR8mxm.f90 | 21 parameter(n_extent=6) 435 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 441 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 483 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 489 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 496 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 503 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 524 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & 563 arr12(1,2:n_extent:2,2:k_extent:2) = matmul(arr5(2:n_extent:2,2,1:m_extent-1), & 606 arr15(2:n_extent,:) = matmul(arr13(2:n_extent,:),arr14) [all …]
|
H A D | mmulI4mxm.f90 | 21 parameter(n_extent=6) 438 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 445 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 494 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 501 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 509 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 517 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 541 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & 586 arr12(1,2:n_extent:2,2:k_extent:2) = matmul(arr5(2:n_extent:2,2,1:m_extent-1), & 633 arr15(2:n_extent,:) = matmul(arr13(2:n_extent,:),arr14) [all …]
|
H A D | mmulI8mxm.f90 | 21 parameter(n_extent=6) 438 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 445 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 494 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 501 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 509 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 517 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 541 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & 586 arr12(1,2:n_extent:2,2:k_extent:2) = matmul(arr5(2:n_extent:2,2,1:m_extent-1), & 633 arr15(2:n_extent,:) = matmul(arr13(2:n_extent,:),arr14) [all …]
|
H A D | mmulC16mxm.f90 | 21 parameter(n_extent=6) 663 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 670 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 719 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 726 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 734 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 742 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 750 arr3(n_extent:1:-2,1:k_extent:2) = matmul(arr1(n_extent:1:-2,1:m_extent-1), & 758 arr3(1:n_extent-1:2,k_extent-1:1:-2) = matmul(arr1(1:n_extent-1:2,m_extent:2:-1), & 766 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & [all …]
|
H A D | mmulL1mxm.f90 | 21 parameter(n_extent=6) 333 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 340 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 389 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 396 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 404 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 412 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 420 arr3(n_extent:1:-2,1:k_extent:2) = matmul(arr1(n_extent:1:-2,1:m_extent-1), & 428 arr3(1:n_extent-1:2,k_extent-1:1:-2) = matmul(arr1(1:n_extent-1:2,m_extent:2:-1), & 436 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & [all …]
|
H A D | mmulL8mxm.f90 | 21 parameter(n_extent=6) 333 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 340 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 389 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 396 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 404 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 412 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 420 arr3(n_extent:1:-2,1:k_extent:2) = matmul(arr1(n_extent:1:-2,1:m_extent-1), & 428 arr3(1:n_extent-1:2,k_extent-1:1:-2) = matmul(arr1(1:n_extent-1:2,m_extent:2:-1), & 436 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & [all …]
|
H A D | mmulC8mxm.f90 | 21 parameter(n_extent=6) 663 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 670 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 719 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 726 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 734 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 742 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 750 arr3(n_extent:1:-2,1:k_extent:2) = matmul(arr1(n_extent:1:-2,1:m_extent-1), & 758 arr3(1:n_extent-1:2,k_extent-1:1:-2) = matmul(arr1(1:n_extent-1:2,m_extent:2:-1), & 766 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & [all …]
|
H A D | mmulL4mxm.f90 | 21 parameter(n_extent=6) 333 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 340 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 389 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 396 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 404 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 412 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 420 arr3(n_extent:1:-2,1:k_extent:2) = matmul(arr1(n_extent:1:-2,1:m_extent-1), & 428 arr3(1:n_extent-1:2,k_extent-1:1:-2) = matmul(arr1(1:n_extent-1:2,m_extent:2:-1), & 436 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & [all …]
|
H A D | mmulL2mxm.f90 | 21 parameter(n_extent=6) 333 arr3(2:n_extent,:) = matmul(arr1(2:n_extent,:),arr2) 340 arr3(1:n_extent-1,:) = matmul(arr1(1:n_extent-1,:),arr2) 389 arr3(1:n_extent:2,:) = matmul(arr1(1:n_extent:2,2:m_extent),arr2(1:m_extent-1,:)) 396 arr3(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 404 arr3(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1(1:n_extent-1:2,2:m_extent), & 412 arr3(2:n_extent:2,2:k_extent:2) = matmul(arr1(2:n_extent:2,1:m_extent-1), & 420 arr3(n_extent:1:-2,1:k_extent:2) = matmul(arr1(n_extent:1:-2,1:m_extent-1), & 428 arr3(1:n_extent-1:2,k_extent-1:1:-2) = matmul(arr1(1:n_extent-1:2,m_extent:2:-1), & 436 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1(n_extent:2:-2,m_extent-1:1:-1), & [all …]
|
H A D | mmul_misc.f90 | 21 parameter(n_extent=6) 247 nminus1 = n_extent - 1 272 arr3_ptr(2:n_extent,:) = matmul(arr1_ptr(two:n_extent,:),arr2_ptr) 320 arr3_ptr(1:n_extent:2,:) = matmul(arr1_ptr(1:n_extent:2,2:m_extent),arr2_ptr(1:m_extent-1,:)) 326 arr3_ptr(1:n_extent:2,1:k_extent:2) = matmul(arr1(1:n_extent:2,1:m_extent-1), & 333 arr3_ptr(1:n_extent-1:2,1:k_extent-1:2) = matmul(arr1_ptr(1:n_extent-1:2,2:m_extent), & 340 arr3_ptr(2:n_extent:2,2:k_extent:2) = matmul(arr1_ptr(2:n_extent:2,1:m_extent-1), & 347 arr3_ptr(n_extent:1:-2,1:k_extent:2) = matmul(arr1_ptr(n_extent:1:-2,1:m_extent-1), & 354 arr3_ptr(1:n_extent-1:2,k_extent-1:1:-2) = matmul(arr1_ptr(1:n_extent-1:2,m_extent:2:-1), & 361 arr3(n_extent:2:-2,k_extent:2:-2) = matmul(arr1_ptr(n_extent:2:-2,m_extent-1:1:-1), & [all …]
|
H A D | mmulC8mxm_t.f90 | 20 parameter(n_extent=6) 24 COMPLEX*8, dimension(n_extent,m_extent) :: arr1 25 COMPLEX*8, dimension(n_extent,k_extent) :: arr2 99 arr3 = matmul(transpose(arr1(2:n_extent,:)),arr2(2:n_extent,:)) 106 arr3 = matmul(transpose(arr1(1:n_extent-1,:)),arr2(1:n_extent-1,:))
|
H A D | mmulC16mxm_t.f90 | 20 parameter(n_extent=6) 24 COMPLEX*16, dimension(n_extent,m_extent) :: arr1 25 COMPLEX*16, dimension(n_extent,k_extent) :: arr2 99 arr3 = matmul(transpose(arr1(2:n_extent,:)),arr2(2:n_extent,:)) 106 arr3 = matmul(transpose(arr1(1:n_extent-1,:)),arr2(1:n_extent-1,:))
|
H A D | mmulR8mxm_t.f90 | 20 parameter(n_extent=6) 24 real*8, dimension(n_extent,m_extent) :: arr1 25 real*8, dimension(n_extent,k_extent) :: arr2 82 arr3 = matmul(transpose(arr1(2:n_extent,:)),arr2(2:n_extent,:)) 88 arr3 = matmul(transpose(arr1(1:n_extent-1,:)),arr2(1:n_extent-1,:))
|
H A D | mmulR4mxm_t.f90 | 20 parameter(n_extent=6) 24 real*4, dimension(n_extent,m_extent) :: arr1 25 real*4, dimension(n_extent,k_extent) :: arr2 82 arr3 = matmul(transpose(arr1(2:n_extent,:)),arr2(2:n_extent,:)) 88 arr3 = matmul(transpose(arr1(1:n_extent-1,:)),arr2(1:n_extent-1,:))
|
/dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
H A D | mmul_log1contmxm.F95 | 23 LOGICAL*1, dimension(m_extent,n_extent) :: src2 24 LOGICAL*1, dimension(k_extent,n_extent) :: dest 26 DESC_INT n_extent 33 do n=1,n_extent 38 do n=1,n_extent
|
H A D | mmul_log2contmxm.F95 | 23 LOGICAL*2, dimension(m_extent,n_extent) :: src2 24 LOGICAL*2, dimension(k_extent,n_extent) :: dest 26 DESC_INT n_extent 33 do n=1,n_extent 38 do n=1,n_extent
|
H A D | mmul_log4contmxm.F95 | 23 LOGICAL*4, dimension(m_extent,n_extent) :: src2 24 LOGICAL*4, dimension(k_extent,n_extent) :: dest 26 DESC_INT n_extent 33 do n=1,n_extent 38 do n=1,n_extent
|
H A D | mmul_log8contmxm.F95 | 23 LOGICAL*8, dimension(m_extent,n_extent) :: src2 24 LOGICAL*8, dimension(k_extent,n_extent) :: dest 26 DESC_INT n_extent 33 do n=1,n_extent 38 do n=1,n_extent
|
H A D | mmul_int2contmxm.F95 | 23 INTEGER*2, dimension(m_extent,n_extent) :: src2 24 INTEGER*2, dimension(k_extent,n_extent) :: dest 26 DESC_INT n_extent 33 do n=1,n_extent 38 do n=1,n_extent
|
H A D | mmul_int4contmxm.F95 | 23 INTEGER*4, dimension(m_extent,n_extent) :: src2 24 INTEGER*4, dimension(k_extent,n_extent) :: dest 26 DESC_INT n_extent 33 do n=1,n_extent 38 do n=1,n_extent
|
H A D | mmul_int8contmxm.F95 | 23 INTEGER*8, dimension(m_extent,n_extent) :: src2 24 INTEGER*8, dimension(k_extent,n_extent) :: dest 26 DESC_INT n_extent 33 do n=1,n_extent 38 do n=1,n_extent
|
H A D | mmul_cplx16contmxm.F95 | 23 COMPLEX*16, dimension(m_extent,n_extent) :: src2 24 COMPLEX*16, dimension(k_extent,n_extent) :: dest 26 DESC_INT n_extent 33 do n=1,n_extent 38 do n=1,n_extent
|