/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cfac_process_blocfacto_LDLT.F | 115 INTEGER :: SEND_LR_INT, NELIM, NB_BLR_LM, NB_BLR_LS, local 481 NB_BLR_LS = size(BEGS_BLR_LS) - 2 482 NPARTSCB = NB_BLR_LS 489 NB_BLR_LS = NPARTSCB 492 call MAX_CLUSTER(BEGS_BLR_LS,NB_BLR_LS+1,MAXI_CLUSTER_LS) 550 ALLOCATE(BLR_LS(NB_BLR_LS)) 559 & BEGS_BLR_LS, NB_BLR_LS+1, DKEEP(8), KEEP(473), BLR_LS, 628 & BEGS_BLR_LS, NB_BLR_LS+1, BLR_LS, 0, 649 & NB_BLR_LS+1, BLR_LS, 874 & BEGS_BLR_LS, NB_BLR_LS+1, [all …]
|
H A D | dfac_process_blocfacto_LDLT.F | 115 INTEGER :: SEND_LR_INT, NELIM, NB_BLR_LM, NB_BLR_LS, local 481 NB_BLR_LS = size(BEGS_BLR_LS) - 2 482 NPARTSCB = NB_BLR_LS 489 NB_BLR_LS = NPARTSCB 492 call MAX_CLUSTER(BEGS_BLR_LS,NB_BLR_LS+1,MAXI_CLUSTER_LS) 550 ALLOCATE(BLR_LS(NB_BLR_LS)) 559 & BEGS_BLR_LS, NB_BLR_LS+1, DKEEP(8), KEEP(473), BLR_LS, 628 & BEGS_BLR_LS, NB_BLR_LS+1, BLR_LS, 0, 649 & NB_BLR_LS+1, BLR_LS, 874 & BEGS_BLR_LS, NB_BLR_LS+1, [all …]
|
H A D | sfac_process_blocfacto_LDLT.F | 115 INTEGER :: SEND_LR_INT, NELIM, NB_BLR_LM, NB_BLR_LS, local 481 NB_BLR_LS = size(BEGS_BLR_LS) - 2 482 NPARTSCB = NB_BLR_LS 489 NB_BLR_LS = NPARTSCB 492 call MAX_CLUSTER(BEGS_BLR_LS,NB_BLR_LS+1,MAXI_CLUSTER_LS) 550 ALLOCATE(BLR_LS(NB_BLR_LS)) 559 & BEGS_BLR_LS, NB_BLR_LS+1, DKEEP(8), KEEP(473), BLR_LS, 628 & BEGS_BLR_LS, NB_BLR_LS+1, BLR_LS, 0, 649 & NB_BLR_LS+1, BLR_LS, 874 & BEGS_BLR_LS, NB_BLR_LS+1, [all …]
|
H A D | zfac_process_blocfacto_LDLT.F | 115 INTEGER :: SEND_LR_INT, NELIM, NB_BLR_LM, NB_BLR_LS, local 481 NB_BLR_LS = size(BEGS_BLR_LS) - 2 482 NPARTSCB = NB_BLR_LS 489 NB_BLR_LS = NPARTSCB 492 call MAX_CLUSTER(BEGS_BLR_LS,NB_BLR_LS+1,MAXI_CLUSTER_LS) 550 ALLOCATE(BLR_LS(NB_BLR_LS)) 559 & BEGS_BLR_LS, NB_BLR_LS+1, DKEEP(8), KEEP(473), BLR_LS, 628 & BEGS_BLR_LS, NB_BLR_LS+1, BLR_LS, 0, 649 & NB_BLR_LS+1, BLR_LS, 874 & BEGS_BLR_LS, NB_BLR_LS+1, [all …]
|
H A D | dfac_process_blfac_slave.F | 97 INTEGER :: NB_BLR_LS, IPANEL, NB_BLR_COL, NPARTSASS_MASTER local 300 NB_BLR_LS = size(BEGS_BLR_LS)-2 308 & BLR_LS, NB_BLR_LS+1, 386 NB_BLR_LS = size(BEGS_BLR_LS) - 2 390 CALL MAX_CLUSTER(BEGS_BLR_LS,NB_BLR_LS+1,MAXI_CLUSTER_TMP) 406 & BEGS_BLR_LS, NB_BLR_LS+1,
|
H A D | zfac_process_blfac_slave.F | 97 INTEGER :: NB_BLR_LS, IPANEL, NB_BLR_COL, NPARTSASS_MASTER local 300 NB_BLR_LS = size(BEGS_BLR_LS)-2 308 & BLR_LS, NB_BLR_LS+1, 386 NB_BLR_LS = size(BEGS_BLR_LS) - 2 390 CALL MAX_CLUSTER(BEGS_BLR_LS,NB_BLR_LS+1,MAXI_CLUSTER_TMP) 406 & BEGS_BLR_LS, NB_BLR_LS+1,
|
H A D | sfac_process_blfac_slave.F | 97 INTEGER :: NB_BLR_LS, IPANEL, NB_BLR_COL, NPARTSASS_MASTER local 300 NB_BLR_LS = size(BEGS_BLR_LS)-2 308 & BLR_LS, NB_BLR_LS+1, 386 NB_BLR_LS = size(BEGS_BLR_LS) - 2 390 CALL MAX_CLUSTER(BEGS_BLR_LS,NB_BLR_LS+1,MAXI_CLUSTER_TMP) 406 & BEGS_BLR_LS, NB_BLR_LS+1,
|
H A D | cfac_process_blfac_slave.F | 97 INTEGER :: NB_BLR_LS, IPANEL, NB_BLR_COL, NPARTSASS_MASTER local 300 NB_BLR_LS = size(BEGS_BLR_LS)-2 308 & BLR_LS, NB_BLR_LS+1, 386 NB_BLR_LS = size(BEGS_BLR_LS) - 2 390 CALL MAX_CLUSTER(BEGS_BLR_LS,NB_BLR_LS+1,MAXI_CLUSTER_TMP) 406 & BEGS_BLR_LS, NB_BLR_LS+1,
|
H A D | zfac_lr.F | 95 & BEGS_BLR_LS, NB_BLR_LS, BLR_LS, ISHIFT_LS, argument 108 INTEGER, intent(in) :: NB_BLR_LM, NB_BLR_LS, local 114 & BLR_LS(NB_BLR_LS-CURRENT_BLR_LS) 128 NB_BLOCKS_PANEL_LS = NB_BLR_LS-CURRENT_BLR_LS
|
H A D | cfac_lr.F | 95 & BEGS_BLR_LS, NB_BLR_LS, BLR_LS, ISHIFT_LS, argument 108 INTEGER, intent(in) :: NB_BLR_LM, NB_BLR_LS, local 114 & BLR_LS(NB_BLR_LS-CURRENT_BLR_LS) 128 NB_BLOCKS_PANEL_LS = NB_BLR_LS-CURRENT_BLR_LS
|
H A D | dfac_lr.F | 95 & BEGS_BLR_LS, NB_BLR_LS, BLR_LS, ISHIFT_LS, argument 108 INTEGER, intent(in) :: NB_BLR_LM, NB_BLR_LS, local 114 & BLR_LS(NB_BLR_LS-CURRENT_BLR_LS) 128 NB_BLOCKS_PANEL_LS = NB_BLR_LS-CURRENT_BLR_LS
|
H A D | sfac_lr.F | 95 & BEGS_BLR_LS, NB_BLR_LS, BLR_LS, ISHIFT_LS, argument 108 INTEGER, intent(in) :: NB_BLR_LM, NB_BLR_LS, local 114 & BLR_LS(NB_BLR_LS-CURRENT_BLR_LS) 128 NB_BLOCKS_PANEL_LS = NB_BLR_LS-CURRENT_BLR_LS
|