machine.f

      MODULE machine_post
 
      IMPLICIT NONE
      SAVE
!  Machine dependant constants
      integer kind_io4,kind_io8,kind_phys,kind_rad
      parameter(kind_rad = selected_real_kind(13,60)) ! the '60' maps to 64-bit real
      parameter(kind_phys = selected_real_kind(13,60)) ! the '60' maps to 64-bit real
      parameter(kind_io4 = 4)
      parameter(kind_io8 = 8)
      integer kint_mpi
      parameter(kint_mpi = 4)
 
      END MODULE machine_post