/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cfac_front_aux.F | 504 NELIM = IEND_BLOCK - NPIV 509 & IEND_BLOCK, LAST_ROW 667 & IBEG_BLOCK, IEND_BLOCK, argument 784 IPIV_END = IEND_BLOCK 971 Inextpiv=IEND_BLOCK+1 973 IF (IEND_BLOCK.EQ.NASS) THEN 1093 IPIV_END = IEND_BLOCK 1160 DO J=1, IEND_BLOCK - IPIV 1356 Inextpiv=IEND_BLOCK+1 1459 NCB1 = LIM - IEND_BLOCK [all …]
|
H A D | sfac_front_aux.F | 504 NELIM = IEND_BLOCK - NPIV 509 & IEND_BLOCK, LAST_ROW 667 & IBEG_BLOCK, IEND_BLOCK, argument 784 IPIV_END = IEND_BLOCK 971 Inextpiv=IEND_BLOCK+1 973 IF (IEND_BLOCK.EQ.NASS) THEN 1094 IPIV_END = IEND_BLOCK 1163 DO J=1, IEND_BLOCK - IPIV 1365 Inextpiv=IEND_BLOCK+1 1468 NCB1 = LIM - IEND_BLOCK [all …]
|
H A D | dfac_front_aux.F | 504 NELIM = IEND_BLOCK - NPIV 509 & IEND_BLOCK, LAST_ROW 667 & IBEG_BLOCK, IEND_BLOCK, argument 784 IPIV_END = IEND_BLOCK 971 Inextpiv=IEND_BLOCK+1 973 IF (IEND_BLOCK.EQ.NASS) THEN 1094 IPIV_END = IEND_BLOCK 1163 DO J=1, IEND_BLOCK - IPIV 1365 Inextpiv=IEND_BLOCK+1 1468 NCB1 = LIM - IEND_BLOCK [all …]
|
H A D | zfac_front_aux.F | 504 NELIM = IEND_BLOCK - NPIV 509 & IEND_BLOCK, LAST_ROW 667 & IBEG_BLOCK, IEND_BLOCK, argument 784 IPIV_END = IEND_BLOCK 971 Inextpiv=IEND_BLOCK+1 973 IF (IEND_BLOCK.EQ.NASS) THEN 1093 IPIV_END = IEND_BLOCK 1160 DO J=1, IEND_BLOCK - IPIV 1356 Inextpiv=IEND_BLOCK+1 1459 NCB1 = LIM - IEND_BLOCK [all …]
|
H A D | zfac_front_type2_aux.F | 162 IPIV_END = IEND_BLOCK 203 DO J=1, IEND_BLOCK - IPIV 212 DO J=1,NASS - IEND_BLOCK 268 DO J=1,NASS - IEND_BLOCK 429 Inextpiv=IEND_BLOCK+1 431 IF (IEND_BLOCK.EQ.NASS) THEN 459 & (IEND_BLOCK, argument 492 NEL2 = IEND_BLOCK - NPIV_NEW 494 IF (IEND_BLOCK.EQ.NASS) THEN 513 NCB1 = NASS - IEND_BLOCK [all …]
|
H A D | cfac_front_type2_aux.F | 162 IPIV_END = IEND_BLOCK 203 DO J=1, IEND_BLOCK - IPIV 212 DO J=1,NASS - IEND_BLOCK 268 DO J=1,NASS - IEND_BLOCK 429 Inextpiv=IEND_BLOCK+1 431 IF (IEND_BLOCK.EQ.NASS) THEN 459 & (IEND_BLOCK, argument 492 NEL2 = IEND_BLOCK - NPIV_NEW 494 IF (IEND_BLOCK.EQ.NASS) THEN 513 NCB1 = NASS - IEND_BLOCK [all …]
|
H A D | dfac_front_type2_aux.F | 163 IPIV_END = IEND_BLOCK 205 DO J=1, IEND_BLOCK - IPIV 214 DO J=1,NASS - IEND_BLOCK 270 DO J=1,NASS - IEND_BLOCK 437 Inextpiv=IEND_BLOCK+1 439 IF (IEND_BLOCK.EQ.NASS) THEN 467 & (IEND_BLOCK, argument 500 NEL2 = IEND_BLOCK - NPIV_NEW 502 IF (IEND_BLOCK.EQ.NASS) THEN 521 NCB1 = NASS - IEND_BLOCK [all …]
|
H A D | sfac_front_type2_aux.F | 163 IPIV_END = IEND_BLOCK 205 DO J=1, IEND_BLOCK - IPIV 214 DO J=1,NASS - IEND_BLOCK 270 DO J=1,NASS - IEND_BLOCK 437 Inextpiv=IEND_BLOCK+1 439 IF (IEND_BLOCK.EQ.NASS) THEN 467 & (IEND_BLOCK, argument 500 NEL2 = IEND_BLOCK - NPIV_NEW 502 IF (IEND_BLOCK.EQ.NASS) THEN 521 NCB1 = NASS - IEND_BLOCK [all …]
|
H A D | cfac_front_LDLT_type1.F | 45 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 149 IEND_BLOCK = 0 239 DO WHILE (IEND_BLOCK < IEND_BLR ) 241 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 247 & IBEG_BLOCK, IEND_BLOCK, 279 CALL CMUMPS_FAC_MQ_LDLT(IEND_BLOCK, 327 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 331 CALL CMUMPS_FAC_SQ_LDLT(IBEG_BLOCK,IEND_BLOCK, 357 NELIM = IEND_BLOCK - NPIV
|
H A D | dfac_front_LDLT_type1.F | 45 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 149 IEND_BLOCK = 0 239 DO WHILE (IEND_BLOCK < IEND_BLR ) 241 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 247 & IBEG_BLOCK, IEND_BLOCK, 279 CALL DMUMPS_FAC_MQ_LDLT(IEND_BLOCK, 327 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 331 CALL DMUMPS_FAC_SQ_LDLT(IBEG_BLOCK,IEND_BLOCK, 357 NELIM = IEND_BLOCK - NPIV
|
H A D | sfac_front_LDLT_type1.F | 45 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 149 IEND_BLOCK = 0 239 DO WHILE (IEND_BLOCK < IEND_BLR ) 241 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 247 & IBEG_BLOCK, IEND_BLOCK, 279 CALL SMUMPS_FAC_MQ_LDLT(IEND_BLOCK, 327 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 331 CALL SMUMPS_FAC_SQ_LDLT(IBEG_BLOCK,IEND_BLOCK, 357 NELIM = IEND_BLOCK - NPIV
|
H A D | zfac_front_LDLT_type1.F | 45 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 149 IEND_BLOCK = 0 239 DO WHILE (IEND_BLOCK < IEND_BLR ) 241 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 247 & IBEG_BLOCK, IEND_BLOCK, 279 CALL ZMUMPS_FAC_MQ_LDLT(IEND_BLOCK, 327 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 331 CALL ZMUMPS_FAC_SQ_LDLT(IBEG_BLOCK,IEND_BLOCK, 357 NELIM = IEND_BLOCK - NPIV
|
H A D | sfac_front_LDLT_type2.F | 85 INTEGER INOPV, IFINB, NFRONT, NPIV, IEND_BLOCK local 205 IEND_BLOCK = 0 312 DO WHILE (IEND_BLOCK < IEND_BLR ) 314 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 327 & IBEG_BLOCK, IEND_BLOCK, 361 CALL SMUMPS_FAC_MQ_LDLT_NIV2(IEND_BLOCK, 448 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 473 NELIM = IEND_BLOCK - NPIV 474 IF (IEND_BLR.NE.IEND_BLOCK) THEN 476 & IEND_BLR, IEND_BLOCK [all …]
|
H A D | zfac_front_LDLT_type2.F | 85 INTEGER INOPV, IFINB, NFRONT, NPIV, IEND_BLOCK local 205 IEND_BLOCK = 0 312 DO WHILE (IEND_BLOCK < IEND_BLR ) 314 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 327 & IBEG_BLOCK, IEND_BLOCK, 361 CALL ZMUMPS_FAC_MQ_LDLT_NIV2(IEND_BLOCK, 448 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 473 NELIM = IEND_BLOCK - NPIV 474 IF (IEND_BLR.NE.IEND_BLOCK) THEN 476 & IEND_BLR, IEND_BLOCK [all …]
|
H A D | dfac_front_LDLT_type2.F | 85 INTEGER INOPV, IFINB, NFRONT, NPIV, IEND_BLOCK local 205 IEND_BLOCK = 0 312 DO WHILE (IEND_BLOCK < IEND_BLR ) 314 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 327 & IBEG_BLOCK, IEND_BLOCK, 361 CALL DMUMPS_FAC_MQ_LDLT_NIV2(IEND_BLOCK, 448 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 473 NELIM = IEND_BLOCK - NPIV 474 IF (IEND_BLR.NE.IEND_BLOCK) THEN 476 & IEND_BLR, IEND_BLOCK [all …]
|
H A D | cfac_front_LDLT_type2.F | 85 INTEGER INOPV, IFINB, NFRONT, NPIV, IEND_BLOCK local 205 IEND_BLOCK = 0 312 DO WHILE (IEND_BLOCK < IEND_BLR ) 314 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 327 & IBEG_BLOCK, IEND_BLOCK, 361 CALL CMUMPS_FAC_MQ_LDLT_NIV2(IEND_BLOCK, 448 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 473 NELIM = IEND_BLOCK - NPIV 474 IF (IEND_BLR.NE.IEND_BLOCK) THEN 476 & IEND_BLR, IEND_BLOCK [all …]
|
H A D | cfac_front_LU_type1.F | 50 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 149 IEND_BLOCK = 0 239 DO WHILE (IEND_BLOCK < IEND_BLR ) 241 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 247 & IBEG_BLOCK,IEND_BLOCK,N,INODE, 280 CALL CMUMPS_FAC_MQ(IBEG_BLOCK, IEND_BLOCK, 314 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 325 CALL CMUMPS_FAC_SQ(IBEG_BLOCK, IEND_BLOCK,
|
H A D | dfac_front_LU_type1.F | 50 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 149 IEND_BLOCK = 0 239 DO WHILE (IEND_BLOCK < IEND_BLR ) 241 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 247 & IBEG_BLOCK,IEND_BLOCK,N,INODE, 280 CALL DMUMPS_FAC_MQ(IBEG_BLOCK, IEND_BLOCK, 314 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 325 CALL DMUMPS_FAC_SQ(IBEG_BLOCK, IEND_BLOCK,
|
H A D | sfac_front_LU_type1.F | 50 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 149 IEND_BLOCK = 0 239 DO WHILE (IEND_BLOCK < IEND_BLR ) 241 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 247 & IBEG_BLOCK,IEND_BLOCK,N,INODE, 280 CALL SMUMPS_FAC_MQ(IBEG_BLOCK, IEND_BLOCK, 314 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 325 CALL SMUMPS_FAC_SQ(IBEG_BLOCK, IEND_BLOCK,
|
H A D | zfac_front_LU_type1.F | 50 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 149 IEND_BLOCK = 0 239 DO WHILE (IEND_BLOCK < IEND_BLR ) 241 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 247 & IBEG_BLOCK,IEND_BLOCK,N,INODE, 280 CALL ZMUMPS_FAC_MQ(IBEG_BLOCK, IEND_BLOCK, 314 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 325 CALL ZMUMPS_FAC_SQ(IBEG_BLOCK, IEND_BLOCK,
|
H A D | zfac_front_LU_type2.F | 85 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 198 IEND_BLOCK = 0 291 DO WHILE (IEND_BLOCK < IEND_BLR ) 293 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 304 & IBEG_BLOCK_FOR_IPIV,IEND_BLOCK,N,INODE, 339 CALL ZMUMPS_FAC_MQ(IBEG_BLOCK, IEND_BLOCK, 402 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 413 CALL ZMUMPS_FAC_SQ(IBEG_BLOCK, IEND_BLOCK,
|
H A D | cfac_front_LU_type2.F | 85 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 198 IEND_BLOCK = 0 291 DO WHILE (IEND_BLOCK < IEND_BLR ) 293 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 304 & IBEG_BLOCK_FOR_IPIV,IEND_BLOCK,N,INODE, 339 CALL CMUMPS_FAC_MQ(IBEG_BLOCK, IEND_BLOCK, 402 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 413 CALL CMUMPS_FAC_SQ(IBEG_BLOCK, IEND_BLOCK,
|
H A D | dfac_front_LU_type2.F | 85 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 198 IEND_BLOCK = 0 291 DO WHILE (IEND_BLOCK < IEND_BLR ) 293 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 304 & IBEG_BLOCK_FOR_IPIV,IEND_BLOCK,N,INODE, 339 CALL DMUMPS_FAC_MQ(IBEG_BLOCK, IEND_BLOCK, 402 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 413 CALL DMUMPS_FAC_SQ(IBEG_BLOCK, IEND_BLOCK,
|
H A D | sfac_front_LU_type2.F | 85 INTEGER INOPV, IFINB, NFRONT, NPIV, IBEG_BLOCK, IEND_BLOCK local 198 IEND_BLOCK = 0 291 DO WHILE (IEND_BLOCK < IEND_BLR ) 293 IEND_BLOCK = min(IEND_BLOCK + NBKJIB_ORIG, IEND_BLR) 304 & IBEG_BLOCK_FOR_IPIV,IEND_BLOCK,N,INODE, 339 CALL SMUMPS_FAC_MQ(IBEG_BLOCK, IEND_BLOCK, 402 IF ( IEND_BLR .GT. IEND_BLOCK ) THEN 413 CALL SMUMPS_FAC_SQ(IBEG_BLOCK, IEND_BLOCK,
|