/dports/math/libpgmath/flang-d07daf3/test/f90_correct/src/ |
H A D | mmulC16mxv_t.f90 | 98 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 99 complex*16, dimension(1:e_idx-s_idx+1) :: arr 100 complex*16, dimension(e_idx) :: rslt 101 integer:: s_idx, e_idx
|
H A D | mmulC8mxv_t.f90 | 98 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 99 complex*8, dimension(1:e_idx-s_idx+1) :: arr 100 complex*8, dimension(e_idx) :: rslt 101 integer:: s_idx, e_idx
|
H A D | mmulR4mxv_t.f90 | 95 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 96 REAL*4, dimension(1:e_idx-s_idx+1) :: arr 97 REAL*4, dimension(e_idx) :: rslt 98 integer:: s_idx, e_idx
|
H A D | mmulR8mxv_t.f90 | 95 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 96 REAL*8, dimension(1:e_idx-s_idx+1) :: arr 97 REAL*8, dimension(e_idx) :: rslt 98 integer:: s_idx, e_idx
|
H A D | mmulC8mxm_t.f90 | 123 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 124 COMPLEX*8, dimension(1:e_idx-s_idx+1) :: arr 125 COMPLEX*8, dimension(e_idx) :: rslt 126 integer:: s_idx, e_idx
|
H A D | mmulC16mxm_t.f90 | 123 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 124 COMPLEX*16, dimension(1:e_idx-s_idx+1) :: arr 125 COMPLEX*16, dimension(e_idx) :: rslt 126 integer:: s_idx, e_idx
|
H A D | mmulR8mxm_t.f90 | 102 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 103 REAL*8, dimension(1:e_idx-s_idx+1) :: arr 104 REAL*8, dimension(e_idx) :: rslt 105 integer:: s_idx, e_idx
|
H A D | mmulR4mxm_t.f90 | 102 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 103 REAL*4, dimension(1:e_idx-s_idx+1) :: arr 104 REAL*4, dimension(e_idx) :: rslt 105 integer:: s_idx, e_idx
|
H A D | mmul_misc2.f90 | 48 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 49 REAL, dimension(1:e_idx-s_idx+1) :: arr 50 REAL, dimension(e_idx) :: rslt 51 integer:: s_idx, e_idx
|
H A D | mmulI8mxv.f90 | 232 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 233 integer*8, dimension(1:e_idx-s_idx+1) :: arr 234 integer*8, dimension(e_idx) :: rslt 235 integer:: s_idx, e_idx
|
H A D | mmulC16mxv.f90 | 328 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 329 complex*16, dimension(1:e_idx-s_idx+1) :: arr 330 complex*16, dimension(e_idx) :: rslt 331 integer:: s_idx, e_idx
|
H A D | mmulL1mxv.f90 | 274 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 275 logical*1, dimension(1:e_idx-s_idx+1) :: arr 276 logical*4, dimension(e_idx) :: rslt 277 integer:: s_idx, e_idx
|
H A D | mmulL8mxv.f90 | 275 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 276 logical*8, dimension(1:e_idx-s_idx+1) :: arr 277 logical*8, dimension(e_idx) :: rslt 278 integer:: s_idx, e_idx
|
H A D | mmulC8mxv.f90 | 327 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 328 complex*8, dimension(1:e_idx-s_idx+1) :: arr 329 complex*8, dimension(e_idx) :: rslt 330 integer:: s_idx, e_idx
|
H A D | mmulL2vxm.f90 | 275 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 276 logical*2, dimension(1:e_idx-s_idx+1) :: arr 277 logical*4, dimension(e_idx) :: rslt 278 integer:: s_idx, e_idx
|
H A D | mmulL8vxm.f90 | 278 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 279 logical*8, dimension(1:e_idx-s_idx+1) :: arr 280 logical*8, dimension(e_idx) :: rslt 281 integer:: s_idx, e_idx
|
H A D | mmulL1vxm.f90 | 276 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 277 logical*1, dimension(1:e_idx-s_idx+1) :: arr 278 logical*4, dimension(e_idx) :: rslt 279 integer:: s_idx, e_idx
|
H A D | mmulL2mxv.f90 | 275 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 276 logical*2, dimension(1:e_idx-s_idx+1) :: arr 277 logical*4, dimension(e_idx) :: rslt 278 integer:: s_idx, e_idx
|
H A D | mmulL4mxv.f90 | 274 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 275 logical*4, dimension(1:e_idx-s_idx+1) :: arr 276 logical*4, dimension(e_idx) :: rslt 277 integer:: s_idx, e_idx
|
H A D | mmulL4vxm.f90 | 278 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 279 logical*4, dimension(1:e_idx-s_idx+1) :: arr 280 logical*4, dimension(e_idx) :: rslt 281 integer:: s_idx, e_idx
|
H A D | mmulI1mxv.f90 | 314 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 315 integer*1, dimension(1:e_idx-s_idx+1) :: arr 316 integer*4, dimension(e_idx) :: rslt 317 integer:: s_idx, e_idx
|
H A D | mmulI2mxv.f90 | 315 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 316 integer*2, dimension(1:e_idx-s_idx+1) :: arr 317 integer*4, dimension(e_idx) :: rslt 318 integer:: s_idx, e_idx
|
H A D | mmulR8mxv.f90 | 315 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 316 REAL*8, dimension(1:e_idx-s_idx+1) :: arr 317 REAL*8, dimension(e_idx) :: rslt 318 integer:: s_idx, e_idx
|
H A D | mmulR4mxv.f90 | 315 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 316 REAL*4, dimension(1:e_idx-s_idx+1) :: arr 317 REAL*4, dimension(e_idx) :: rslt 318 integer:: s_idx, e_idx
|
H A D | mmulI4mxv.f90 | 315 subroutine assign_result(s_idx, e_idx , arr, rslt) subroutine 316 integer*4, dimension(1:e_idx-s_idx+1) :: arr 317 integer*4, dimension(e_idx) :: rslt 318 integer:: s_idx, e_idx
|