minresDataModule.f90

Go to the documentation of this file.

 
 
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! File minresDataModule.f90
!
! Defines real(kind=dp) and a few constants for use in other modules.
!
! 14 Oct 2007: First version implemented after realizing -r8 is not
!              a standard compiler option.
! 15 Oct 2007: Temporarily used real(8) everywhere.
! 16 Oct 2007: Found that we need
!                 use minresDataModule
!              at the beginning of modules AND inside interfaces.
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
module minresdatamodule
  use mpdef, only: mpd
 
  implicit none
 
  !obsolete intrinsic                        ::      selected_real_kind
  integer,       parameter, public :: dp = mpd !selected_real_kind(15)
  real(kind=dp), parameter, public :: zero = 0.0_dp, one = 1.0_dp
 
end module minresdatamodule