Home
last modified time | relevance | path

Searched refs:IBEG_BLR (Results 1 – 16 of 16) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dzfac_front_LU_type2.F88 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 Dcfac_front_LU_type2.F88 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 Ddfac_front_LU_type2.F88 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 Dsfac_front_LU_type2.F88 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 Dsfac_front_LDLT_type2.F89 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 Dzfac_front_LDLT_type2.F89 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 Ddfac_front_LDLT_type2.F89 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 Dcfac_front_LDLT_type2.F89 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 Dcfac_front_LDLT_type1.F86 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 Ddfac_front_LDLT_type1.F86 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 Dsfac_front_LDLT_type1.F86 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 Dzfac_front_LDLT_type1.F86 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 Dcfac_front_LU_type1.F52 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 Ddfac_front_LU_type1.F52 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 Dsfac_front_LU_type1.F52 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 Dzfac_front_LU_type1.F52 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,