Home
last modified time | relevance | path

Searched refs:PTRICB (Results 1 – 25 of 48) sorted by relevance

12

/dports/math/mumps/mumps-5.1.2/src/
H A Dcsol_fwd_aux.F21 & PTRICB, argument
42 INTEGER PTRICB(KEEP(28)),PTRIST(KEEP(28)) local
90 PTRICB(STEP(FINODE)) = -1
102 PTRICB(STEP(FINODE)) = NCB + 1
138 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
244 PTRICB(STEP(FINODE)) = NCB + 1
287 PTRICB(STEP(FINODE)) =
288 & PTRICB(STEP(FINODE)) - NCV
1126 PTRICB(STEP(INODE)) = NCB + 1
1169 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Ddsol_fwd_aux.F21 & PTRICB, argument
42 INTEGER PTRICB(KEEP(28)),PTRIST(KEEP(28)) local
90 PTRICB(STEP(FINODE)) = -1
102 PTRICB(STEP(FINODE)) = NCB + 1
138 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
244 PTRICB(STEP(FINODE)) = NCB + 1
287 PTRICB(STEP(FINODE)) =
288 & PTRICB(STEP(FINODE)) - NCV
1124 PTRICB(STEP(INODE)) = NCB + 1
1167 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Dssol_fwd_aux.F21 & PTRICB, argument
42 INTEGER PTRICB(KEEP(28)),PTRIST(KEEP(28)) local
90 PTRICB(STEP(FINODE)) = -1
102 PTRICB(STEP(FINODE)) = NCB + 1
138 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
244 PTRICB(STEP(FINODE)) = NCB + 1
287 PTRICB(STEP(FINODE)) =
288 & PTRICB(STEP(FINODE)) - NCV
1124 PTRICB(STEP(INODE)) = NCB + 1
1167 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Dzsol_fwd_aux.F21 & PTRICB, argument
42 INTEGER PTRICB(KEEP(28)),PTRIST(KEEP(28)) local
90 PTRICB(STEP(FINODE)) = -1
102 PTRICB(STEP(FINODE)) = NCB + 1
138 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
244 PTRICB(STEP(FINODE)) = NCB + 1
287 PTRICB(STEP(FINODE)) =
288 & PTRICB(STEP(FINODE)) - NCV
1126 PTRICB(STEP(INODE)) = NCB + 1
1169 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Ddsol_fwd.F15 & PTRICB, IWCB, LIWCB, argument
50 INTEGER PTRICB( KEEP(28) ) local
85 PTRICB = 0
118 & PTRICB, INFO, KEEP,KEEP8, DKEEP, STEP,
139 & PTRICB, PTRIST, PTRFAC, PROCNODE_STEPS,
H A Dssol_fwd.F15 & PTRICB, IWCB, LIWCB, argument
50 INTEGER PTRICB( KEEP(28) ) local
85 PTRICB = 0
118 & PTRICB, INFO, KEEP,KEEP8, DKEEP, STEP,
139 & PTRICB, PTRIST, PTRFAC, PROCNODE_STEPS,
H A Dcsol_fwd.F15 & PTRICB, IWCB, LIWCB, argument
50 INTEGER PTRICB( KEEP(28) ) local
85 PTRICB = 0
118 & PTRICB, INFO, KEEP,KEEP8, DKEEP, STEP,
139 & PTRICB, PTRIST, PTRFAC, PROCNODE_STEPS,
H A Dzsol_fwd.F15 & PTRICB, IWCB, LIWCB, argument
50 INTEGER PTRICB( KEEP(28) ) local
85 PTRICB = 0
118 & PTRICB, INFO, KEEP,KEEP8, DKEEP, STEP,
139 & PTRICB, PTRIST, PTRFAC, PROCNODE_STEPS,
H A Dcsol_bwd_aux.F19 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO, argument
47 INTEGER PTRICB(KEEP(28)), STEP( N ), FILS( N ) local
228 & POSWCB, POSIWCB, PTRICB, PTRACB)
328 & POSWCB, POSIWCB, PTRICB, PTRACB)
399 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO,
516 & POSWCB, POSIWCB, PTRICB, PTRACB)
531 PTRICB(STEP( INODE )) = POSIWCB + 1
862 IWCB( PTRICB(STEP(INODE)) + 1 ) = 0
865 & POSWCB, POSIWCB, PTRICB, PTRACB)
955 IWCB( PTRICB(STEP( INODE )) + 1 ) = 0
[all …]
H A Ddsol_bwd_aux.F19 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO, argument
47 INTEGER PTRICB(KEEP(28)), STEP( N ), FILS( N ) local
226 & POSWCB, POSIWCB, PTRICB, PTRACB)
326 & POSWCB, POSIWCB, PTRICB, PTRACB)
397 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO,
514 & POSWCB, POSIWCB, PTRICB, PTRACB)
529 PTRICB(STEP( INODE )) = POSIWCB + 1
860 IWCB( PTRICB(STEP(INODE)) + 1 ) = 0
863 & POSWCB, POSIWCB, PTRICB, PTRACB)
953 IWCB( PTRICB(STEP( INODE )) + 1 ) = 0
[all …]
H A Dssol_bwd_aux.F19 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO, argument
47 INTEGER PTRICB(KEEP(28)), STEP( N ), FILS( N ) local
226 & POSWCB, POSIWCB, PTRICB, PTRACB)
326 & POSWCB, POSIWCB, PTRICB, PTRACB)
397 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO,
514 & POSWCB, POSIWCB, PTRICB, PTRACB)
529 PTRICB(STEP( INODE )) = POSIWCB + 1
860 IWCB( PTRICB(STEP(INODE)) + 1 ) = 0
863 & POSWCB, POSIWCB, PTRICB, PTRACB)
953 IWCB( PTRICB(STEP( INODE )) + 1 ) = 0
[all …]
H A Dzsol_bwd_aux.F19 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO, argument
47 INTEGER PTRICB(KEEP(28)), STEP( N ), FILS( N ) local
228 & POSWCB, POSIWCB, PTRICB, PTRACB)
328 & POSWCB, POSIWCB, PTRICB, PTRACB)
399 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO,
516 & POSWCB, POSIWCB, PTRICB, PTRACB)
531 PTRICB(STEP( INODE )) = POSIWCB + 1
862 IWCB( PTRICB(STEP(INODE)) + 1 ) = 0
865 & POSWCB, POSIWCB, PTRICB, PTRACB)
955 IWCB( PTRICB(STEP( INODE )) + 1 ) = 0
[all …]
H A Dcsol_bwd.F16 & PTRICB, PTRACB, IWCB, LIWW, W2, argument
46 & PTRICB(KEEP(28)) local
185 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO,
385 & POSWCB, POSIWCB, PTRICB, PTRACB)
400 PTRICB(STEP( INODE )) = POSIWCB + 1
504 IWCB( PTRICB(STEP( INODE )) + 1 ) = 0
506 & POSWCB,POSIWCB,PTRICB,PTRACB)
583 PTRICB(STEP( INODE )) = POSIWCB + 1
586 IWCB( PTRICB(STEP( INODE )) + 1 ) = 1
1183 IWCB(PTRICB(STEP(INODE))+1) = IWCB(PTRICB(STEP(INODE))+1)-1
[all …]
H A Ddsol_bwd.F16 & PTRICB, PTRACB, IWCB, LIWW, W2, argument
46 & PTRICB(KEEP(28)) local
183 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO,
383 & POSWCB, POSIWCB, PTRICB, PTRACB)
398 PTRICB(STEP( INODE )) = POSIWCB + 1
502 IWCB( PTRICB(STEP( INODE )) + 1 ) = 0
504 & POSWCB,POSIWCB,PTRICB,PTRACB)
581 PTRICB(STEP( INODE )) = POSIWCB + 1
584 IWCB( PTRICB(STEP( INODE )) + 1 ) = 1
1181 IWCB(PTRICB(STEP(INODE))+1) = IWCB(PTRICB(STEP(INODE))+1)-1
[all …]
H A Dssol_bwd.F16 & PTRICB, PTRACB, IWCB, LIWW, W2, argument
46 & PTRICB(KEEP(28)) local
183 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO,
383 & POSWCB, POSIWCB, PTRICB, PTRACB)
398 PTRICB(STEP( INODE )) = POSIWCB + 1
502 IWCB( PTRICB(STEP( INODE )) + 1 ) = 0
504 & POSWCB,POSIWCB,PTRICB,PTRACB)
581 PTRICB(STEP( INODE )) = POSIWCB + 1
584 IWCB( PTRICB(STEP( INODE )) + 1 ) = 1
1181 IWCB(PTRICB(STEP(INODE))+1) = IWCB(PTRICB(STEP(INODE))+1)-1
[all …]
H A Dzsol_bwd.F16 & PTRICB, PTRACB, IWCB, LIWW, W2, argument
46 & PTRICB(KEEP(28)) local
185 & IIPOOL, NBFINF, PTRICB, PTRACB, INFO,
385 & POSWCB, POSIWCB, PTRICB, PTRACB)
400 PTRICB(STEP( INODE )) = POSIWCB + 1
504 IWCB( PTRICB(STEP( INODE )) + 1 ) = 0
506 & POSWCB,POSIWCB,PTRICB,PTRACB)
583 PTRICB(STEP( INODE )) = POSIWCB + 1
586 IWCB( PTRICB(STEP( INODE )) + 1 ) = 1
1183 IWCB(PTRICB(STEP(INODE))+1) = IWCB(PTRICB(STEP(INODE))+1)-1
[all …]
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dzmumps_part8.F3296 PTRICB = NSTK_S + KEEP(28)
3297 PTRACB = PTRICB + KEEP(28)
3568 & IW1(PTRICB), IWCB, LIWW,
4785 & PTRICB, IWCB, LIWCB,
4818 INTEGER PTRICB( KEEP(28) )
4845 PTRICB = 0
4918 & PTRICB,
5007 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
5108 PTRICB(STEP(FINODE)) =
5646 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Dcmumps_part8.F3296 PTRICB = NSTK_S + KEEP(28)
3297 PTRACB = PTRICB + KEEP(28)
3568 & IW1(PTRICB), IWCB, LIWW,
4785 & PTRICB, IWCB, LIWCB,
4818 INTEGER PTRICB( KEEP(28) )
4845 PTRICB = 0
4918 & PTRICB,
5007 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
5108 PTRICB(STEP(FINODE)) =
5646 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Dsmumps_part8.F3296 PTRICB = NSTK_S + KEEP(28)
3297 PTRACB = PTRICB + KEEP(28)
3568 & IW1(PTRICB), IWCB, LIWW,
4785 & PTRICB, IWCB, LIWCB,
4818 INTEGER PTRICB( KEEP(28) )
4845 PTRICB = 0
4918 & PTRICB,
5007 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
5108 PTRICB(STEP(FINODE)) =
5644 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Ddmumps_part8.F3296 PTRICB = NSTK_S + KEEP(28)
3297 PTRACB = PTRICB + KEEP(28)
3568 & IW1(PTRICB), IWCB, LIWW,
4785 & PTRICB, IWCB, LIWCB,
4818 INTEGER PTRICB( KEEP(28) )
4845 PTRICB = 0
4918 & PTRICB,
5007 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
5108 PTRICB(STEP(FINODE)) =
5644 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
/dports/math/coinmumps/MUMPS_4.10.0/src/
H A Dcmumps_part8.F3296 PTRICB = NSTK_S + KEEP(28)
3297 PTRACB = PTRICB + KEEP(28)
3568 & IW1(PTRICB), IWCB, LIWW,
4785 & PTRICB, IWCB, LIWCB,
4818 INTEGER PTRICB( KEEP(28) )
4845 PTRICB = 0
4918 & PTRICB,
5007 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
5108 PTRICB(STEP(FINODE)) =
5646 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Ddmumps_part8.F3296 PTRICB = NSTK_S + KEEP(28)
3297 PTRACB = PTRICB + KEEP(28)
3568 & IW1(PTRICB), IWCB, LIWW,
4785 & PTRICB, IWCB, LIWCB,
4818 INTEGER PTRICB( KEEP(28) )
4845 PTRICB = 0
4918 & PTRICB,
5007 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
5108 PTRICB(STEP(FINODE)) =
5644 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Dzmumps_part8.F3296 PTRICB = NSTK_S + KEEP(28)
3297 PTRACB = PTRICB + KEEP(28)
3568 & IW1(PTRICB), IWCB, LIWW,
4785 & PTRICB, IWCB, LIWCB,
4818 INTEGER PTRICB( KEEP(28) )
4845 PTRICB = 0
4918 & PTRICB,
5007 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
5108 PTRICB(STEP(FINODE)) =
5646 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
H A Dsmumps_part8.F3296 PTRICB = NSTK_S + KEEP(28)
3297 PTRACB = PTRICB + KEEP(28)
3568 & IW1(PTRICB), IWCB, LIWW,
4785 & PTRICB, IWCB, LIWCB,
4818 INTEGER PTRICB( KEEP(28) )
4845 PTRICB = 0
4918 & PTRICB,
5007 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
5108 PTRICB(STEP(FINODE)) =
5644 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]
/dports/math/mumps4/MUMPS_4.10.0/src/
H A Dzmumps_part8.F3296 PTRICB = NSTK_S + KEEP(28)
3297 PTRACB = PTRICB + KEEP(28)
3568 & IW1(PTRICB), IWCB, LIWW,
4785 & PTRICB, IWCB, LIWCB, argument
4818 INTEGER PTRICB( KEEP(28) ) local
4845 PTRICB = 0
4918 & PTRICB, argument
5007 PTRICB(STEP(FINODE)) = PTRICB(STEP(FINODE)) - LONG
5108 PTRICB(STEP(FINODE)) =
5646 PTRICB(STEP( INODE )) = PTRICB(STEP( INODE )) - NUPDATE
[all …]

12