module globals

  implicit none

  integer, parameter :: wp = selected_real_kind(p=14)

end module globals