program ch0516
  implicit none
  real, parameter :: atomic_mass_constant = 1.660538921e-27
  real, parameter :: avogadro_constant = 6.02214129e23
  real, parameter :: boltzmann_constant = 1.3806488e-23
  real, parameter :: electron_mass = 9.10938291e-31
  real, parameter :: elementary_charge = 1.602176565e-19
  real, parameter :: proton_mass = 1.672621777e-27
  real, parameter :: speed_of_light_in_vacuum = 299792458
  real, parameter :: newtonian_constant_of_gravitation = 6.67384e-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