| /dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
| H A D | gather_cmplx8.F95 | 27 integer :: bufrows, bufcols local
29 complex*8 :: buffer(bufrows * bufcols)
49 do i = 1, bufrows
52 ndx = ndx + bufrows
56 do i = 1, bufrows
59 ndx = ndx + bufrows
65 do i = 1, bufrows
68 ndx = ndx + bufrows
72 do i = 1, bufrows
75 ndx = ndx + bufrows
|
| H A D | gather_cmplx16.F95 | 27 integer :: bufrows, bufcols local
29 complex*16 :: buffer(bufrows * bufcols)
49 do i = 1, bufrows
52 ndx = ndx + bufrows
56 do i = 1, bufrows
59 ndx = ndx + bufrows
65 do i = 1, bufrows
68 ndx = ndx + bufrows
72 do i = 1, bufrows
75 ndx = ndx + bufrows
|
| H A D | transpose_cmplx16.F95 | 25 integer :: bufrows, bufcols local
28 complex*16 :: buffer(bufrows * bufcols)
59 do j = 1, bufrows
63 ndx = ndx + bufrows
68 do j = 1, bufrows
72 ndx = ndx + bufrows
79 do j = 1, bufrows
83 ndx = ndx + bufrows
88 do j = 1, bufrows
92 ndx = ndx + bufrows
|
| H A D | transpose_cmplx8.F95 | 25 integer :: bufrows, bufcols local
28 complex*8 :: buffer(bufrows * bufcols)
59 do j = 1, bufrows
63 ndx = ndx + bufrows
68 do j = 1, bufrows
72 ndx = ndx + bufrows
79 do j = 1, bufrows
83 ndx = ndx + bufrows
88 do j = 1, bufrows
92 ndx = ndx + bufrows
|
| H A D | gather_real8.F95 | 26 integer :: bufrows, bufcols local
28 real*8 :: buffer(bufrows * bufcols)
46 do i = 1, bufrows
49 ndx = ndx + bufrows
|
| H A D | gather_real4.F95 | 26 integer :: bufrows, bufcols local
28 real*4 :: buffer(bufrows * bufcols)
46 do i = 1, bufrows
49 ndx = ndx + bufrows
|
| H A D | transpose_real4.F95 | 24 integer :: bufrows, bufcols local
27 real*4 :: buffer(bufrows * bufcols)
56 do j = 1, bufrows
60 ndx = ndx + bufrows
|
| H A D | transpose_real8.F95 | 24 integer :: bufrows, bufcols local
27 real*8 :: buffer(bufrows * bufcols)
56 do j = 1, bufrows
60 ndx = ndx + bufrows
|
| H A D | pgf90_mmul_real8.h | 46 integer, parameter :: bufrows = 512, bufcols = 8192
47 ! integer, parameter :: bufrows = 2, bufcols = 3
48 ! real*8, dimension( bufrows * bufcols ) :: buffera, bufferb
|
| H A D | pgf90_mmul_real4.h | 47 integer, parameter :: bufrows = 512, bufcols = 8192
48 ! integer, parameter :: bufrows = 2, bufcols = 3
49 ! real*4, dimension( bufrows * bufcols ) :: buffera, bufferb
|
| H A D | pgf90_mmul_cmplx8.h | 49 integer, parameter :: bufrows = 512, bufcols = 8192
50 ! integer, parameter :: bufrows = 2, bufcols = 3
51 ! complex*8, dimension( bufrows * bufcols ) :: buffera, bufferb
|
| H A D | pgf90_mmul_cmplx16.h | 49 integer, parameter :: bufrows = 512, bufcols = 8192
50 ! integer, parameter :: bufrows = 2, bufcols = 3
51 ! complex*16, dimension( bufrows * bufcols ) :: buffera, bufferb
|
| H A D | mnaxtb_real8.F95 | 95 allocate( buffera( bufrows * bufcols ) )
96 allocate( bufferb( bufrows * bufcols ) )
99 bufr = min( bufrows, colsa )
|
| H A D | mnaxtb_real4.F95 | 92 allocate( buffera( bufrows * bufcols ) )
93 allocate( bufferb( bufrows * bufcols ) )
99 bufr = min( bufrows, colsa )
|
| H A D | mnaxtb_cmplx8.F95 | 118 allocate( buffera( bufrows * bufcols ) )
119 allocate( bufferb( bufrows * bufcols ) )
125 bufr = min( bufrows, colsa )
|
| H A D | mnaxtb_cmplx16.F95 | 118 allocate( buffera( bufrows * bufcols ) )
119 allocate( bufferb( bufrows * bufcols ) )
125 bufr = min( bufrows, colsa )
|
| H A D | mtaxnb_real4.F95 | 81 allocate( buffera( bufrows * bufcols ) )
87 bufr = min( colsa, bufrows )
|
| H A D | mnaxnb_real4.F95 | 91 allocate( buffera( bufrows * bufcols ) )
97 bufr = min( bufrows, colsa )
|
| H A D | mtaxnb_real8.F95 | 84 allocate( buffera( bufrows * bufcols ) )
90 bufr = min( colsa, bufrows )
|
| H A D | mnaxnb_real8.F95 | 91 allocate( buffera( bufrows * bufcols ) )
97 bufr = min( bufrows, colsa )
|
| H A D | mtaxtb_real4.F95 | 90 allocate( bufferb( bufrows * bufcols ) )
93 bufr = min( bufrows, rowsb )
|
| H A D | mtaxtb_real8.F95 | 90 allocate( bufferb( bufrows * bufcols ) )
93 bufr = min( bufrows, rowsb )
|
| H A D | mtaxnb_cmplx16.F95 | 107 allocate( buffera( bufrows * bufcols ) )
113 bufr = min( colsa, bufrows )
|
| H A D | mtaxnb_cmplx8.F95 | 108 allocate( buffera( bufrows * bufcols ) )
114 bufr = min( colsa, bufrows )
|
| H A D | mnaxnb_cmplx16.F95 | 118 allocate( buffera( bufrows * bufcols ) )
124 bufr = min( bufrows, colsa )
|