Home
last modified time | relevance | path

Searched refs:NB_BLOCKS_PANEL_LM (Results 1 – 4 of 4) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dzfac_lr.F117 INTEGER :: I, NB_BLOCKS_PANEL_LM, NB_BLOCKS_PANEL_LS, J, MID_RANK local
127 NB_BLOCKS_PANEL_LM = NB_BLR_LM-CURRENT_BLR_LM
135 DO IBIS = 1, (NB_BLOCKS_PANEL_LS*NB_BLOCKS_PANEL_LM)
137 I = (IBIS-1)/NB_BLOCKS_PANEL_LM+1
138 J = IBIS - (I-1)*NB_BLOCKS_PANEL_LM
H A Dcfac_lr.F117 INTEGER :: I, NB_BLOCKS_PANEL_LM, NB_BLOCKS_PANEL_LS, J, MID_RANK local
127 NB_BLOCKS_PANEL_LM = NB_BLR_LM-CURRENT_BLR_LM
135 DO IBIS = 1, (NB_BLOCKS_PANEL_LS*NB_BLOCKS_PANEL_LM)
137 I = (IBIS-1)/NB_BLOCKS_PANEL_LM+1
138 J = IBIS - (I-1)*NB_BLOCKS_PANEL_LM
H A Ddfac_lr.F117 INTEGER :: I, NB_BLOCKS_PANEL_LM, NB_BLOCKS_PANEL_LS, J, MID_RANK local
127 NB_BLOCKS_PANEL_LM = NB_BLR_LM-CURRENT_BLR_LM
135 DO IBIS = 1, (NB_BLOCKS_PANEL_LS*NB_BLOCKS_PANEL_LM)
137 I = (IBIS-1)/NB_BLOCKS_PANEL_LM+1
138 J = IBIS - (I-1)*NB_BLOCKS_PANEL_LM
H A Dsfac_lr.F117 INTEGER :: I, NB_BLOCKS_PANEL_LM, NB_BLOCKS_PANEL_LS, J, MID_RANK local
127 NB_BLOCKS_PANEL_LM = NB_BLR_LM-CURRENT_BLR_LM
135 DO IBIS = 1, (NB_BLOCKS_PANEL_LS*NB_BLOCKS_PANEL_LM)
137 I = (IBIS-1)/NB_BLOCKS_PANEL_LM+1
138 J = IBIS - (I-1)*NB_BLOCKS_PANEL_LM