Searched defs:ftn_gather_cmplx8 (Results 1 – 1 of 1) sorted by relevance
| /dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
| H A D | gather_cmplx8.F95 | 22 subroutine ftn_gather_cmplx8( ta, a, lda, alpha, buffer, bufrows, bufcols ) subroutine
25 integer*8 lda
26 complex*8 :: a( lda,* ), alpha local
27 integer :: bufrows, bufcols
28 integer :: i, j, ndx, ndxsave
29 complex*8 :: buffer(bufrows * bufcols)
30 integer :: ta
|