module physconst

  use typedef, only: &
       real64

  implicit none

  real(kind=real64), parameter :: &
       GRAV = 6.67430d-8, &
       CLIGHT = 29979245800.d0

end module physconst