/dports/math/mumps/mumps-5.1.2/src/ |
H A D | zfac_front_LU_type2.F | 199 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 D | cfac_front_LU_type2.F | 199 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 D | dfac_front_LU_type2.F | 199 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 D | sfac_front_LU_type2.F | 199 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 D | cfac_front_LU_type1.F | 52 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 D | dfac_front_LU_type1.F | 52 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 D | sfac_front_LU_type1.F | 52 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 D | zfac_front_LU_type1.F | 52 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 D | cfac_front_LDLT_type1.F | 86 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 D | dfac_front_LDLT_type1.F | 86 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 D | sfac_front_LDLT_type1.F | 86 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 D | zfac_front_LDLT_type1.F | 86 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 D | sfac_front_LDLT_type2.F | 206 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 D | zfac_front_LDLT_type2.F | 206 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 D | dfac_front_LDLT_type2.F | 206 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 D | cfac_front_LDLT_type2.F | 206 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 D | zfac_front_type2_aux.F | 27 & 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 D | cfac_front_type2_aux.F | 27 & 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 D | dfac_front_type2_aux.F | 27 & 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 D | sfac_front_type2_aux.F | 27 & 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 D | cfac_front_aux.F | 676 & 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 D | sfac_front_aux.F | 676 & 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 D | dfac_front_aux.F | 676 & 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 D | zfac_front_aux.F | 676 & 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 …]
|