Home
last modified time | relevance | path

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

/dports/math/mumps/mumps-5.1.2/src/
H A Dcfac_front_aux.F504 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 Dsfac_front_aux.F504 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 Ddfac_front_aux.F504 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 Dzfac_front_aux.F504 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 Dzfac_front_type2_aux.F162 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 Dcfac_front_type2_aux.F162 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 Ddfac_front_type2_aux.F163 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 Dsfac_front_type2_aux.F163 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 Dcfac_front_LDLT_type1.F45 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 Ddfac_front_LDLT_type1.F45 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 Dsfac_front_LDLT_type1.F45 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 Dzfac_front_LDLT_type1.F45 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 Dsfac_front_LDLT_type2.F85 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 Dzfac_front_LDLT_type2.F85 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 Ddfac_front_LDLT_type2.F85 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 Dcfac_front_LDLT_type2.F85 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 Dcfac_front_LU_type1.F50 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 Ddfac_front_LU_type1.F50 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 Dsfac_front_LU_type1.F50 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 Dzfac_front_LU_type1.F50 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 Dzfac_front_LU_type2.F85 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 Dcfac_front_LU_type2.F85 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 Ddfac_front_LU_type2.F85 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 Dsfac_front_LU_type2.F85 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,