program ch0515 implicit none real, parameter :: atomic_mass_constant = 1.660538921*10**(-27) real, parameter :: avogadro_constant = 6.02214129*10**23 real, parameter :: boltzmann_constant = 1.3806488*10**(-23) real, parameter :: electron_mass = 9.10938291*10**(-31) real, parameter :: elementary_charge = 1.602176565*10**(-19) real, parameter :: proton_mass = 1.672621777*10**(-27) real, parameter :: speed_of_light_in_vacuum = 299792458 real, parameter :: newtonian_constant_of_gravitation = 6.67384*10**(-11) print *, atomic_mass_constant print *, avogadro_constant print *, boltzmann_constant print *, electron_mass print *, elementary_charge print *, proton_mass print *, speed_of_light_in_vacuum print *, newtonian_constant_of_gravitation end program