Home
last modified time | relevance | path

Searched refs:IOLDPS (Results 1 – 25 of 193) sorted by relevance

12345678

/dports/math/mumps/mumps-5.1.2/src/
H A Dcfac_process_end_facto_slave.F91 INTEGER IOLDPS, NROW, LDA local
105 IOLDPS = PTRIST(STEP(INODE))
106 IWHANDLER_SAVE = IW(IOLDPS+XXA)
108 IW(IOLDPS+XXS)=S_ALL
117 IOLDPS = PTRIST(STEP(INODE))
138 IW(IOLDPS+XXS)=S_NOLCBCONTIG
139 IW(IOLDPS+XXS)=S_NOLCBCONTIG
144 LCONT = IW(IOLDPS+KEEP(IXSZ))
192 IOLDPS = PTRIST(STEP(INODE))
218 & IW( IOLDPS + XXS ),0_8)
[all …]
H A Ddfac_process_end_facto_slave.F91 INTEGER IOLDPS, NROW, LDA local
105 IOLDPS = PTRIST(STEP(INODE))
106 IWHANDLER_SAVE = IW(IOLDPS+XXA)
108 IW(IOLDPS+XXS)=S_ALL
117 IOLDPS = PTRIST(STEP(INODE))
138 IW(IOLDPS+XXS)=S_NOLCBCONTIG
139 IW(IOLDPS+XXS)=S_NOLCBCONTIG
144 LCONT = IW(IOLDPS+KEEP(IXSZ))
192 IOLDPS = PTRIST(STEP(INODE))
218 & IW( IOLDPS + XXS ),0_8)
[all …]
H A Dzfac_process_end_facto_slave.F91 INTEGER IOLDPS, NROW, LDA local
105 IOLDPS = PTRIST(STEP(INODE))
106 IWHANDLER_SAVE = IW(IOLDPS+XXA)
108 IW(IOLDPS+XXS)=S_ALL
117 IOLDPS = PTRIST(STEP(INODE))
138 IW(IOLDPS+XXS)=S_NOLCBCONTIG
139 IW(IOLDPS+XXS)=S_NOLCBCONTIG
144 LCONT = IW(IOLDPS+KEEP(IXSZ))
192 IOLDPS = PTRIST(STEP(INODE))
218 & IW( IOLDPS + XXS ),0_8)
[all …]
H A Dsfac_process_end_facto_slave.F91 INTEGER IOLDPS, NROW, LDA local
105 IOLDPS = PTRIST(STEP(INODE))
106 IWHANDLER_SAVE = IW(IOLDPS+XXA)
108 IW(IOLDPS+XXS)=S_ALL
117 IOLDPS = PTRIST(STEP(INODE))
138 IW(IOLDPS+XXS)=S_NOLCBCONTIG
139 IW(IOLDPS+XXS)=S_NOLCBCONTIG
144 LCONT = IW(IOLDPS+KEEP(IXSZ))
192 IOLDPS = PTRIST(STEP(INODE))
218 & IW( IOLDPS + XXS ),0_8)
[all …]
H A Dcfac_front_LDLT_type1.F33 INTEGER MYID, IOLDPS local
125 NFRONT = IW(IOLDPS+XSIZE)
127 NASS = iabs(IW(IOLDPS+2+XSIZE))
128 IW(IOLDPS+3+XSIZE) = -99999
156 LIWFAC = IW(IOLDPS+XXI)
189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
263 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6+XSIZE
295 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6
299 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ
319 & IW(IOLDPS), LIWFAC,
[all …]
H A Ddfac_front_LDLT_type1.F33 INTEGER MYID, IOLDPS local
125 NFRONT = IW(IOLDPS+XSIZE)
127 NASS = iabs(IW(IOLDPS+2+XSIZE))
128 IW(IOLDPS+3+XSIZE) = -99999
156 LIWFAC = IW(IOLDPS+XXI)
189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
263 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6+XSIZE
295 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6
299 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ
319 & IW(IOLDPS), LIWFAC,
[all …]
H A Dsfac_front_LDLT_type1.F33 INTEGER MYID, IOLDPS local
125 NFRONT = IW(IOLDPS+XSIZE)
127 NASS = iabs(IW(IOLDPS+2+XSIZE))
128 IW(IOLDPS+3+XSIZE) = -99999
156 LIWFAC = IW(IOLDPS+XXI)
189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
263 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6+XSIZE
295 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6
299 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ
319 & IW(IOLDPS), LIWFAC,
[all …]
H A Dzfac_front_LDLT_type1.F33 INTEGER MYID, IOLDPS local
125 NFRONT = IW(IOLDPS+XSIZE)
127 NASS = iabs(IW(IOLDPS+2+XSIZE))
128 IW(IOLDPS+3+XSIZE) = -99999
156 LIWFAC = IW(IOLDPS+XXI)
189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
263 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6+XSIZE
295 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6
299 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ
319 & IW(IOLDPS), LIWFAC,
[all …]
H A Dsfac_front_LDLT_type2.F84 INTEGER IOLDPS, allocok, K263 local
178 NFRONT = IW(IOLDPS+XSIZE)
181 IW(IOLDPS+3+XSIZE) = -99999
247 & IW(IOLDPS+6+NFRONT+XSIZE+IW(IOLDPS+5+XSIZE)
248 & :IOLDPS+5+2*NFRONT+XSIZE+IW(IOLDPS+5+XSIZE))
261 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
345 IWPOSPIV = IOLDPS+IW(IOLDPS+1+XSIZE)+6
373 IWPOSPIV = IOLDPS+XSIZE+IW(IOLDPS+1+XSIZE)+6+
377 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ
428 & IW(IOLDPS+KEEP(IXSZ)+IW(IOLDPS+5+KEEP(IXSZ))+6),
[all …]
H A Dzfac_front_LDLT_type2.F84 INTEGER IOLDPS, allocok, K263 local
178 NFRONT = IW(IOLDPS+XSIZE)
181 IW(IOLDPS+3+XSIZE) = -99999
247 & IW(IOLDPS+6+NFRONT+XSIZE+IW(IOLDPS+5+XSIZE)
248 & :IOLDPS+5+2*NFRONT+XSIZE+IW(IOLDPS+5+XSIZE))
261 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
345 IWPOSPIV = IOLDPS+IW(IOLDPS+1+XSIZE)+6
373 IWPOSPIV = IOLDPS+XSIZE+IW(IOLDPS+1+XSIZE)+6+
377 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ
428 & IW(IOLDPS+KEEP(IXSZ)+IW(IOLDPS+5+KEEP(IXSZ))+6),
[all …]
H A Ddfac_front_LDLT_type2.F84 INTEGER IOLDPS, allocok, K263 local
178 NFRONT = IW(IOLDPS+XSIZE)
181 IW(IOLDPS+3+XSIZE) = -99999
247 & IW(IOLDPS+6+NFRONT+XSIZE+IW(IOLDPS+5+XSIZE)
248 & :IOLDPS+5+2*NFRONT+XSIZE+IW(IOLDPS+5+XSIZE))
261 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
345 IWPOSPIV = IOLDPS+IW(IOLDPS+1+XSIZE)+6
373 IWPOSPIV = IOLDPS+XSIZE+IW(IOLDPS+1+XSIZE)+6+
377 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ
428 & IW(IOLDPS+KEEP(IXSZ)+IW(IOLDPS+5+KEEP(IXSZ))+6),
[all …]
H A Dcfac_front_LDLT_type2.F84 INTEGER IOLDPS, allocok, K263 local
178 NFRONT = IW(IOLDPS+XSIZE)
181 IW(IOLDPS+3+XSIZE) = -99999
247 & IW(IOLDPS+6+NFRONT+XSIZE+IW(IOLDPS+5+XSIZE)
248 & :IOLDPS+5+2*NFRONT+XSIZE+IW(IOLDPS+5+XSIZE))
261 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
345 IWPOSPIV = IOLDPS+IW(IOLDPS+1+XSIZE)+6
373 IWPOSPIV = IOLDPS+XSIZE+IW(IOLDPS+1+XSIZE)+6+
377 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ
428 & IW(IOLDPS+KEEP(IXSZ)+IW(IOLDPS+5+KEEP(IXSZ))+6),
[all …]
H A Dcfac_front_LU_type1.F39 INTEGER MYID, SLAVEF, IOLDPS local
126 NFRONT = IW(IOLDPS+XSIZE)
128 IW(IOLDPS+3+XSIZE) = -99999
154 LIWFAC = IW(IOLDPS+XXI)
187 HF = 6 + IW(IOLDPS+5+XSIZE)+XSIZE
189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
288 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + 1
306 & IW(IOLDPS), LIWFAC,
336 NPIV = IW(IOLDPS+1+XSIZE)
478 & IW(IOLDPS), LIWFAC,
[all …]
H A Ddfac_front_LU_type1.F39 INTEGER MYID, SLAVEF, IOLDPS local
126 NFRONT = IW(IOLDPS+XSIZE)
128 IW(IOLDPS+3+XSIZE) = -99999
154 LIWFAC = IW(IOLDPS+XXI)
187 HF = 6 + IW(IOLDPS+5+XSIZE)+XSIZE
189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
288 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + 1
306 & IW(IOLDPS), LIWFAC,
336 NPIV = IW(IOLDPS+1+XSIZE)
478 & IW(IOLDPS), LIWFAC,
[all …]
H A Dsfac_front_LU_type1.F39 INTEGER MYID, SLAVEF, IOLDPS local
126 NFRONT = IW(IOLDPS+XSIZE)
128 IW(IOLDPS+3+XSIZE) = -99999
154 LIWFAC = IW(IOLDPS+XXI)
187 HF = 6 + IW(IOLDPS+5+XSIZE)+XSIZE
189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
288 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + 1
306 & IW(IOLDPS), LIWFAC,
336 NPIV = IW(IOLDPS+1+XSIZE)
478 & IW(IOLDPS), LIWFAC,
[all …]
H A Dzfac_front_LU_type1.F39 INTEGER MYID, SLAVEF, IOLDPS local
126 NFRONT = IW(IOLDPS+XSIZE)
128 IW(IOLDPS+3+XSIZE) = -99999
154 LIWFAC = IW(IOLDPS+XXI)
187 HF = 6 + IW(IOLDPS+5+XSIZE)+XSIZE
189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS,
288 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + 1
306 & IW(IOLDPS), LIWFAC,
336 NPIV = IW(IOLDPS+1+XSIZE)
478 & IW(IOLDPS), LIWFAC,
[all …]
H A Dcfac_process_blocfacto_LDLT.F335 IOLDPS = PTRIST(STEP(INODE))
484 CALL GET_CUT(IW(IOLDPS+HS:IOLDPS+HS+NROW1-1), 0,
496 CALL GET_CUT(IW(IOLDPS+HS+NROW1:IOLDPS+HS+NROW1+NCOL1-1),
602 LIWFAC = IW(IOLDPS+XXI)
680 & IW(IOLDPS+XXF),
724 IW(IOLDPS+KEEP(IXSZ)) = IW(IOLDPS+KEEP(IXSZ)) - NPIV
725 IW(IOLDPS + 3+KEEP(IXSZ)) = IW(IOLDPS+3+KEEP(IXSZ)) + NPIV
726 IF (LASTBL) IW(IOLDPS+1+KEEP(IXSZ)) = IW(IOLDPS + 3+KEEP(IXSZ))
794 IW(IOLDPS+6+KEEP(IXSZ)) = huge(IW(IOLDPS+6+KEEP(IXSZ)))
839 IOLDPS = PTRIST(STEP(INODE))
[all …]
H A Ddfac_process_blocfacto_LDLT.F335 IOLDPS = PTRIST(STEP(INODE))
484 CALL GET_CUT(IW(IOLDPS+HS:IOLDPS+HS+NROW1-1), 0,
496 CALL GET_CUT(IW(IOLDPS+HS+NROW1:IOLDPS+HS+NROW1+NCOL1-1),
602 LIWFAC = IW(IOLDPS+XXI)
680 & IW(IOLDPS+XXF),
724 IW(IOLDPS+KEEP(IXSZ)) = IW(IOLDPS+KEEP(IXSZ)) - NPIV
725 IW(IOLDPS + 3+KEEP(IXSZ)) = IW(IOLDPS+3+KEEP(IXSZ)) + NPIV
726 IF (LASTBL) IW(IOLDPS+1+KEEP(IXSZ)) = IW(IOLDPS + 3+KEEP(IXSZ))
794 IW(IOLDPS+6+KEEP(IXSZ)) = huge(IW(IOLDPS+6+KEEP(IXSZ)))
839 IOLDPS = PTRIST(STEP(INODE))
[all …]
H A Dsfac_process_blocfacto_LDLT.F335 IOLDPS = PTRIST(STEP(INODE))
484 CALL GET_CUT(IW(IOLDPS+HS:IOLDPS+HS+NROW1-1), 0,
496 CALL GET_CUT(IW(IOLDPS+HS+NROW1:IOLDPS+HS+NROW1+NCOL1-1),
602 LIWFAC = IW(IOLDPS+XXI)
680 & IW(IOLDPS+XXF),
724 IW(IOLDPS+KEEP(IXSZ)) = IW(IOLDPS+KEEP(IXSZ)) - NPIV
725 IW(IOLDPS + 3+KEEP(IXSZ)) = IW(IOLDPS+3+KEEP(IXSZ)) + NPIV
726 IF (LASTBL) IW(IOLDPS+1+KEEP(IXSZ)) = IW(IOLDPS + 3+KEEP(IXSZ))
794 IW(IOLDPS+6+KEEP(IXSZ)) = huge(IW(IOLDPS+6+KEEP(IXSZ)))
839 IOLDPS = PTRIST(STEP(INODE))
[all …]
H A Dzfac_process_blocfacto_LDLT.F335 IOLDPS = PTRIST(STEP(INODE))
484 CALL GET_CUT(IW(IOLDPS+HS:IOLDPS+HS+NROW1-1), 0,
496 CALL GET_CUT(IW(IOLDPS+HS+NROW1:IOLDPS+HS+NROW1+NCOL1-1),
602 LIWFAC = IW(IOLDPS+XXI)
680 & IW(IOLDPS+XXF),
724 IW(IOLDPS+KEEP(IXSZ)) = IW(IOLDPS+KEEP(IXSZ)) - NPIV
725 IW(IOLDPS + 3+KEEP(IXSZ)) = IW(IOLDPS+3+KEEP(IXSZ)) + NPIV
726 IF (LASTBL) IW(IOLDPS+1+KEEP(IXSZ)) = IW(IOLDPS + 3+KEEP(IXSZ))
794 IW(IOLDPS+6+KEEP(IXSZ)) = huge(IW(IOLDPS+6+KEEP(IXSZ)))
839 IOLDPS = PTRIST(STEP(INODE))
[all …]
H A Ddfac_asm_ELT.F45 IOLDPS = PTRIST(STEP(INODE))
47 NBCOLF = IW(IOLDPS+KEEP(IXSZ))
48 NBROWF = IW(IOLDPS+2+KEEP(IXSZ))
49 NASS = IW(IOLDPS+1+KEEP(IXSZ))
50 NSLAVES = IW(IOLDPS+5+KEEP(IXSZ))
54 IW(IOLDPS+1+KEEP(IXSZ)) = NASS
62 K1 = IOLDPS + HF + NBROWF
104 NBCOLF = IW(IOLDPS+KEEP(IXSZ))
110 K1 = IOLDPS + HF + NBROWF
118 K1 = IOLDPS + HF
[all …]
H A Dzfac_asm_ELT.F45 IOLDPS = PTRIST(STEP(INODE))
47 NBCOLF = IW(IOLDPS+KEEP(IXSZ))
48 NBROWF = IW(IOLDPS+2+KEEP(IXSZ))
49 NASS = IW(IOLDPS+1+KEEP(IXSZ))
50 NSLAVES = IW(IOLDPS+5+KEEP(IXSZ))
54 IW(IOLDPS+1+KEEP(IXSZ)) = NASS
62 K1 = IOLDPS + HF + NBROWF
104 NBCOLF = IW(IOLDPS+KEEP(IXSZ))
110 K1 = IOLDPS + HF + NBROWF
118 K1 = IOLDPS + HF
[all …]
H A Dcfac_asm_ELT.F45 IOLDPS = PTRIST(STEP(INODE))
47 NBCOLF = IW(IOLDPS+KEEP(IXSZ))
48 NBROWF = IW(IOLDPS+2+KEEP(IXSZ))
49 NASS = IW(IOLDPS+1+KEEP(IXSZ))
50 NSLAVES = IW(IOLDPS+5+KEEP(IXSZ))
54 IW(IOLDPS+1+KEEP(IXSZ)) = NASS
62 K1 = IOLDPS + HF + NBROWF
104 NBCOLF = IW(IOLDPS+KEEP(IXSZ))
110 K1 = IOLDPS + HF + NBROWF
118 K1 = IOLDPS + HF
[all …]
H A Dsfac_asm_ELT.F45 IOLDPS = PTRIST(STEP(INODE))
47 NBCOLF = IW(IOLDPS+KEEP(IXSZ))
48 NBROWF = IW(IOLDPS+2+KEEP(IXSZ))
49 NASS = IW(IOLDPS+1+KEEP(IXSZ))
50 NSLAVES = IW(IOLDPS+5+KEEP(IXSZ))
54 IW(IOLDPS+1+KEEP(IXSZ)) = NASS
62 K1 = IOLDPS + HF + NBROWF
104 NBCOLF = IW(IOLDPS+KEEP(IXSZ))
110 K1 = IOLDPS + HF + NBROWF
118 K1 = IOLDPS + HF
[all …]
H A Ddfac_asm.F40 IOLDPS = PTLUST_S(STEP(INODE))
42 NFRONT = IW(IOLDPS+KEEP(IXSZ))
44 NSLAVES= IW(IOLDPS+5+KEEP(IXSZ))
154 IOLDPS = PTRIST(STEP(INODE))
171 K1 = IOLDPS + HF + NBROWF
197 IOLDPS = PTRIST(STEP(INODE))
203 K1 = IOLDPS + HF + NBROWF
562 & IOLDPS, ISTCHK, local
631 K1 = IOLDPS + HF + NBROWF
639 K1 = IOLDPS + HF
[all …]

12345678