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