spec_kind_mod.f90

MODULE spec_kind_mod
!-------------------------------------------------------------------------------
!For REAL variables:
!  Use p=6, r=35   for single precision on 32 bit machine
!  Use p=12,r=100  for double precision on 32 bit machine
!                  for single precision on 64 bit machine
!Parameters for SELECTED_REAL_KIND:
!  p                   -number of digits
!  r                   -range of exponent from -r to r
!-------------------------------------------------------------------------------
INTEGER, PARAMETER :: &
  rspec = selected_real_kind(p=12,r=100), &
  ispec = selected_int_kind(r=8)
 
END MODULE spec_kind_mod