1 LOGICAL SKIP, DIRECT, DIRGRD, CCRSTR, & 2 & FROIMP, FROEXP, NOCCIT, & 3 & CCSAVE, STOLD, JACEXP, LHTR, & 4 & DEBUG, CCSTST, ANAAOD, & 5 & HERDIR, FREEZE, KEEPAOIN, NOEONL, NOSORT, & 6 & HURWITZ_CHECK, & 7 & SIRSOP, LVVVV, ONLYMO, AOSOPPA, & 8 & CCS, CIS, MP2, CC2, CC1A, CC1B, & 9 & MCC2, CCP2, CCD, CCSD, CC3, CCPT, & 10 & CCP3, CCRT, CCR3, CCR1A, CCR1B, CCT, & 11 & rCCD, drCCD, SOSEX, rTCCD, & 12 & CCSDT,CCR12, MTRIP, CHOPT, DCPT2, & 13 & ETACCPT, DIRKAPB, MLCC3, MLCCSDPT 14 15 INTEGER MXDIIS, MXLRV, & 16 & IT2UPD, IT2START, & 17 & ICHANG, IPRINT, KEEPAOTWO, CCSDGNINPLAST 18 19 COMMON /CCSDGNINP/ SKIP, DIRECT, DIRGRD, CCRSTR, & 20 & FROIMP, FROEXP, NOCCIT, & 21 & CCSAVE, STOLD, JACEXP, LHTR, & 22 & DEBUG, CCSTST, ANAAOD, & 23 & MXDIIS, MXLRV, IT2UPD, IT2START, & 24 & ICHANG, IPRINT, KEEPAOTWO, HERDIR, & 25 & ETACCPT, DIRKAPB, & 26 & FREEZE, KEEPAOIN, NOEONL, NOSORT, & 27 & HURWITZ_CHECK, MLCC3, MLCCSDPT, & 28 & SIRSOP, LVVVV, ONLYMO, AOSOPPA 29 30 31 COMMON /CCSDGNINP/ CCSDGNINPLAST 32 ! Very important !!! 33 ! Always keep CCSDGNINPLSDT as the last variable in the common block. 34 ! See GETBYTESPAN(firstvar, <name>last, SizeInBytes) for explanation. 35 36 37 INTEGER CCMODELSLAST 38 COMMON /CCMODELS/ CCS, CIS, MP2, CC2, CC1A, CC1B, & 39 & MCC2, CCP2, CCD, CCSD, CC3, CCPT, & 40 & CCP3, CCRT, CCR3, CCR1A, CCR1B, CCT, & 41 & rCCD, drCCD, SOSEX, rTCCD, & 42 & CCSDT,CCR12,MTRIP, CHOPT, DCPT2 43 COMMON /CCMODELS/ CCMODELSLAST 44 ! Very important !!! 45 ! Always keep CCMODELSLAST as the last variable in the common block. 46 ! See GETBYTESPAN(firstvar, <name>last, SizeInBytes) for explanation. 47 48 49 50 51 52 ! For the RPA models we can calcualte several energies using the 53 ! same set of amplitudes -- this temporary variable is used to store 54 ! one of the energies, the usual variables are reserved for use with 55 ! the choice that could be used in subsequent response or gradient 56 ! calculations 57 ! 58 ! 59 ! 60 ! 61 INTEGER ETMPLAST 62 DOUBLE PRECISION ETMP 63 COMMON/ETMP/ ETMP 64 ! 65 COMMON /ETMP/ ETMPLAST 66 ! Very important !!! 67 ! Always keep ETMPLAST as the last variable in the common block. 68 ! See GETBYTESPAN(firstvar, <name>last, SizeInBytes) for explanation. 69