/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cana_aux_par.F | 858 & 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 D | dana_aux_par.F | 858 & 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 D | zana_aux_par.F | 858 & 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 D | sana_aux_par.F | 858 & 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 D | zmumps_part2.F | 5209 & 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 D | cmumps_part2.F | 5209 & 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 D | dmumps_part2.F | 5210 & 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 D | smumps_part2.F | 5205 & 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 D | cmumps_part2.F | 5209 & 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 D | dmumps_part2.F | 5210 & 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 D | smumps_part2.F | 5205 & 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 D | zmumps_part2.F | 5209 & 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 D | cmumps_part2.F | 5209 & 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 D | dmumps_part2.F | 5205 & 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 D | zmumps_part2.F | 5209 & 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 D | smumps_part2.F | 5205 & 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 D | lucia1.F | 2576 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 D | lucia_gencc3.F | 8216 LPERM = 0 8227 LPERM = LPERM + KELMNT - IELMNT 8231 IF(MOD(LPERM,2).EQ.0) THEN
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
H A D | lucia1.F | 2576 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 D | lucia_gencc3.F | 8216 LPERM = 0 8227 LPERM = LPERM + KELMNT - IELMNT 8231 IF(MOD(LPERM,2).EQ.0) THEN
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/gp/ |
H A D | gplucia.F | 3369 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
|