Home
last modified time | relevance | path

Searched defs:assign_result (Results 1 – 25 of 88) sorted by relevance

1234

/dports/math/libpgmath/flang-d07daf3/test/f90_correct/src/
H A DmmulC16mxv_t.f9098 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 DmmulC8mxv_t.f9098 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 DmmulR4mxv_t.f9095 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 DmmulR8mxv_t.f9095 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 DmmulC8mxm_t.f90123 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 DmmulC16mxm_t.f90123 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 DmmulR8mxm_t.f90102 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 DmmulR4mxm_t.f90102 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 Dmmul_misc2.f9048 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 DmmulI8mxv.f90232 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 DmmulC16mxv.f90328 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 DmmulL1mxv.f90274 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 DmmulL8mxv.f90275 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 DmmulC8mxv.f90327 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 DmmulL2vxm.f90275 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 DmmulL8vxm.f90278 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 DmmulL1vxm.f90276 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 DmmulL2mxv.f90275 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 DmmulL4mxv.f90274 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 DmmulL4vxm.f90278 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 DmmulI1mxv.f90314 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 DmmulI2mxv.f90315 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 DmmulR8mxv.f90315 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 DmmulR4mxv.f90315 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 DmmulI4mxv.f90315 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

1234