MODULE module_definitions

  INTEGER, PARAMETER                                     :: r_k = KIND(1.d0)
  REAL(r_k), PARAMETER                                   :: zeroRK = 0.
  REAL(r_k), PARAMETER                                   :: oneRK = 1.
  REAL(r_k), PARAMETER                                   :: twoRK = 2.
  REAL(r_k), PARAMETER                                   :: DegRad = 180.d0/ACOS(-1.)
  CHARACTER(len=100)                                     :: infomsg = 'INFORMATION -- information' // &
    ' -- INFORMATION -- information'
  CHARACTER(len=50)                                      :: warnmsg = 'WARNING -- warning -- ' //     &
    'WARNING -- warning'
  CHARACTER(len=50)                                      :: emsg = 'ERROR -- error -- ERROR -- error'
  ! Fill value at 64 bits
  REAL(r_k)                                              :: fillval64 = 1.e20
  INTEGER                                                :: fillvalI = -99999
  CHARACTER(len=50)                                      :: fname
  CHARACTER(len=256)                                     :: msg

END MODULE module_definitions