Home
last modified time | relevance | path

Searched refs:BEGS_BLR_L (Results 1 – 12 of 12) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dsmumps_lr_data_m.F64 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 Ddmumps_lr_data_m.F64 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 Dzmumps_lr_data_m.F64 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 Dcmumps_lr_data_m.F64 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 Dzfac_lr.F193 & 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 Dcfac_lr.F193 & 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 Ddfac_lr.F193 & 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 Dsfac_lr.F193 & 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 Dcfac_process_blocfacto.F113 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 Ddfac_process_blocfacto.F113 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 Dsfac_process_blocfacto.F113 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 Dzfac_process_blocfacto.F113 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)