| /dports/math/mumps/mumps-5.1.2/src/ |
| H A D | zmumps_f77.F | 103 INTEGER(8) :: NNZ_i local
194 CALL MUMPS_GET_NNZ_INTERNAL(NNZ,NZ,NNZ_i)
195 IF ( IRNhere /= 0 ) mumps_par%IRN => IRN(1:NNZ_i)
196 IF ( JCNhere /= 0 ) mumps_par%JCN => JCN(1:NNZ_i)
197 IF ( Ahere /= 0 ) mumps_par%A => A(1:NNZ_i)
198 CALL MUMPS_GET_NNZ_INTERNAL(NNZ_loc,NZ_loc,NNZ_i)
199 IF ( IRN_lochere /= 0 ) mumps_par%IRN_loc => IRN_loc(1:NNZ_i)
200 IF ( JCN_lochere /= 0 ) mumps_par%JCN_loc => JCN_loc(1:NNZ_i)
201 IF ( A_lochere /= 0 ) mumps_par%A_loc => A_loc(1:NNZ_i)
|
| H A D | cmumps_f77.F | 103 INTEGER(8) :: NNZ_i local
194 CALL MUMPS_GET_NNZ_INTERNAL(NNZ,NZ,NNZ_i)
195 IF ( IRNhere /= 0 ) mumps_par%IRN => IRN(1:NNZ_i)
196 IF ( JCNhere /= 0 ) mumps_par%JCN => JCN(1:NNZ_i)
197 IF ( Ahere /= 0 ) mumps_par%A => A(1:NNZ_i)
198 CALL MUMPS_GET_NNZ_INTERNAL(NNZ_loc,NZ_loc,NNZ_i)
199 IF ( IRN_lochere /= 0 ) mumps_par%IRN_loc => IRN_loc(1:NNZ_i)
200 IF ( JCN_lochere /= 0 ) mumps_par%JCN_loc => JCN_loc(1:NNZ_i)
201 IF ( A_lochere /= 0 ) mumps_par%A_loc => A_loc(1:NNZ_i)
|
| H A D | dmumps_f77.F | 103 INTEGER(8) :: NNZ_i local
194 CALL MUMPS_GET_NNZ_INTERNAL(NNZ,NZ,NNZ_i)
195 IF ( IRNhere /= 0 ) mumps_par%IRN => IRN(1:NNZ_i)
196 IF ( JCNhere /= 0 ) mumps_par%JCN => JCN(1:NNZ_i)
197 IF ( Ahere /= 0 ) mumps_par%A => A(1:NNZ_i)
198 CALL MUMPS_GET_NNZ_INTERNAL(NNZ_loc,NZ_loc,NNZ_i)
199 IF ( IRN_lochere /= 0 ) mumps_par%IRN_loc => IRN_loc(1:NNZ_i)
200 IF ( JCN_lochere /= 0 ) mumps_par%JCN_loc => JCN_loc(1:NNZ_i)
201 IF ( A_lochere /= 0 ) mumps_par%A_loc => A_loc(1:NNZ_i)
|
| H A D | smumps_f77.F | 103 INTEGER(8) :: NNZ_i local
194 CALL MUMPS_GET_NNZ_INTERNAL(NNZ,NZ,NNZ_i)
195 IF ( IRNhere /= 0 ) mumps_par%IRN => IRN(1:NNZ_i)
196 IF ( JCNhere /= 0 ) mumps_par%JCN => JCN(1:NNZ_i)
197 IF ( Ahere /= 0 ) mumps_par%A => A(1:NNZ_i)
198 CALL MUMPS_GET_NNZ_INTERNAL(NNZ_loc,NZ_loc,NNZ_i)
199 IF ( IRN_lochere /= 0 ) mumps_par%IRN_loc => IRN_loc(1:NNZ_i)
200 IF ( JCN_lochere /= 0 ) mumps_par%JCN_loc => JCN_loc(1:NNZ_i)
201 IF ( A_lochere /= 0 ) mumps_par%A_loc => A_loc(1:NNZ_i)
|
| H A D | tools_common.F | 828 SUBROUTINE MUMPS_GET_NNZ_INTERNAL( NNZ, NZ, NNZ_i ) argument
831 INTEGER(8), INTENT(OUT) :: NNZ_i local
833 NNZ_i = NNZ
835 NNZ_i = int(NZ, 8)
|
| H A D | cana_driver.F | 3387 INTEGER(8) :: I8, NNZ_i local
3397 CALL MUMPS_GET_NNZ_INTERNAL(id%NNZ, id%NZ, NNZ_i)
3399 NNZ_i=id%KEEP8(28)
3414 WRITE(IUNIT,*) id%N, id%N, NNZ_i
3416 DO I8=1_8,NNZ_i
3442 CALL MUMPS_GET_NNZ_INTERNAL(id%NNZ_loc, id%NZ_loc, NNZ_i)
3444 NNZ_i=id%KEEP8(29)
3458 WRITE(IUNIT,*) id%N, id%N, NNZ_i
3460 DO I8=1_8,NNZ_i
3471 DO I8=1_8,NNZ_i
|
| H A D | dana_driver.F | 3387 INTEGER(8) :: I8, NNZ_i local
3397 CALL MUMPS_GET_NNZ_INTERNAL(id%NNZ, id%NZ, NNZ_i)
3399 NNZ_i=id%KEEP8(28)
3414 WRITE(IUNIT,*) id%N, id%N, NNZ_i
3416 DO I8=1_8,NNZ_i
3440 CALL MUMPS_GET_NNZ_INTERNAL(id%NNZ_loc, id%NZ_loc, NNZ_i)
3442 NNZ_i=id%KEEP8(29)
3456 WRITE(IUNIT,*) id%N, id%N, NNZ_i
3458 DO I8=1_8,NNZ_i
3469 DO I8=1_8,NNZ_i
|
| H A D | zana_driver.F | 3387 INTEGER(8) :: I8, NNZ_i local
3397 CALL MUMPS_GET_NNZ_INTERNAL(id%NNZ, id%NZ, NNZ_i)
3399 NNZ_i=id%KEEP8(28)
3414 WRITE(IUNIT,*) id%N, id%N, NNZ_i
3416 DO I8=1_8,NNZ_i
3442 CALL MUMPS_GET_NNZ_INTERNAL(id%NNZ_loc, id%NZ_loc, NNZ_i)
3444 NNZ_i=id%KEEP8(29)
3458 WRITE(IUNIT,*) id%N, id%N, NNZ_i
3460 DO I8=1_8,NNZ_i
3471 DO I8=1_8,NNZ_i
|
| H A D | sana_driver.F | 3387 INTEGER(8) :: I8, NNZ_i local
3397 CALL MUMPS_GET_NNZ_INTERNAL(id%NNZ, id%NZ, NNZ_i)
3399 NNZ_i=id%KEEP8(28)
3414 WRITE(IUNIT,*) id%N, id%N, NNZ_i
3416 DO I8=1_8,NNZ_i
3440 CALL MUMPS_GET_NNZ_INTERNAL(id%NNZ_loc, id%NZ_loc, NNZ_i)
3442 NNZ_i=id%KEEP8(29)
3456 WRITE(IUNIT,*) id%N, id%N, NNZ_i
3458 DO I8=1_8,NNZ_i
3469 DO I8=1_8,NNZ_i
|