dc_types.f90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright (c) 2000-2019 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
 
module dc_types
  use, intrinsic :: iso_c_binding,    &
       & only: c_int,                 &
       &       c_float,               &
       &       c_double
  use, intrinsic :: iso_fortran_env,  &
       & only: input_unit,            &
       &       output_unit,           &
       &       error_unit
  implicit none
  private
  public :: sp
  public :: sp_eps
  public :: dp
  public :: dp_eps
  public :: token
  public :: string
  public :: stdin
  public :: stdout
  public :: stderr
 
  integer, parameter  :: sp     = c_float
 
  real(sp), parameter :: sp_eps = epsilon(0.0e0)
 
  integer, parameter  :: dp     = c_double
 
  real(dp), parameter :: dp_eps = epsilon(0.0d0)
 
  integer, parameter  :: stdin  = input_unit
 
  integer, parameter  :: stdout = output_unit
 
  integer, parameter  :: stderr = error_unit
 
 
  integer, parameter  :: token  = 32
 
  integer, parameter  :: string = 256
 
end module dc_types