/dports/math/mumps/mumps-5.1.2/src/ |
H A D | dfac_process_blfac_slave.F | 92 INTEGER NB_BLR_U, CURRENT_BLR_U local 139 & NB_BLR_U, 1, MPI_INTEGER, 142 ALLOCATE(BLR_U(max(NB_BLR_U,1))) 143 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2)) 146 & BLR_U, NB_BLR_U, KEEP(470), 309 & BLR_U, NB_BLR_U+1, 321 CALL DEALLOC_BLR_PANEL (BLR_U, NB_BLR_U, KEEP8, .FALSE.)
|
H A D | zfac_process_blfac_slave.F | 92 INTEGER NB_BLR_U, CURRENT_BLR_U local 139 & NB_BLR_U, 1, MPI_INTEGER, 142 ALLOCATE(BLR_U(max(NB_BLR_U,1))) 143 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2)) 146 & BLR_U, NB_BLR_U, KEEP(470), 309 & BLR_U, NB_BLR_U+1, 321 CALL DEALLOC_BLR_PANEL (BLR_U, NB_BLR_U, KEEP8, .FALSE.)
|
H A D | sfac_process_blfac_slave.F | 92 INTEGER NB_BLR_U, CURRENT_BLR_U local 139 & NB_BLR_U, 1, MPI_INTEGER, 142 ALLOCATE(BLR_U(max(NB_BLR_U,1))) 143 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2)) 146 & BLR_U, NB_BLR_U, KEEP(470), 309 & BLR_U, NB_BLR_U+1, 321 CALL DEALLOC_BLR_PANEL (BLR_U, NB_BLR_U, KEEP8, .FALSE.)
|
H A D | cfac_process_blfac_slave.F | 92 INTEGER NB_BLR_U, CURRENT_BLR_U local 139 & NB_BLR_U, 1, MPI_INTEGER, 142 ALLOCATE(BLR_U(max(NB_BLR_U,1))) 143 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2)) 146 & BLR_U, NB_BLR_U, KEEP(470), 309 & BLR_U, NB_BLR_U+1, 321 CALL DEALLOC_BLR_PANEL (BLR_U, NB_BLR_U, KEEP8, .FALSE.)
|
H A D | cfac_process_blocfacto.F | 110 & NB_BLR_L, NB_BLR_U local 225 & NB_BLR_U, 1, MPI_INTEGER, 227 ALLOCATE(BLR_U(max(NB_BLR_U,1))) 228 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2)) 231 & BLR_U(1), NB_BLR_U, KEEP(470), 395 call MAX_CLUSTER(BEGS_BLR_U,NB_BLR_U+1,MAXI_CLUSTER_U) 488 & BLR_U, NB_BLR_U+1, 564 CALL DEALLOC_BLR_PANEL( BLR_U, NB_BLR_U, KEEP8, .FALSE.) 603 & BEGS_BLR_U, NB_BLR_U+1, 1,
|
H A D | dfac_process_blocfacto.F | 110 & NB_BLR_L, NB_BLR_U local 225 & NB_BLR_U, 1, MPI_INTEGER, 227 ALLOCATE(BLR_U(max(NB_BLR_U,1))) 228 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2)) 231 & BLR_U(1), NB_BLR_U, KEEP(470), 395 call MAX_CLUSTER(BEGS_BLR_U,NB_BLR_U+1,MAXI_CLUSTER_U) 488 & BLR_U, NB_BLR_U+1, 564 CALL DEALLOC_BLR_PANEL( BLR_U, NB_BLR_U, KEEP8, .FALSE.) 603 & BEGS_BLR_U, NB_BLR_U+1, 1,
|
H A D | sfac_process_blocfacto.F | 110 & NB_BLR_L, NB_BLR_U local 225 & NB_BLR_U, 1, MPI_INTEGER, 227 ALLOCATE(BLR_U(max(NB_BLR_U,1))) 228 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2)) 231 & BLR_U(1), NB_BLR_U, KEEP(470), 395 call MAX_CLUSTER(BEGS_BLR_U,NB_BLR_U+1,MAXI_CLUSTER_U) 488 & BLR_U, NB_BLR_U+1, 564 CALL DEALLOC_BLR_PANEL( BLR_U, NB_BLR_U, KEEP8, .FALSE.) 603 & BEGS_BLR_U, NB_BLR_U+1, 1,
|
H A D | zfac_process_blocfacto.F | 110 & NB_BLR_L, NB_BLR_U local 225 & NB_BLR_U, 1, MPI_INTEGER, 227 ALLOCATE(BLR_U(max(NB_BLR_U,1))) 228 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2)) 231 & BLR_U(1), NB_BLR_U, KEEP(470), 395 call MAX_CLUSTER(BEGS_BLR_U,NB_BLR_U+1,MAXI_CLUSTER_U) 488 & BLR_U, NB_BLR_U+1, 564 CALL DEALLOC_BLR_PANEL( BLR_U, NB_BLR_U, KEEP8, .FALSE.) 603 & BEGS_BLR_U, NB_BLR_U+1, 1,
|
H A D | zfac_lr.F | 286 & NB_BLR_U, NELIM, LBANDSLAVE, ISHIFT, NIV, SYM, K470, argument 291 INTEGER, intent(in) :: NFRONT, NB_BLR_L, NB_BLR_U, local 298 TYPE(LRB_TYPE),TARGET,intent(in) :: BLR_U(NB_BLR_U-CURRENT_BLR) 319 NB_BLOCKS_PANEL_U = NB_BLR_U-CURRENT_BLR 565 & BEGS_BLR_U, NB_BLR_U, NPARTSASS_U, argument 576 & NB_BLR_L, NB_BLR_U, NPARTSASS_U local 618 DO J = NPARTSASS_U+1, NB_BLR_U
|
H A D | cfac_lr.F | 286 & NB_BLR_U, NELIM, LBANDSLAVE, ISHIFT, NIV, SYM, K470, argument 291 INTEGER, intent(in) :: NFRONT, NB_BLR_L, NB_BLR_U, local 298 TYPE(LRB_TYPE),TARGET,intent(in) :: BLR_U(NB_BLR_U-CURRENT_BLR) 319 NB_BLOCKS_PANEL_U = NB_BLR_U-CURRENT_BLR 565 & BEGS_BLR_U, NB_BLR_U, NPARTSASS_U, argument 576 & NB_BLR_L, NB_BLR_U, NPARTSASS_U local 618 DO J = NPARTSASS_U+1, NB_BLR_U
|
H A D | dfac_lr.F | 286 & NB_BLR_U, NELIM, LBANDSLAVE, ISHIFT, NIV, SYM, K470, argument 291 INTEGER, intent(in) :: NFRONT, NB_BLR_L, NB_BLR_U, local 298 TYPE(LRB_TYPE),TARGET,intent(in) :: BLR_U(NB_BLR_U-CURRENT_BLR) 319 NB_BLOCKS_PANEL_U = NB_BLR_U-CURRENT_BLR 565 & BEGS_BLR_U, NB_BLR_U, NPARTSASS_U, argument 576 & NB_BLR_L, NB_BLR_U, NPARTSASS_U local 618 DO J = NPARTSASS_U+1, NB_BLR_U
|
H A D | sfac_lr.F | 286 & NB_BLR_U, NELIM, LBANDSLAVE, ISHIFT, NIV, SYM, K470, argument 291 INTEGER, intent(in) :: NFRONT, NB_BLR_L, NB_BLR_U, local 298 TYPE(LRB_TYPE),TARGET,intent(in) :: BLR_U(NB_BLR_U-CURRENT_BLR) 319 NB_BLOCKS_PANEL_U = NB_BLR_U-CURRENT_BLR 565 & BEGS_BLR_U, NB_BLR_U, NPARTSASS_U, argument 576 & NB_BLR_L, NB_BLR_U, NPARTSASS_U local 618 DO J = NPARTSASS_U+1, NB_BLR_U
|