datadefn.F90

Go to the documentation of this file.

module datadefn_mod
  use mpi
  implicit none

#ifndef TEST_MODE
  private
#endif

  integer, public, parameter :: string_length=150
  integer, public, parameter :: long_string_length=string_length + 50

  integer, public, parameter :: single_precision = selected_real_kind(6,30)   
  integer, public, parameter :: double_precision = selected_real_kind(15,307) 

  
  integer, public, parameter :: default_precision = double_precision  
  
  integer, public :: precision_type  

  public init_data_defn

contains

  subroutine init_data_defn()
    if (default_precision .eq. double_precision) then
      precision_type = mpi_double_precision
    else
      precision_type = mpi_real
    endif
  end subroutine init_data_defn
end module datadefn_mod