Loading...
Searching...
No Matches
dc_types.f90
Go to the documentation of this file.
1!-----------------------------------------------------------------------
2! Copyright (c) 2000-2019 Gtool Development Group. All rights reserved.
3!-----------------------------------------------------------------------
48
49module dc_types
50 use, intrinsic :: iso_c_binding, &
51 & only: c_int, &
52 & c_float, &
53 & c_double
54 use, intrinsic :: iso_fortran_env, &
55 & only: input_unit, &
56 & output_unit, &
57 & error_unit
58 implicit none
59 private
60 public :: sp
61 public :: sp_eps
62 public :: dp
63 public :: dp_eps
64 public :: token
65 public :: string
66 public :: stdin
67 public :: stdout
68 public :: stderr
69
73 integer, parameter :: sp = c_float
74
78 real(sp), parameter :: sp_eps = epsilon(0.0e0)
79
83 integer, parameter :: dp = c_double
84
88 real(dp), parameter :: dp_eps = epsilon(0.0d0)
89
93 integer, parameter :: stdin = input_unit
94
98 integer, parameter :: stdout = output_unit
99
103 integer, parameter :: stderr = error_unit
104
105
109 integer, parameter :: token = 32
110
118 integer, parameter :: string = 256
119
121end module dc_types
dc_types
Provides kind type parameter values.
Definition dc_types.f90:49
dc_types::sp
integer, parameter, public sp
Single Precision Real number.
Definition dc_types.f90:73
dc_types::sp_eps
real(sp), parameter, public sp_eps
Machine epsilon for single precision real number.
Definition dc_types.f90:78
dc_types::stdin
integer, parameter, public stdin
Unit number for Standard INPUT
Definition dc_types.f90:93
dc_types::stdout
integer, parameter, public stdout
Unit number for Standard OUTPUT
Definition dc_types.f90:98
dc_types::token
integer, parameter, public token
Character length for word, token
Definition dc_types.f90:109
dc_types::dp
integer, parameter, public dp
Double Precision Real number
Definition dc_types.f90:83
dc_types::string
integer, parameter, public string
Character length for string
Definition dc_types.f90:118
dc_types::stderr
integer, parameter, public stderr
Unit number for Standard ERROR
Definition dc_types.f90:103
dc_types::dp_eps
real(dp), parameter, public dp_eps
Machine epsilon for dobule precision real number.
Definition dc_types.f90:88