Home
last modified time | relevance | path

Searched refs:LPERM (Results 1 – 21 of 21) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dcana_aux_par.F858 & LPERM(:), local
997 LPERM => WORK(3*id%N+1 : 4*id%N)
1006 nullify(LPERM)
1190 LPERM = 0
1195 LPERM(GIDX) = K
1233 ELEN(LPERM(LSTVAR(INNZ))) = ELEN(LPERM(LSTVAR(INNZ)))+1
1249 IDX = LPERM(LSTVAR(INNZ))
1252 ELEN(LPERM(LSTVAR(INNZ))) = ELEN(LPERM(LSTVAR(INNZ)))+1
1273 LPERM(1:NLOCVARS+NCLIQUES) = 0
1276 IF(LPERM(PE(INNZ)) .EQ. I) THEN
[all …]
H A Ddana_aux_par.F858 & LPERM(:), local
997 LPERM => WORK(3*id%N+1 : 4*id%N)
1006 nullify(LPERM)
1190 LPERM = 0
1195 LPERM(GIDX) = K
1233 ELEN(LPERM(LSTVAR(INNZ))) = ELEN(LPERM(LSTVAR(INNZ)))+1
1249 IDX = LPERM(LSTVAR(INNZ))
1252 ELEN(LPERM(LSTVAR(INNZ))) = ELEN(LPERM(LSTVAR(INNZ)))+1
1273 LPERM(1:NLOCVARS+NCLIQUES) = 0
1276 IF(LPERM(PE(INNZ)) .EQ. I) THEN
[all …]
H A Dzana_aux_par.F858 & LPERM(:), local
997 LPERM => WORK(3*id%N+1 : 4*id%N)
1006 nullify(LPERM)
1190 LPERM = 0
1195 LPERM(GIDX) = K
1233 ELEN(LPERM(LSTVAR(INNZ))) = ELEN(LPERM(LSTVAR(INNZ)))+1
1249 IDX = LPERM(LSTVAR(INNZ))
1252 ELEN(LPERM(LSTVAR(INNZ))) = ELEN(LPERM(LSTVAR(INNZ)))+1
1273 LPERM(1:NLOCVARS+NCLIQUES) = 0
1276 IF(LPERM(PE(INNZ)) .EQ. I) THEN
[all …]
H A Dsana_aux_par.F858 & LPERM(:), local
997 LPERM => WORK(3*id%N+1 : 4*id%N)
1006 nullify(LPERM)
1190 LPERM = 0
1195 LPERM(GIDX) = K
1233 ELEN(LPERM(LSTVAR(INNZ))) = ELEN(LPERM(LSTVAR(INNZ)))+1
1249 IDX = LPERM(LSTVAR(INNZ))
1252 ELEN(LPERM(LSTVAR(INNZ))) = ELEN(LPERM(LSTVAR(INNZ)))+1
1273 LPERM(1:NLOCVARS+NCLIQUES) = 0
1276 IF(LPERM(PE(INNZ)) .EQ. I) THEN
[all …]
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dzmumps_part2.F5209 & DISPLS(:), LPERM(:),
5395 LPERM => WORK(3*id%N+1 : 4*id%N)
5403 nullify(LPERM)
5611 LPERM = 0
5616 LPERM(GIDX) = K
5654 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5673 IDX = LPERM(LSTVAR(J))
5676 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5696 LPERM(1:NLOCVARS+NCLIQUES) = 0
5699 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
H A Dcmumps_part2.F5209 & DISPLS(:), LPERM(:),
5395 LPERM => WORK(3*id%N+1 : 4*id%N)
5403 nullify(LPERM)
5611 LPERM = 0
5616 LPERM(GIDX) = K
5654 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5673 IDX = LPERM(LSTVAR(J))
5676 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5696 LPERM(1:NLOCVARS+NCLIQUES) = 0
5699 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
H A Ddmumps_part2.F5210 & DISPLS(:), LPERM(:),
5396 LPERM => WORK(3*id%N+1 : 4*id%N)
5404 nullify(LPERM)
5612 LPERM = 0
5617 LPERM(GIDX) = K
5655 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5674 IDX = LPERM(LSTVAR(J))
5677 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5697 LPERM(1:NLOCVARS+NCLIQUES) = 0
5700 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
H A Dsmumps_part2.F5205 & DISPLS(:), LPERM(:),
5391 LPERM => WORK(3*id%N+1 : 4*id%N)
5399 nullify(LPERM)
5607 LPERM = 0
5612 LPERM(GIDX) = K
5650 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5669 IDX = LPERM(LSTVAR(J))
5672 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5692 LPERM(1:NLOCVARS+NCLIQUES) = 0
5695 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
/dports/math/coinmumps/MUMPS_4.10.0/src/
H A Dcmumps_part2.F5209 & DISPLS(:), LPERM(:),
5395 LPERM => WORK(3*id%N+1 : 4*id%N)
5403 nullify(LPERM)
5611 LPERM = 0
5616 LPERM(GIDX) = K
5654 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5673 IDX = LPERM(LSTVAR(J))
5676 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5696 LPERM(1:NLOCVARS+NCLIQUES) = 0
5699 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
H A Ddmumps_part2.F5210 & DISPLS(:), LPERM(:),
5396 LPERM => WORK(3*id%N+1 : 4*id%N)
5404 nullify(LPERM)
5612 LPERM = 0
5617 LPERM(GIDX) = K
5655 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5674 IDX = LPERM(LSTVAR(J))
5677 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5697 LPERM(1:NLOCVARS+NCLIQUES) = 0
5700 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
H A Dsmumps_part2.F5205 & DISPLS(:), LPERM(:), local
5391 LPERM => WORK(3*id%N+1 : 4*id%N)
5399 nullify(LPERM)
5607 LPERM = 0
5612 LPERM(GIDX) = K
5650 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5669 IDX = LPERM(LSTVAR(J))
5672 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5692 LPERM(1:NLOCVARS+NCLIQUES) = 0
5695 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
H A Dzmumps_part2.F5209 & DISPLS(:), LPERM(:),
5395 LPERM => WORK(3*id%N+1 : 4*id%N)
5403 nullify(LPERM)
5611 LPERM = 0
5616 LPERM(GIDX) = K
5654 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5673 IDX = LPERM(LSTVAR(J))
5676 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5696 LPERM(1:NLOCVARS+NCLIQUES) = 0
5699 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
/dports/math/mumps4/MUMPS_4.10.0/src/
H A Dcmumps_part2.F5209 & DISPLS(:), LPERM(:), local
5395 LPERM => WORK(3*id%N+1 : 4*id%N)
5403 nullify(LPERM)
5611 LPERM = 0
5616 LPERM(GIDX) = K
5654 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5673 IDX = LPERM(LSTVAR(J))
5676 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5696 LPERM(1:NLOCVARS+NCLIQUES) = 0
5699 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
H A Ddmumps_part2.F5205 & DISPLS(:), LPERM(:), local
5391 LPERM => WORK(3*id%N+1 : 4*id%N)
5399 nullify(LPERM)
5607 LPERM = 0
5612 LPERM(GIDX) = K
5650 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5669 IDX = LPERM(LSTVAR(J))
5672 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5692 LPERM(1:NLOCVARS+NCLIQUES) = 0
5695 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
H A Dzmumps_part2.F5209 & DISPLS(:), LPERM(:), local
5395 LPERM => WORK(3*id%N+1 : 4*id%N)
5403 nullify(LPERM)
5611 LPERM = 0
5616 LPERM(GIDX) = K
5654 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5673 IDX = LPERM(LSTVAR(J))
5676 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5696 LPERM(1:NLOCVARS+NCLIQUES) = 0
5699 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
H A Dsmumps_part2.F5205 & DISPLS(:), LPERM(:), local
5391 LPERM => WORK(3*id%N+1 : 4*id%N)
5399 nullify(LPERM)
5607 LPERM = 0
5612 LPERM(GIDX) = K
5650 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5669 IDX = LPERM(LSTVAR(J))
5672 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5692 LPERM(1:NLOCVARS+NCLIQUES) = 0
5695 IF(LPERM(PE(J)) .EQ. I) THEN
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/
H A Dlucia1.F2576 DO 50 LPERM = 1, NPERM
2577 IF(JATP(LPERM).EQ.KATP .AND. JASM(LPERM).EQ.KASM .AND.
2578 & JBTP(LPERM).EQ.KBTP .AND. JBSM(LPERM).EQ.KBSM) INEW = 0
H A Dlucia_gencc3.F8216 LPERM = 0
8227 LPERM = LPERM + KELMNT - IELMNT
8231 IF(MOD(LPERM,2).EQ.0) THEN
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/
H A Dlucia1.F2576 DO 50 LPERM = 1, NPERM
2577 IF(JATP(LPERM).EQ.KATP .AND. JASM(LPERM).EQ.KASM .AND.
2578 & JBTP(LPERM).EQ.KBTP .AND. JBSM(LPERM).EQ.KBSM) INEW = 0
H A Dlucia_gencc3.F8216 LPERM = 0
8227 LPERM = LPERM + KELMNT - IELMNT
8231 IF(MOD(LPERM,2).EQ.0) THEN
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/gp/
H A Dgplucia.F3369 DO 50 LPERM = 1, NPERM
3370 IF(JATP(LPERM).EQ.KATP .AND. JASM(LPERM).EQ.KASM .AND.
3371 & JBTP(LPERM).EQ.KBTP .AND. JBSM(LPERM).EQ.KBSM) INEW = 0