/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/lucita/ |
H A D | strings.F | 2226 ITPFGS(IGAS) = IGRP(IGAS) 2576 NSTFGS(IGAS) = NNSTSGP(ISMFGS(IGAS),IGAS) 2577 IBSTFGS(IGAS) = IISTSGP(ISMFGS(IGAS),IGAS) 2661 WRITE(6,'(3I6)') IGAS,ISMFGS(IGAS),ITPFGS(IGAS) 3098 IF(MXSM(IGAS).NE.MNSM(IGAS)) NGASL = IGAS 3112 ISM(IGAS) = MNSM(IGAS) 4437 & ' GAS',IGAS,IGSOCC(IGAS,1),IGSOCC(IGAS,2) 4449 MXGSOC(IGAS) = IGSOCC(IGAS,2)-IGSOCC(IGAS-1,1) 4450 MNGSOC(IGAS) = MAX(0,IGSOCC(IGAS,1)-IGSOCC(IGAS-1,2)) 4497 & ' GAS',IGAS,MNGSOC(IGAS),MXGSOC(IGAS) [all …]
|
H A D | ciinfo.F | 97 & IGAS,IRREP,NGSSH(IGAS,IRREP) 701 IEL(IGAS) = NELFSPGP(IGAS,ISPGP) 1494 ISYM(IGAS) = MINVAL(IGAS) 1719 IOCA(IGAS) = IGSMIN(IGAS) 1735 IF(IOCA(IGAS-1).GT.IOCA(IGAS)) KGAS = IGAS 1739 IOCA(IGAS) = IGSMIN(IGAS) 1750 IOC(IGAS) = IOCA(IGAS) 1752 IOC(IGAS) = IOCA(IGAS)-IOCA(IGAS-1) 1956 IF(IGAS.NE.IGSINA.AND.IGAS.NE.IGSDEL) THEN 2098 NOBPTS(IGAS,ISYM) = NGSOB(ISYM,IGAS) [all …]
|
H A D | fock.F | 287 DO IGAS = 1, NGAS 288 MXTSOB_L = MAX(MXTSOB_L,NOBPTS(IGAS,ISM)) 321 DO IGAS = 1, NGAS 324 & ' Fock matrix for ISM IGAS JGAS',ISM,IGAS,JGAS 326 NI = NOBPTS(IGAS,ISM) 327 IF(IGAS.EQ.1) THEN 330 II = II + NOBPTS(IGAS-1,ISM) 344 CALL GETH1(WORK(KLINT),ISM,IGAS,KSM,KGAS) 347 & ' 1-e ints for ISM IGAS KGAS ',ISM,IGAS,KGAS 392 & KGAS,KSM,LGAS,LSM,IGAS,ISM,MGAS,MSM,
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
H A D | gasrou.F | 367 IF(MXSM(IGAS).NE.MNSM(IGAS)) NGASL = IGAS 501 IF(MXSM(IGAS).NE.MNSM(IGAS)) NGASL = IGAS 791 & ' GAS',IGAS,IGSOCC(IGAS,1),IGSOCC(IGAS,2) 821 MXGSOC(IGAS) = IGSOCC(IGAS,2)-IGSOCC(IGAS-1,1) 940 & ' GAS',IGAS,MNGSOC(IGAS),MXGSOC(IGAS) 3109 IOC(IGAS) = IOCA(IGAS)-IOCA(IGAS-1) 3216 IOC(IGAS) = IOCA(IGAS)-IOCA(IGAS-1) 4795 NSTFGS(IGAS) = NNSTSGP(ISMFGS(IGAS),IGAS) 4796 IBSTFGS(IGAS) = IISTSGP(ISMFGS(IGAS),IGAS) 5310 NSTFGS(IGAS) = NNSTSGP(ISMFGS(IGAS),IGAS) [all …]
|
H A D | lucia_cc.F | 212 IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN 1244 L = IGAS 1245 IGAS = JGAS 1298 L = IGAS 1299 IGAS = JGAS 1410 IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN 1533 IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN 1640 & IGAS,JGAS 1644 & IGAS,JGAS 2192 NEL_MIN = IGSOCCX(IGAS,1,ISPC)-IGSOCCX(IGAS-1,2,ISPC) [all …]
|
H A D | lucia_gencc2.F | 104 DO IGAS = 1, NGAS 107 IACT_SPC = IGAS 448 DO IGAS = 1, NGAS 1078 DO IGAS = 1, NGAS 1089 DO IGAS = 1, NGAS 1135 DO IGAS = 1, NGAS 1150 DO IGAS = 1, NGAS 1201 DO IGAS = 1, NGAS 1202 ISTR_OUT_OCC(IGAS) = ISTR_IN_OCC(IGAS) - IAN_OCC(IGAS) 1207 ISTR_OUT_OCC(IGAS) = ISTR_OUT_OCC(IGAS) + ICR_OCC(IGAS) [all …]
|
H A D | lucia_csf.F | 749 IBORB(IGAS) = IBORB(IGAS-1)+NOBPT(IGAS-1) 750 IBEL(IGAS) = IBEL(IGAS-1) + IOCCLS(IGAS-1) 1403 MAXOP_GAS(IGAS) = MIN(NELFTP(IGAS),2*NORBFTP(IGAS)-NELFTP(IGAS)) 1606 IMS2(IGAS) = IAL(IGAS)-IBE(IGAS) 4529 MAXOP_GAS(IGAS) = MIN(NELFTP(IGAS),2*NORBFTP(IGAS)-NELFTP(IGAS)) 6604 & MIN(2*NOBPT(IGAS),IOCC(IGAS)-IGSOCC_MIN(IGAS-1)) 6729 IOCC(IGAS) = IOCC_A(IGAS)-IOCC_A(IGAS-1) 6734 IOCC_A(IGAS) = IOCC(IGAS) + IOCC_A(IGAS-1) 6773 & IGAS, IOCC_MIN(IGAS), IOCC_MAX(IGAS) 9491 JCONF(IGAS) = JCONF(IGAS-1)+IOCCLS(IGAS) [all …]
|
H A D | lucia_gencc.F | 4953 ICREA(IGAS) = IOCCLS(IGAS,JOCCLS) - IOCCLS_REF(IGAS) 5728 IF(NCA(IGAS)-NAA(IGAS)+IREF_AL(IGAS).GT.NOBPT(IGAS)) 5730 IF(NCB(IGAS)-NAB(IGAS)+IREF_BE(IGAS).GT.NOBPT(IGAS)) 7342 IF(MXSM(IGAS).NE.MNSM(IGAS)) NGASL = IGAS 7346 ISM(IGAS) = MNSM(IGAS) 8413 IF(.NOT.( ICA(IGAS) - IAA(IGAS) + IRA(IGAS).EQ.ILA(IGAS))) 8415 IF(.NOT.( ICB(IGAS) - IAB(IGAS) + IRB(IGAS).EQ.ILB(IGAS))) 9170 IOCA(IGAS) = IOCMIN(IGAS) 9186 IF(IOCA(IGAS-1).GT.IOCA(IGAS)) KGAS = IGAS 9203 IOC(IGAS) = IOCA(IGAS)-IOCA(IGAS-1) [all …]
|
H A D | lucia_ic2.F | 58 DO IGAS = 1, NGAS 61 IOP(IGAS) = 1 102 DO IGAS = 1, NGAS 103 DO JGAS = 1, IGAS 107 IOP(IGAS) = 1
|
H A D | lucia_icci0.F | 115 DO IGAS = 1, NGAS 116 NI = NOBPTS(IGAS,ISM) 117 I_OFF = IOBPTS(IGAS,ISM) 118 IF(IGAS.EQ.1) THEN 121 IS_OFF = IS_OFF + NOBPTS(IGAS-1,ISM) 149 IJKL_ACT = I_DX_CCACT(IGAS,KGAS,JGAS,LGAS) 208 IGAS = ITPFSO(IABS) 214 & IGAS.EQ.KGAS.AND.JGAS.EQ.LGAS ) THEN 220 IREL = IABS - IOBPTS(IGAS,ISM) + 1 227 CALL I_OFF_DX(IOFF,ITRNSP,IGAS,ISM,JGAS,JSM,KGAS,KSM,LGAS,LSM, [all …]
|
H A D | lucia_akbk.F | 608 DO IGAS = 1, NGAS 609 IDIFF = IDIFF + ABS(IOCCLS(IGAS,IL)-IOCCLS(IGAS,IR)) 4643 & ' GAS',IGAS,gasocc(IGAS,1),gasocc(IGAS,2),yesno 5159 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 5743 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6026 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6228 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6493 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6612 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6737 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) [all …]
|
H A D | lucia5.F | 1261 ISYM(IGAS) = MINVAL(IGAS) 1541 ISMFGS(IGAS) = MINVAL_AC(IGAS) 1662 ITPFGS(IGAS) = ISPGPFTP(IGAS,ISPGPABS) 1663 NELFGS(IGAS) = NELFGP(ITPFGS(IGAS)) 1664 IF(NELFGS(IGAS).GT.0) NGASL = IGAS 1709 ISMFGS(IGAS) = MINVAL(IGAS) 5651 ITPFGS(IGAS) = IGRP(IGAS) 5653 IF(NELFGS(IGAS).GT.0) NGASL = IGAS 5688 ISMFGS(IGAS) = MINVAL(IGAS) 7085 IGRP(IGAS) = ISPGPFTP(IGAS,ISPGPABS) [all …]
|
H A D | rsbb2b_m.F | 161 DO IGAS = 1, NGAS 162 IF(IPHGAS(IGAS).EQ.2) THEN 163 LHOLEA = LHOLEA + JAOCC(IGAS) 164 LHOLEB = LHOLEB + JBOCC(IGAS)
|
H A D | lucia_gencc3.F | 157 ICAAB_OUT(IGAS,ICABA) = ICAAB_IN(IGAS,ICAAB) 2166 & NELMNT*IBION(NOBPT(IGAS),ISPOBEX(IGAS,ICAAB,JSPOBEX)) 2184 IF(2*KSPOBEX(IGAS,ICAAB).GT.NOBPT(IGAS)) THEN 2187 & /(NOBPT(IGAS)-KSPOBEX(IGAS,ICAAB)+1) 2638 IOPTOCC(IGAS,2+IAB) = IOPTOCC(IGAS,2+IAB)-IOPOCC(IGAS,IAB) 2641 IOPTOCC(IGAS,2+IAB) = IOPTOCC(IGAS,2+IAB)+IOPOCC(IGAS,2+IAB) 2644 IOPTOCC(IGAS,IAB) = IOPTOCC(IGAS,IAB) - IOPOCC(IGAS,2+IAB) 2647 IOPTOCC(IGAS,IAB) = IOPTOCC(IGAS,IAB) + IOPOCC(IGAS,IAB) 2655 IF(IOPTOCC(IGAS,ICAAB).GT.NOBPT(IGAS)) IMZERO = 1 6010 IOPE(IGAS,I_ABCA) = IOPE(IGAS,I_ABCA) + 1 [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
H A D | gasrou.F | 367 IF(MXSM(IGAS).NE.MNSM(IGAS)) NGASL = IGAS 501 IF(MXSM(IGAS).NE.MNSM(IGAS)) NGASL = IGAS 791 & ' GAS',IGAS,IGSOCC(IGAS,1),IGSOCC(IGAS,2) 821 MXGSOC(IGAS) = IGSOCC(IGAS,2)-IGSOCC(IGAS-1,1) 940 & ' GAS',IGAS,MNGSOC(IGAS),MXGSOC(IGAS) 3109 IOC(IGAS) = IOCA(IGAS)-IOCA(IGAS-1) 3216 IOC(IGAS) = IOCA(IGAS)-IOCA(IGAS-1) 4795 NSTFGS(IGAS) = NNSTSGP(ISMFGS(IGAS),IGAS) 4796 IBSTFGS(IGAS) = IISTSGP(ISMFGS(IGAS),IGAS) 5310 NSTFGS(IGAS) = NNSTSGP(ISMFGS(IGAS),IGAS) [all …]
|
H A D | lucia_cc.F | 212 IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN 1244 L = IGAS 1245 IGAS = JGAS 1298 L = IGAS 1299 IGAS = JGAS 1410 IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN 1533 IF(IGAS.GT.KGAS.OR.(IGAS.EQ.KGAS.AND.JGAS.GT.LGAS)) THEN 1640 & IGAS,JGAS 1644 & IGAS,JGAS 2192 NEL_MIN = IGSOCCX(IGAS,1,ISPC)-IGSOCCX(IGAS-1,2,ISPC) [all …]
|
H A D | lucia_gencc2.F | 104 DO IGAS = 1, NGAS 107 IACT_SPC = IGAS 448 DO IGAS = 1, NGAS 1078 DO IGAS = 1, NGAS 1089 DO IGAS = 1, NGAS 1135 DO IGAS = 1, NGAS 1150 DO IGAS = 1, NGAS 1201 DO IGAS = 1, NGAS 1202 ISTR_OUT_OCC(IGAS) = ISTR_IN_OCC(IGAS) - IAN_OCC(IGAS) 1207 ISTR_OUT_OCC(IGAS) = ISTR_OUT_OCC(IGAS) + ICR_OCC(IGAS) [all …]
|
H A D | lucia_csf.F | 749 IBORB(IGAS) = IBORB(IGAS-1)+NOBPT(IGAS-1) 750 IBEL(IGAS) = IBEL(IGAS-1) + IOCCLS(IGAS-1) 1403 MAXOP_GAS(IGAS) = MIN(NELFTP(IGAS),2*NORBFTP(IGAS)-NELFTP(IGAS)) 1606 IMS2(IGAS) = IAL(IGAS)-IBE(IGAS) 4529 MAXOP_GAS(IGAS) = MIN(NELFTP(IGAS),2*NORBFTP(IGAS)-NELFTP(IGAS)) 6604 & MIN(2*NOBPT(IGAS),IOCC(IGAS)-IGSOCC_MIN(IGAS-1)) 6729 IOCC(IGAS) = IOCC_A(IGAS)-IOCC_A(IGAS-1) 6734 IOCC_A(IGAS) = IOCC(IGAS) + IOCC_A(IGAS-1) 6773 & IGAS, IOCC_MIN(IGAS), IOCC_MAX(IGAS) 9491 JCONF(IGAS) = JCONF(IGAS-1)+IOCCLS(IGAS) [all …]
|
H A D | lucia_gencc.F | 4953 ICREA(IGAS) = IOCCLS(IGAS,JOCCLS) - IOCCLS_REF(IGAS) 5728 IF(NCA(IGAS)-NAA(IGAS)+IREF_AL(IGAS).GT.NOBPT(IGAS)) 5730 IF(NCB(IGAS)-NAB(IGAS)+IREF_BE(IGAS).GT.NOBPT(IGAS)) 7342 IF(MXSM(IGAS).NE.MNSM(IGAS)) NGASL = IGAS 7346 ISM(IGAS) = MNSM(IGAS) 8413 IF(.NOT.( ICA(IGAS) - IAA(IGAS) + IRA(IGAS).EQ.ILA(IGAS))) 8415 IF(.NOT.( ICB(IGAS) - IAB(IGAS) + IRB(IGAS).EQ.ILB(IGAS))) 9170 IOCA(IGAS) = IOCMIN(IGAS) 9186 IF(IOCA(IGAS-1).GT.IOCA(IGAS)) KGAS = IGAS 9203 IOC(IGAS) = IOCA(IGAS)-IOCA(IGAS-1) [all …]
|
H A D | lucia_ic2.F | 58 DO IGAS = 1, NGAS 61 IOP(IGAS) = 1 102 DO IGAS = 1, NGAS 103 DO JGAS = 1, IGAS 107 IOP(IGAS) = 1
|
H A D | lucia_icci0.F | 115 DO IGAS = 1, NGAS 116 NI = NOBPTS(IGAS,ISM) 117 I_OFF = IOBPTS(IGAS,ISM) 118 IF(IGAS.EQ.1) THEN 121 IS_OFF = IS_OFF + NOBPTS(IGAS-1,ISM) 149 IJKL_ACT = I_DX_CCACT(IGAS,KGAS,JGAS,LGAS) 208 IGAS = ITPFSO(IABS) 214 & IGAS.EQ.KGAS.AND.JGAS.EQ.LGAS ) THEN 220 IREL = IABS - IOBPTS(IGAS,ISM) + 1 227 CALL I_OFF_DX(IOFF,ITRNSP,IGAS,ISM,JGAS,JSM,KGAS,KSM,LGAS,LSM, [all …]
|
H A D | lucia_akbk.F | 608 DO IGAS = 1, NGAS 609 IDIFF = IDIFF + ABS(IOCCLS(IGAS,IL)-IOCCLS(IGAS,IR)) 4643 & ' GAS',IGAS,gasocc(IGAS,1),gasocc(IGAS,2),yesno 5159 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 5743 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6031 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6233 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6498 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6617 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) 6742 & ' GAS',IGAS,IGSOCCX(IGAS,1,ICISPC),IGSOCCX(IGAS,2,ICISPC) [all …]
|
H A D | lucia5.F | 1261 ISYM(IGAS) = MINVAL(IGAS) 1541 ISMFGS(IGAS) = MINVAL_AC(IGAS) 1662 ITPFGS(IGAS) = ISPGPFTP(IGAS,ISPGPABS) 1663 NELFGS(IGAS) = NELFGP(ITPFGS(IGAS)) 1664 IF(NELFGS(IGAS).GT.0) NGASL = IGAS 1709 ISMFGS(IGAS) = MINVAL(IGAS) 5651 ITPFGS(IGAS) = IGRP(IGAS) 5653 IF(NELFGS(IGAS).GT.0) NGASL = IGAS 5688 ISMFGS(IGAS) = MINVAL(IGAS) 7085 IGRP(IGAS) = ISPGPFTP(IGAS,ISPGPABS) [all …]
|
H A D | rsbb2b_m.F | 161 DO IGAS = 1, NGAS 162 IF(IPHGAS(IGAS).EQ.2) THEN 163 LHOLEA = LHOLEA + JAOCC(IGAS) 164 LHOLEB = LHOLEB + JBOCC(IGAS)
|
H A D | lucia_gencc3.F | 157 ICAAB_OUT(IGAS,ICABA) = ICAAB_IN(IGAS,ICAAB) 2166 & NELMNT*IBION(NOBPT(IGAS),ISPOBEX(IGAS,ICAAB,JSPOBEX)) 2184 IF(2*KSPOBEX(IGAS,ICAAB).GT.NOBPT(IGAS)) THEN 2187 & /(NOBPT(IGAS)-KSPOBEX(IGAS,ICAAB)+1) 2638 IOPTOCC(IGAS,2+IAB) = IOPTOCC(IGAS,2+IAB)-IOPOCC(IGAS,IAB) 2641 IOPTOCC(IGAS,2+IAB) = IOPTOCC(IGAS,2+IAB)+IOPOCC(IGAS,2+IAB) 2644 IOPTOCC(IGAS,IAB) = IOPTOCC(IGAS,IAB) - IOPOCC(IGAS,2+IAB) 2647 IOPTOCC(IGAS,IAB) = IOPTOCC(IGAS,IAB) + IOPOCC(IGAS,IAB) 2655 IF(IOPTOCC(IGAS,ICAAB).GT.NOBPT(IGAS)) IMZERO = 1 6010 IOPE(IGAS,I_ABCA) = IOPE(IGAS,I_ABCA) + 1 [all …]
|