MODULE Time_Conv_Module USE Numeric_Kinds_Module IMPLICIT NONE SAVE REAL(KIND=dp) time_conv, hbar, hartree END MODULE Time_Conv_Module