/dports/math/mumps/mumps-5.1.2/src/ |
H A D | smumps_lr_data_m.F | 64 NULLIFY(BLR_ARRAY(I)%BEGS_BLR_L) 143 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 148 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 156 INFO(2)=size(BEGS_BLR_L) 164 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 169 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 174 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 200 BLR_ARRAY(IWHANDLER)%BEGS_BLR_L = BEGS_BLR_L 286 NULLIFY(BLR_ARRAY(IWHANDLER)%BEGS_BLR_L) 321 & ( IWHANDLER, BEGS_BLR_L ) [all …]
|
H A D | dmumps_lr_data_m.F | 64 NULLIFY(BLR_ARRAY(I)%BEGS_BLR_L) 143 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 148 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 156 INFO(2)=size(BEGS_BLR_L) 164 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 169 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 174 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 200 BLR_ARRAY(IWHANDLER)%BEGS_BLR_L = BEGS_BLR_L 286 NULLIFY(BLR_ARRAY(IWHANDLER)%BEGS_BLR_L) 321 & ( IWHANDLER, BEGS_BLR_L ) [all …]
|
H A D | zmumps_lr_data_m.F | 64 NULLIFY(BLR_ARRAY(I)%BEGS_BLR_L) 143 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 148 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 156 INFO(2)=size(BEGS_BLR_L) 164 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 169 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 174 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 200 BLR_ARRAY(IWHANDLER)%BEGS_BLR_L = BEGS_BLR_L 286 NULLIFY(BLR_ARRAY(IWHANDLER)%BEGS_BLR_L) 321 & ( IWHANDLER, BEGS_BLR_L ) [all …]
|
H A D | cmumps_lr_data_m.F | 64 NULLIFY(BLR_ARRAY(I)%BEGS_BLR_L) 143 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 148 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 156 INFO(2)=size(BEGS_BLR_L) 164 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 169 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 174 & BLR_ARRAY(IWHANDLER)%BEGS_BLR_L(size(BEGS_BLR_L)), 200 BLR_ARRAY(IWHANDLER)%BEGS_BLR_L = BEGS_BLR_L 286 NULLIFY(BLR_ARRAY(IWHANDLER)%BEGS_BLR_L) 321 & ( IWHANDLER, BEGS_BLR_L ) [all …]
|
H A D | zfac_lr.F | 193 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, BLR_L, NB_BLR_L, argument 205 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 242 & + int(NFRONT,8) * int((BEGS_BLR_L(CURRENT_BLR+I)-1),8) 255 & + int(NFRONT,8) * int((BEGS_BLR_L(CURRENT_BLR)-1),8) 266 & + int((BEGS_BLR_L(CURRENT_BLR)-1),8) 284 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, BLR_L, NB_BLR_L, argument 300 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 564 & BEGS_BLR_L, NB_BLR_L, argument 580 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 634 M = BEGS_BLR_L(I+1)-BEGS_BLR_L(I) [all …]
|
H A D | cfac_lr.F | 193 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, BLR_L, NB_BLR_L, argument 205 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 242 & + int(NFRONT,8) * int((BEGS_BLR_L(CURRENT_BLR+I)-1),8) 255 & + int(NFRONT,8) * int((BEGS_BLR_L(CURRENT_BLR)-1),8) 266 & + int((BEGS_BLR_L(CURRENT_BLR)-1),8) 284 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, BLR_L, NB_BLR_L, argument 300 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 564 & BEGS_BLR_L, NB_BLR_L, argument 580 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 634 M = BEGS_BLR_L(I+1)-BEGS_BLR_L(I) [all …]
|
H A D | dfac_lr.F | 193 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, BLR_L, NB_BLR_L, argument 205 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 242 & + int(NFRONT,8) * int((BEGS_BLR_L(CURRENT_BLR+I)-1),8) 255 & + int(NFRONT,8) * int((BEGS_BLR_L(CURRENT_BLR)-1),8) 266 & + int((BEGS_BLR_L(CURRENT_BLR)-1),8) 284 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, BLR_L, NB_BLR_L, argument 300 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 564 & BEGS_BLR_L, NB_BLR_L, argument 580 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 634 M = BEGS_BLR_L(I+1)-BEGS_BLR_L(I) [all …]
|
H A D | sfac_lr.F | 193 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, BLR_L, NB_BLR_L, argument 205 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 242 & + int(NFRONT,8) * int((BEGS_BLR_L(CURRENT_BLR+I)-1),8) 255 & + int(NFRONT,8) * int((BEGS_BLR_L(CURRENT_BLR)-1),8) 266 & + int((BEGS_BLR_L(CURRENT_BLR)-1),8) 284 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, BLR_L, NB_BLR_L, argument 300 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 564 & BEGS_BLR_L, NB_BLR_L, argument 580 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 634 M = BEGS_BLR_L(I+1)-BEGS_BLR_L(I) [all …]
|
H A D | cfac_process_blocfacto.F | 113 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 390 & NPARTSASS, BEGS_BLR_L) 391 CALL REGROUPING2(BEGS_BLR_L, NPARTSASS, 0, NPARTSCB, 394 call MAX_CLUSTER(BEGS_BLR_L,NB_BLR_L+1,MAXI_CLUSTER_L) 415 & BEGS_BLR_L, NB_BLR_L+1, DKEEP(8), KEEP(473), BLR_L, 486 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, 602 & BEGS_BLR_L, NB_BLR_L+1, 637 IF (associated(BEGS_BLR_L)) DEALLOCATE(BEGS_BLR_L)
|
H A D | dfac_process_blocfacto.F | 113 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 390 & NPARTSASS, BEGS_BLR_L) 391 CALL REGROUPING2(BEGS_BLR_L, NPARTSASS, 0, NPARTSCB, 394 call MAX_CLUSTER(BEGS_BLR_L,NB_BLR_L+1,MAXI_CLUSTER_L) 415 & BEGS_BLR_L, NB_BLR_L+1, DKEEP(8), KEEP(473), BLR_L, 486 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, 602 & BEGS_BLR_L, NB_BLR_L+1, 637 IF (associated(BEGS_BLR_L)) DEALLOCATE(BEGS_BLR_L)
|
H A D | sfac_process_blocfacto.F | 113 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 390 & NPARTSASS, BEGS_BLR_L) 391 CALL REGROUPING2(BEGS_BLR_L, NPARTSASS, 0, NPARTSCB, 394 call MAX_CLUSTER(BEGS_BLR_L,NB_BLR_L+1,MAXI_CLUSTER_L) 415 & BEGS_BLR_L, NB_BLR_L+1, DKEEP(8), KEEP(473), BLR_L, 486 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, 602 & BEGS_BLR_L, NB_BLR_L+1, 637 IF (associated(BEGS_BLR_L)) DEALLOCATE(BEGS_BLR_L)
|
H A D | zfac_process_blocfacto.F | 113 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local 390 & NPARTSASS, BEGS_BLR_L) 391 CALL REGROUPING2(BEGS_BLR_L, NPARTSASS, 0, NPARTSCB, 394 call MAX_CLUSTER(BEGS_BLR_L,NB_BLR_L+1,MAXI_CLUSTER_L) 415 & BEGS_BLR_L, NB_BLR_L+1, DKEEP(8), KEEP(473), BLR_L, 486 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR, 602 & BEGS_BLR_L, NB_BLR_L+1, 637 IF (associated(BEGS_BLR_L)) DEALLOCATE(BEGS_BLR_L)
|