| /dports/math/mumps/mumps-5.1.2/src/ |
| H A D | dsol_matvec.F | 144 INTEGER(8) :: NZ_loc8 local
145 INTEGER IRN_loc( NZ_loc8 ), JCN_loc( NZ_loc8 )
161 DO K8 = 1_8, NZ_loc8
171 DO K8 = 1_8, NZ_loc8
183 DO K8 = 1_8, NZ_loc8
326 INTEGER(8) :: NZ_loc8 local
327 INTEGER IRN_loc( NZ_loc8 ), JCN_loc( NZ_loc8 )
328 DOUBLE PRECISION A_loc( NZ_loc8 ), X( N )
344 DO K8 = 1_8, NZ_loc8
354 DO K8 = 1_8, NZ_loc8
[all …]
|
| H A D | ssol_matvec.F | 144 INTEGER(8) :: NZ_loc8 local
145 INTEGER IRN_loc( NZ_loc8 ), JCN_loc( NZ_loc8 )
161 DO K8 = 1_8, NZ_loc8
171 DO K8 = 1_8, NZ_loc8
183 DO K8 = 1_8, NZ_loc8
326 INTEGER(8) :: NZ_loc8 local
327 INTEGER IRN_loc( NZ_loc8 ), JCN_loc( NZ_loc8 )
328 REAL A_loc( NZ_loc8 ), X( N )
344 DO K8 = 1_8, NZ_loc8
354 DO K8 = 1_8, NZ_loc8
[all …]
|
| H A D | zsol_matvec.F | 144 INTEGER(8) :: NZ_loc8 local
145 INTEGER IRN_loc( NZ_loc8 ), JCN_loc( NZ_loc8 )
161 DO K8 = 1_8, NZ_loc8
171 DO K8 = 1_8, NZ_loc8
183 DO K8 = 1_8, NZ_loc8
326 INTEGER(8) :: NZ_loc8 local
327 INTEGER IRN_loc( NZ_loc8 ), JCN_loc( NZ_loc8 )
328 COMPLEX(kind=8) A_loc( NZ_loc8 ), X( N )
344 DO K8 = 1_8, NZ_loc8
354 DO K8 = 1_8, NZ_loc8
[all …]
|
| H A D | csol_matvec.F | 144 INTEGER(8) :: NZ_loc8 local
145 INTEGER IRN_loc( NZ_loc8 ), JCN_loc( NZ_loc8 )
161 DO K8 = 1_8, NZ_loc8
171 DO K8 = 1_8, NZ_loc8
183 DO K8 = 1_8, NZ_loc8
326 INTEGER(8) :: NZ_loc8 local
327 INTEGER IRN_loc( NZ_loc8 ), JCN_loc( NZ_loc8 )
328 COMPLEX A_loc( NZ_loc8 ), X( N )
344 DO K8 = 1_8, NZ_loc8
354 DO K8 = 1_8, NZ_loc8
[all …]
|
| H A D | dfac_distrib_distentry.F | 94 & N, NZ_loc8, id, argument
105 INTEGER(8) :: NZ_loc8 local
291 DO K8 = 1_8, NZ_loc8
|
| H A D | cfac_distrib_distentry.F | 94 & N, NZ_loc8, id, argument
105 INTEGER(8) :: NZ_loc8 local
291 DO K8 = 1_8, NZ_loc8
|
| H A D | sfac_distrib_distentry.F | 94 & N, NZ_loc8, id, argument
105 INTEGER(8) :: NZ_loc8 local
291 DO K8 = 1_8, NZ_loc8
|
| H A D | zfac_distrib_distentry.F | 94 & N, NZ_loc8, id, argument
105 INTEGER(8) :: NZ_loc8 local
291 DO K8 = 1_8, NZ_loc8
|
| H A D | cana_driver.F | 3015 INTEGER(8) :: NZ_loc8 local
3130 NZ_loc8=id%KEEP8(29)
3131 MATPTR( 1 ) = NZ_loc8 + 1_8
3140 NZ_loc8=id%KEEP8(29)
3141 CALL MPI_SEND( NZ_loc8, 1, MPI_INTEGER8, MASTER,
3222 NZ_loc8=id%KEEP8(29)
3224 DO I8=1_8, NZ_loc8, int(BLOCKSIZE,8)
3226 IF (NZ_loc8-I8+1_8.LT.int(BLOCKSIZE,8)) THEN
3227 SIZE_SENT = int(NZ_loc8-I8+1_8)
|
| H A D | dana_driver.F | 3015 INTEGER(8) :: NZ_loc8 local
3130 NZ_loc8=id%KEEP8(29)
3131 MATPTR( 1 ) = NZ_loc8 + 1_8
3140 NZ_loc8=id%KEEP8(29)
3141 CALL MPI_SEND( NZ_loc8, 1, MPI_INTEGER8, MASTER,
3222 NZ_loc8=id%KEEP8(29)
3224 DO I8=1_8, NZ_loc8, int(BLOCKSIZE,8)
3226 IF (NZ_loc8-I8+1_8.LT.int(BLOCKSIZE,8)) THEN
3227 SIZE_SENT = int(NZ_loc8-I8+1_8)
|
| H A D | zana_driver.F | 3015 INTEGER(8) :: NZ_loc8 local
3130 NZ_loc8=id%KEEP8(29)
3131 MATPTR( 1 ) = NZ_loc8 + 1_8
3140 NZ_loc8=id%KEEP8(29)
3141 CALL MPI_SEND( NZ_loc8, 1, MPI_INTEGER8, MASTER,
3222 NZ_loc8=id%KEEP8(29)
3224 DO I8=1_8, NZ_loc8, int(BLOCKSIZE,8)
3226 IF (NZ_loc8-I8+1_8.LT.int(BLOCKSIZE,8)) THEN
3227 SIZE_SENT = int(NZ_loc8-I8+1_8)
|
| H A D | sana_driver.F | 3015 INTEGER(8) :: NZ_loc8 local
3130 NZ_loc8=id%KEEP8(29)
3131 MATPTR( 1 ) = NZ_loc8 + 1_8
3140 NZ_loc8=id%KEEP8(29)
3141 CALL MPI_SEND( NZ_loc8, 1, MPI_INTEGER8, MASTER,
3222 NZ_loc8=id%KEEP8(29)
3224 DO I8=1_8, NZ_loc8, int(BLOCKSIZE,8)
3226 IF (NZ_loc8-I8+1_8.LT.int(BLOCKSIZE,8)) THEN
3227 SIZE_SENT = int(NZ_loc8-I8+1_8)
|