MODULE Convrsns_Module !---------------------------------------------------------------------- ! autoev Multiply by this constant to convert from Hartree's to ! electron volts. ! amutoau Multiply by this constant to convert from atomic mass units ! to electron mass units (atomic units). ! angtoau Multiply by this constant to convert from angstroms to ! Hartree's. ! radtodeg Multiply by this constant to convert from radians to ! degrees. ! cmm1toau Multiply by this constant to convert from inverse centimeters ! to Hartree's. !---------------------------------------------------------------------- USE Numeric_Kinds_Module IMPLICIT NONE SAVE REAL(KIND=dp) autoev, amutoau, angtoau, radtodeg, cmm1toau END MODULE Convrsns_Module