/dports/math/mumps/mumps-5.1.2/src/ |
H A D | zfac_front_LU_type2.F | 88 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 266 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 271 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 272 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 273 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 298 IBEG_BLOCK_FOR_IPIV = IBEG_BLR 430 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 435 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 507 CALL ZMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR, 515 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN [all …]
|
H A D | cfac_front_LU_type2.F | 88 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 266 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 271 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 272 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 273 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 298 IBEG_BLOCK_FOR_IPIV = IBEG_BLR 430 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 435 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 507 CALL CMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR, 515 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN [all …]
|
H A D | dfac_front_LU_type2.F | 88 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 266 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 271 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 272 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 273 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 298 IBEG_BLOCK_FOR_IPIV = IBEG_BLR 430 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 435 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 507 CALL DMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR, 515 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN [all …]
|
H A D | sfac_front_LU_type2.F | 88 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 266 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 271 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 272 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 273 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 298 IBEG_BLOCK_FOR_IPIV = IBEG_BLR 430 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 435 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 507 CALL SMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR, 515 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN [all …]
|
H A D | sfac_front_LDLT_type2.F | 89 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR, CURRENT_BLR local 287 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 292 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 294 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 319 IBEG_BLOCK_FOR_IPIV = IBEG_BLR 479 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 546 & NPIV, IBEG_BLR, 566 CALL SMUMPS_FAC_SQ_LDLT(IBEG_BLR,IEND_BLR,NPIV, 576 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) GOTO 450 580 & IW(HF+IOLDPS+NFRONT+IBEG_BLR-1), BLOCK, [all …]
|
H A D | zfac_front_LDLT_type2.F | 89 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR, CURRENT_BLR local 287 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 292 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 294 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 319 IBEG_BLOCK_FOR_IPIV = IBEG_BLR 479 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 546 & NPIV, IBEG_BLR, 566 CALL ZMUMPS_FAC_SQ_LDLT(IBEG_BLR,IEND_BLR,NPIV, 576 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) GOTO 450 580 & IW(HF+IOLDPS+NFRONT+IBEG_BLR-1), BLOCK, [all …]
|
H A D | dfac_front_LDLT_type2.F | 89 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR, CURRENT_BLR local 287 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 292 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 294 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 319 IBEG_BLOCK_FOR_IPIV = IBEG_BLR 479 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 546 & NPIV, IBEG_BLR, 566 CALL DMUMPS_FAC_SQ_LDLT(IBEG_BLR,IEND_BLR,NPIV, 576 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) GOTO 450 580 & IW(HF+IOLDPS+NFRONT+IBEG_BLR-1), BLOCK, [all …]
|
H A D | cfac_front_LDLT_type2.F | 89 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR, CURRENT_BLR local 287 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 292 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 294 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 319 IBEG_BLOCK_FOR_IPIV = IBEG_BLR 479 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 546 & NPIV, IBEG_BLR, 566 CALL CMUMPS_FAC_SQ_LDLT(IBEG_BLR,IEND_BLR,NPIV, 576 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) GOTO 450 580 & IW(HF+IOLDPS+NFRONT+IBEG_BLR-1), BLOCK, [all …]
|
H A D | cfac_front_LDLT_type1.F | 86 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 214 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 219 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 220 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 347 CALL CMUMPS_FAC_SQ_LDLT(IBEG_BLR,IEND_BLR,NPIV, 355 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 356 & NPIV - IBEG_BLR + 1, 1, 1) 358 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 390 & IW(HF+IOLDPS+NFRONT+IBEG_BLR-1), BLOCK,
|
H A D | dfac_front_LDLT_type1.F | 86 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 214 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 219 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 220 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 347 CALL DMUMPS_FAC_SQ_LDLT(IBEG_BLR,IEND_BLR,NPIV, 355 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 356 & NPIV - IBEG_BLR + 1, 1, 1) 358 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 390 & IW(HF+IOLDPS+NFRONT+IBEG_BLR-1), BLOCK,
|
H A D | sfac_front_LDLT_type1.F | 86 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 214 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 219 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 220 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 347 CALL SMUMPS_FAC_SQ_LDLT(IBEG_BLR,IEND_BLR,NPIV, 355 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 356 & NPIV - IBEG_BLR + 1, 1, 1) 358 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 390 & IW(HF+IOLDPS+NFRONT+IBEG_BLR-1), BLOCK,
|
H A D | zfac_front_LDLT_type1.F | 86 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 214 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 219 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 220 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 347 CALL ZMUMPS_FAC_SQ_LDLT(IBEG_BLR,IEND_BLR,NPIV, 355 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 356 & NPIV - IBEG_BLR + 1, 1, 1) 358 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 390 & IW(HF+IOLDPS+NFRONT+IBEG_BLR-1), BLOCK,
|
H A D | cfac_front_LU_type1.F | 52 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 214 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 219 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 220 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 351 CALL CMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR, 360 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 361 & NPIV - IBEG_BLR + 1, 1, 0) 363 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 368 CALL CMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR,
|
H A D | dfac_front_LU_type1.F | 52 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 214 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 219 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 220 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 351 CALL DMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR, 360 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 361 & NPIV - IBEG_BLR + 1, 1, 0) 363 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 368 CALL DMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR,
|
H A D | sfac_front_LU_type1.F | 52 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 214 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 219 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 220 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 351 CALL SMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR, 360 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 361 & NPIV - IBEG_BLR + 1, 1, 0) 363 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 368 CALL SMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR,
|
H A D | zfac_front_LU_type1.F | 52 INTEGER NBLR_ORIG, IBEG_BLR, IEND_BLR local 214 IBEG_BLR = IW(IOLDPS+1+KEEP(IXSZ)) + 1 219 BEGS_BLR( CURRENT_BLR ) = IBEG_BLR 220 IF ( IEND_BLR - IBEG_BLR + 1 .GT. MAXI_CLUSTER ) THEN 221 MAXI_CLUSTER = IEND_BLR - IBEG_BLR + 1 351 CALL ZMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR, 360 CALL UPDATE_FLOP_STATS_PANEL(NFRONT - IBEG_BLR + 1, 361 & NPIV - IBEG_BLR + 1, 1, 0) 363 IF (NELIM .EQ. IEND_BLR - IBEG_BLR + 1) THEN 368 CALL ZMUMPS_FAC_SQ(IBEG_BLR, IEND_BLR,
|