dc_types.f90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
 
module dc_types
  use, intrinsic :: iso_c_binding,    &
    & only: c_int,                    &
    &       c_long_long,              &
    &       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 :: i4
  public :: i8
  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 :: i4 = c_int
 
  integer, parameter :: i8 = c_long_long
 
  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