Home
last modified time | relevance | path

Searched refs:n_extent (Results 1 – 25 of 77) sorted by relevance

1234

/dports/math/libpgmath/flang-d07daf3/test/f90_correct/src/
H A DmmulI1mxm.f9021 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 DmmulI2mxm.f9021 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 DmmulR4mxm.f9021 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 DmmulR8mxm.f9021 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 DmmulI4mxm.f9021 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 DmmulI8mxm.f9021 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 DmmulC16mxm.f9021 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 DmmulL1mxm.f9021 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 DmmulL8mxm.f9021 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 DmmulC8mxm.f9021 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 DmmulL4mxm.f9021 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 DmmulL2mxm.f9021 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 Dmmul_misc.f9021 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 DmmulC8mxm_t.f9020 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 DmmulC16mxm_t.f9020 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 DmmulR8mxm_t.f9020 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 DmmulR4mxm_t.f9020 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 Dmmul_log1contmxm.F9523 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 Dmmul_log2contmxm.F9523 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 Dmmul_log4contmxm.F9523 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 Dmmul_log8contmxm.F9523 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 Dmmul_int2contmxm.F9523 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 Dmmul_int4contmxm.F9523 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 Dmmul_int8contmxm.F9523 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 Dmmul_cplx16contmxm.F9523 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

1234