Home
last modified time | relevance | path

Searched refs:IEND_BLR (Results 1 – 24 of 24) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dzfac_front_LU_type2.F199 IEND_BLR = 0
264 DO WHILE (IEND_BLR < NASS )
268 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
337 LAST_COL = IEND_BLR
357 NELIM = IEND_BLR - NPIV
411 LAST_COL = IEND_BLR
434 NELIM = IEND_BLR - NPIV
474 NELIM = IEND_BLR - NPIV
506 IF (IEND_BLR .LT. NASS) THEN
514 NELIM = IEND_BLR - NPIV
[all …]
H A Dcfac_front_LU_type2.F199 IEND_BLR = 0
264 DO WHILE (IEND_BLR < NASS )
268 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
337 LAST_COL = IEND_BLR
357 NELIM = IEND_BLR - NPIV
411 LAST_COL = IEND_BLR
434 NELIM = IEND_BLR - NPIV
474 NELIM = IEND_BLR - NPIV
506 IF (IEND_BLR .LT. NASS) THEN
514 NELIM = IEND_BLR - NPIV
[all …]
H A Ddfac_front_LU_type2.F199 IEND_BLR = 0
264 DO WHILE (IEND_BLR < NASS )
268 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
337 LAST_COL = IEND_BLR
357 NELIM = IEND_BLR - NPIV
411 LAST_COL = IEND_BLR
434 NELIM = IEND_BLR - NPIV
474 NELIM = IEND_BLR - NPIV
506 IF (IEND_BLR .LT. NASS) THEN
514 NELIM = IEND_BLR - NPIV
[all …]
H A Dsfac_front_LU_type2.F199 IEND_BLR = 0
264 DO WHILE (IEND_BLR < NASS )
268 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
337 LAST_COL = IEND_BLR
357 NELIM = IEND_BLR - NPIV
411 LAST_COL = IEND_BLR
434 NELIM = IEND_BLR - NPIV
474 NELIM = IEND_BLR - NPIV
506 IF (IEND_BLR .LT. NASS) THEN
514 NELIM = IEND_BLR - NPIV
[all …]
H A Dcfac_front_LU_type1.F52 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local
150 IEND_BLR = 0
212 DO WHILE (IEND_BLR < NASS )
216 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
239 DO WHILE (IEND_BLOCK < IEND_BLR )
255 & PIVOT_OPTION, LR_ACTIVATED, IEND_BLR,
278 LAST_COL = IEND_BLR
314 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
323 LAST_COL = IEND_BLR
350 IF (IEND_BLR.LT.LAST_ROW) THEN
[all …]
H A Ddfac_front_LU_type1.F52 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local
150 IEND_BLR = 0
212 DO WHILE (IEND_BLR < NASS )
216 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
239 DO WHILE (IEND_BLOCK < IEND_BLR )
255 & PIVOT_OPTION, LR_ACTIVATED, IEND_BLR,
278 LAST_COL = IEND_BLR
314 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
323 LAST_COL = IEND_BLR
350 IF (IEND_BLR.LT.LAST_ROW) THEN
[all …]
H A Dsfac_front_LU_type1.F52 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local
150 IEND_BLR = 0
212 DO WHILE (IEND_BLR < NASS )
216 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
239 DO WHILE (IEND_BLOCK < IEND_BLR )
255 & PIVOT_OPTION, LR_ACTIVATED, IEND_BLR,
278 LAST_COL = IEND_BLR
314 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
323 LAST_COL = IEND_BLR
350 IF (IEND_BLR.LT.LAST_ROW) THEN
[all …]
H A Dzfac_front_LU_type1.F52 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local
150 IEND_BLR = 0
212 DO WHILE (IEND_BLR < NASS )
216 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
239 DO WHILE (IEND_BLOCK < IEND_BLR )
255 & PIVOT_OPTION, LR_ACTIVATED, IEND_BLR,
278 LAST_COL = IEND_BLR
314 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
323 LAST_COL = IEND_BLR
350 IF (IEND_BLR.LT.LAST_ROW) THEN
[all …]
H A Dcfac_front_LDLT_type1.F86 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local
150 IEND_BLR = 0
212 DO WHILE (IEND_BLR < NASS )
216 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
218 IEND_BLR = min(BEGS_BLR(CURRENT_BLR+1)-1, NASS)
221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1
239 DO WHILE (IEND_BLOCK < IEND_BLR )
254 & PIVOT_OPTION, IEND_BLR, Inextpiv)
287 & PIVOT_OPTION, IEND_BLR
327 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
[all …]
H A Ddfac_front_LDLT_type1.F86 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local
150 IEND_BLR = 0
212 DO WHILE (IEND_BLR < NASS )
216 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
218 IEND_BLR = min(BEGS_BLR(CURRENT_BLR+1)-1, NASS)
221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1
239 DO WHILE (IEND_BLOCK < IEND_BLR )
254 & PIVOT_OPTION, IEND_BLR, Inextpiv)
287 & PIVOT_OPTION, IEND_BLR
327 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
[all …]
H A Dsfac_front_LDLT_type1.F86 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local
150 IEND_BLR = 0
212 DO WHILE (IEND_BLR < NASS )
216 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
218 IEND_BLR = min(BEGS_BLR(CURRENT_BLR+1)-1, NASS)
221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1
239 DO WHILE (IEND_BLOCK < IEND_BLR )
254 & PIVOT_OPTION, IEND_BLR, Inextpiv)
287 & PIVOT_OPTION, IEND_BLR
327 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
[all …]
H A Dzfac_front_LDLT_type1.F86 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local
150 IEND_BLR = 0
212 DO WHILE (IEND_BLR < NASS )
216 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
218 IEND_BLR = min(BEGS_BLR(CURRENT_BLR+1)-1, NASS)
221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1
239 DO WHILE (IEND_BLOCK < IEND_BLR )
254 & PIVOT_OPTION, IEND_BLR, Inextpiv)
287 & PIVOT_OPTION, IEND_BLR
327 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
[all …]
H A Dsfac_front_LDLT_type2.F206 IEND_BLR = 0
285 DO WHILE (IEND_BLR < NASS )
289 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
312 DO WHILE (IEND_BLOCK < IEND_BLR )
336 & Inextpiv, IEND_BLR)
366 & PIVOT_OPTION, IEND_BLR)
405 NELIM = IEND_BLR-NPIV
448 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
474 IF (IEND_BLR.NE.IEND_BLOCK) THEN
476 & IEND_BLR, IEND_BLOCK
[all …]
H A Dzfac_front_LDLT_type2.F206 IEND_BLR = 0
285 DO WHILE (IEND_BLR < NASS )
289 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
312 DO WHILE (IEND_BLOCK < IEND_BLR )
336 & Inextpiv, IEND_BLR)
366 & PIVOT_OPTION, IEND_BLR)
405 NELIM = IEND_BLR-NPIV
448 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
474 IF (IEND_BLR.NE.IEND_BLOCK) THEN
476 & IEND_BLR, IEND_BLOCK
[all …]
H A Ddfac_front_LDLT_type2.F206 IEND_BLR = 0
285 DO WHILE (IEND_BLR < NASS )
289 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
312 DO WHILE (IEND_BLOCK < IEND_BLR )
336 & Inextpiv, IEND_BLR)
366 & PIVOT_OPTION, IEND_BLR)
405 NELIM = IEND_BLR-NPIV
448 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
474 IF (IEND_BLR.NE.IEND_BLOCK) THEN
476 & IEND_BLR, IEND_BLOCK
[all …]
H A Dcfac_front_LDLT_type2.F206 IEND_BLR = 0
285 DO WHILE (IEND_BLR < NASS )
289 IEND_BLR = min(IEND_BLR + NBLR_ORIG, NASS)
312 DO WHILE (IEND_BLOCK < IEND_BLR )
336 & Inextpiv, IEND_BLR)
366 & PIVOT_OPTION, IEND_BLR)
405 NELIM = IEND_BLR-NPIV
448 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN
474 IF (IEND_BLR.NE.IEND_BLOCK) THEN
476 & IEND_BLR, IEND_BLOCK
[all …]
H A Dzfac_front_type2_aux.F27 & Inextpiv, IEND_BLR) argument
38 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
168 & .OR. (K206 .GT.1 .AND. IEND_BLOCK.EQ.IEND_BLR) ) THEN
462 & K219, PIVOT_OPTION, IEND_BLR) argument
471 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
515 NCB1 = IEND_BLR - IEND_BLOCK
H A Dcfac_front_type2_aux.F27 & Inextpiv, IEND_BLR) argument
38 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
168 & .OR. (K206 .GT.1 .AND. IEND_BLOCK.EQ.IEND_BLR) ) THEN
462 & K219, PIVOT_OPTION, IEND_BLR) argument
471 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
515 NCB1 = IEND_BLR - IEND_BLOCK
H A Ddfac_front_type2_aux.F27 & Inextpiv, IEND_BLR) argument
38 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
169 & .OR. (K206 .GT.1 .AND. IEND_BLOCK.EQ.IEND_BLR) ) THEN
470 & K219, PIVOT_OPTION, IEND_BLR) argument
479 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
523 NCB1 = IEND_BLR - IEND_BLOCK
H A Dsfac_front_type2_aux.F27 & Inextpiv, IEND_BLR) argument
38 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
169 & .OR. (K206 .GT.1 .AND. IEND_BLOCK.EQ.IEND_BLR) ) THEN
470 & K219, PIVOT_OPTION, IEND_BLR) argument
479 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
523 NCB1 = IEND_BLR - IEND_BLOCK
H A Dcfac_front_aux.F676 & PIVOT_OPTION, LR_ACTIVATED, IEND_BLR, Inextpiv, argument
701 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
813 J = IEND_BLR - NPIV
1008 & PIVOT_OPTION, IEND_BLR, Inextpiv) argument
1015 INTEGER, intent(in) :: PIVOT_OPTION,IEND_BLR local
1173 LIM = IEND_BLR
1259 LIM = IEND_BLR
1376 & KEEP253, PIVOT_OPTION, IEND_BLR argument
1385 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
1457 LIM = IEND_BLR
[all …]
H A Dsfac_front_aux.F676 & PIVOT_OPTION, LR_ACTIVATED, IEND_BLR, Inextpiv, argument
701 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
813 J = IEND_BLR - NPIV
1008 & PIVOT_OPTION, IEND_BLR, Inextpiv) argument
1015 INTEGER, intent(in) :: PIVOT_OPTION,IEND_BLR local
1176 LIM = IEND_BLR
1263 LIM = IEND_BLR
1385 & KEEP253, PIVOT_OPTION, IEND_BLR argument
1394 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
1466 LIM = IEND_BLR
[all …]
H A Ddfac_front_aux.F676 & PIVOT_OPTION, LR_ACTIVATED, IEND_BLR, Inextpiv, argument
701 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
813 J = IEND_BLR - NPIV
1008 & PIVOT_OPTION, IEND_BLR, Inextpiv) argument
1015 INTEGER, intent(in) :: PIVOT_OPTION,IEND_BLR local
1176 LIM = IEND_BLR
1263 LIM = IEND_BLR
1385 & KEEP253, PIVOT_OPTION, IEND_BLR argument
1394 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
1466 LIM = IEND_BLR
[all …]
H A Dzfac_front_aux.F676 & PIVOT_OPTION, LR_ACTIVATED, IEND_BLR, Inextpiv, argument
701 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
813 J = IEND_BLR - NPIV
1008 & PIVOT_OPTION, IEND_BLR, Inextpiv) argument
1015 INTEGER, intent(in) :: PIVOT_OPTION,IEND_BLR local
1173 LIM = IEND_BLR
1259 LIM = IEND_BLR
1376 & KEEP253, PIVOT_OPTION, IEND_BLR argument
1385 INTEGER, intent(in) :: PIVOT_OPTION, IEND_BLR local
1457 LIM = IEND_BLR
[all …]