Home
last modified time | relevance | path

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

/dports/math/mumps/mumps-5.1.2/src/
H A Ddfac_process_blfac_slave.F92 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 Dzfac_process_blfac_slave.F92 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 Dsfac_process_blfac_slave.F92 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 Dcfac_process_blfac_slave.F92 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 Dcfac_process_blocfacto.F110 & 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 Ddfac_process_blocfacto.F110 & 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 Dsfac_process_blocfacto.F110 & 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 Dzfac_process_blocfacto.F110 & 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 Dzfac_lr.F286 & 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 Dcfac_lr.F286 & 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 Ddfac_lr.F286 & 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 Dsfac_lr.F286 & 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