1 ! FILE : onecom.h 2 ! 3 ! internal information for the one-electron integral code in the her1*.F files 4 ! 5 LOGICAL LDIAG, ONECEN, SPHRA, SPHRB, SPHRAB 6 REAL*8 CORAX, CORAY, CORAZ, CORBX, CORBY, CORBZ, SIGNBX, SIGNBY, & 7 & SIGNBZ, HKAB 8 INTEGER NHKTA, NHKTB, KHKTA, KHKTB, KHKTAB, KCKTA, KCKTB, KCKTAB, & 9 & IDENA, IDENB, NCENTA, NCENTB, ICENTA, ICENTB, NUCA, NUCB, & 10 & JSTA, JSTB, MULA, MULB, MAB, JMAX, ISTEPU, ISTEPV, NAHGTF,& 11 & NUMCFA, NUMCFB 12 COMMON /ONECOM/ CORAX, CORAY, CORAZ, CORBX, CORBY, CORBZ, SIGNBX, & 13 & SIGNBY, SIGNBZ, HKAB, NHKTA, NHKTB, KHKTA, KHKTB, & 14 & KHKTAB, KCKTA, KCKTB, KCKTAB, IDENA, IDENB, & 15 & NCENTA, NCENTB, ICENTA, ICENTB, ONECEN, NUCA, & 16 & NUCB, JSTA, JSTB, MULA, MULB, MAB, LDIAG, JMAX, & 17 & ISTEPU, ISTEPV, NAHGTF, NUMCFA, NUMCFB, SPHRAB, & 18 & SPHRA, SPHRB 19 ! --- end of onecom.h --- 20