65 |
|
|
66 |
C ======== EESIZE.h ======================================== |
C ======== EESIZE.h ======================================== |
67 |
|
|
|
|
|
68 |
C Symbolic values |
C Symbolic values |
69 |
C precXXXX :: precision used for I/O |
C precXXXX :: precision used for I/O |
70 |
INTEGER precFloat32 |
INTEGER precFloat32 |
72 |
INTEGER precFloat64 |
INTEGER precFloat64 |
73 |
PARAMETER ( precFloat64 = 64 ) |
PARAMETER ( precFloat64 = 64 ) |
74 |
|
|
75 |
|
C Real-type constant for some frequently used simple number (0,1,2,1/2): |
76 |
|
_RS zeroRS, oneRS, twoRS, halfRS |
77 |
|
PARAMETER ( zeroRS = 0.0 _d 0 , oneRS = 1.0 _d 0 ) |
78 |
|
PARAMETER ( twoRS = 2.0 _d 0 , halfRS = 0.5 _d 0 ) |
79 |
|
_RL zeroRL, oneRL, twoRL, halfRL |
80 |
|
PARAMETER ( zeroRL = 0.0 _d 0 , oneRL = 1.0 _d 0 ) |
81 |
|
PARAMETER ( twoRL = 2.0 _d 0 , halfRL = 0.5 _d 0 ) |
82 |
|
|
83 |
C UNSET_xxx :: Used to indicate variables that have not been given a value |
C UNSET_xxx :: Used to indicate variables that have not been given a value |
84 |
Real*8 UNSET_FLOAT8 |
Real*8 UNSET_FLOAT8 |
85 |
PARAMETER ( UNSET_FLOAT8 = 1.234567D5 ) |
PARAMETER ( UNSET_FLOAT8 = 1.234567D5 ) |