|
Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
|
Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
Go to the source code of this file.
| #define BITSIZE_INT1_F90 BITSIZE_INT1_F90_Y |
Definition at line 88 of file fmath.h.
Referenced by bit_size_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ishft_intrinsic(), ishftc_intrinsic(), not_intrinsic(), and shift_intrinsic().
| #define BITSIZE_INT1_F90_IEEE 8 /* Integer (KIND=1) */ |
| #define BITSIZE_INT1_F90_Y 8 /* Integer (KIND=1) */ |
| #define BITSIZE_INT2_F90 BITSIZE_INT2_F90_Y |
Definition at line 89 of file fmath.h.
Referenced by bit_size_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ishft_intrinsic(), ishftc_intrinsic(), not_intrinsic(), and shift_intrinsic().
| #define BITSIZE_INT2_F90_IEEE 16 /* Integer (KIND=2) */ |
| #define BITSIZE_INT2_F90_Y 16 /* Integer (KIND=2) */ |
| #define BITSIZE_INT4_F90 BITSIZE_INT4_F90_Y |
Definition at line 90 of file fmath.h.
Referenced by bit_size_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ishft_intrinsic(), ishftc_intrinsic(), not_intrinsic(), and shift_intrinsic().
| #define BITSIZE_INT4_F90_IEEE 32 /* Integer (KIND=4) */ |
| #define BITSIZE_INT4_F90_Y 32 /* Integer (KIND=4) */ |
| #define BITSIZE_INT6_F90 BITSIZE_INT6_F90_Y |
| #define BITSIZE_INT6_F90_IEEE 64 /* Integer (KIND=6) */ |
| #define BITSIZE_INT6_F90_Y 46 /* Integer (KIND=6), 46-bit value */ |
| #define BITSIZE_INT8_F90 BITSIZE_INT8_F90_Y |
Definition at line 92 of file fmath.h.
Referenced by bit_size_intrinsic(), iand_intrinsic(), ibits_intrinsic(), ibset_intrinsic(), ishft_intrinsic(), ishftc_intrinsic(), not_intrinsic(), and shift_intrinsic().
| #define BITSIZE_INT8_F90_IEEE 64 /* Integer (KIND=8) */ |
| #define BITSIZE_INT8_F90_Y 64 /* Integer (KIND=8) */ |
| #define DIGITS_INT1_F90 DIGITS_INT1_F90_Y |
Definition at line 145 of file fmath.h.
Referenced by digits_intrinsic().
| #define DIGITS_INT1_F90_IEEE 7 /* Integer (KIND=1) */ |
| #define DIGITS_INT1_F90_Y 7 /* Integer (KIND=1) */ |
| #define DIGITS_INT2_F90 DIGITS_INT2_F90_Y |
Definition at line 146 of file fmath.h.
Referenced by digits_intrinsic().
| #define DIGITS_INT2_F90_IEEE 15 /* Integer (KIND=2) */ |
| #define DIGITS_INT2_F90_Y 15 /* Integer (KIND=2) */ |
| #define DIGITS_INT4_F90 DIGITS_INT4_F90_Y |
Definition at line 147 of file fmath.h.
Referenced by digits_intrinsic().
| #define DIGITS_INT4_F90_IEEE 31 /* Integer (KIND=4) */ |
| #define DIGITS_INT4_F90_Y 31 /* Integer (KIND=4) */ |
| #define DIGITS_INT6_F90 DIGITS_INT6_F90_Y |
| #define DIGITS_INT6_F90_IEEE 63 /* Integer (KIND=6) */ |
| #define DIGITS_INT6_F90_Y 46 /* Integer (KIND=6), 46-bit value */ |
| #define DIGITS_INT8_F90 DIGITS_INT8_F90_Y |
Definition at line 149 of file fmath.h.
Referenced by digits_intrinsic().
| #define DIGITS_INT8_F90_IEEE 63 /* Integer (KIND=8) */ |
| #define DIGITS_INT8_F90_Y 63 /* Integer (KIND=8) */ |
| #define DIGITS_REAL16_F90 DIGITS_REAL16_F90_Y |
Definition at line 152 of file fmath.h.
Referenced by digits_intrinsic(), nearest_intrinsic(), rrspacing_intrinsic(), and spacing_intrinsic().
| #define DIGITS_REAL16_F90_Y 95 /* Real (KIND=16) */ |
| #define DIGITS_REAL4_F90 DIGITS_REAL4_F90_Y |
Definition at line 150 of file fmath.h.
Referenced by digits_intrinsic(), nearest_intrinsic(), rrspacing_intrinsic(), and spacing_intrinsic().
| #define DIGITS_REAL4_F90_IEEE 24 /* Real (KIND=4) */ |
| #define DIGITS_REAL4_F90_Y 24 /* Real (KIND=4) */ |
| #define DIGITS_REAL8_F90 DIGITS_REAL8_F90_Y |
Definition at line 151 of file fmath.h.
Referenced by digits_intrinsic(), nearest_intrinsic(), rrspacing_intrinsic(), and spacing_intrinsic().
| #define DIGITS_REAL8_F90_IEEE 53 /* Real (KIND=8) */ |
| #define DIGITS_REAL8_F90_Y 47 /* Real (KIND=8) */ |
Definition at line 210 of file fmath.h.
Referenced by epsilon_intrinsic().
| #define EPSILON_REAL16_F90_Y 0.50487097934144755546350628178090e-28L |
| #define EPSILON_REAL4_F90 EPSILON_REAL4_F90_Y |
Definition at line 208 of file fmath.h.
Referenced by epsilon_intrinsic().
| #define EPSILON_REAL4_F90_IEEE 1.192092895507812500E-07 /* Real(KIND=4)= */ |
| #define EPSILON_REAL4_F90_Y 0.1192092895507812e-06 |
| #define EPSILON_REAL8_F90 EPSILON_REAL8_F90_Y |
Definition at line 209 of file fmath.h.
Referenced by epsilon_intrinsic().
| #define EPSILON_REAL8_F90_IEEE 2.220446049250313081E-16 /* Real(KIND=8)= */ |
| #define EPSILON_REAL8_F90_Y 0.1421085471520200e-13 |
| #define HUGE_INT1_F90 HUGE_INT1_F90_Y |
Definition at line 298 of file fmath.h.
Referenced by __maxloc(), __maxval(), __minloc(), __minval(), _MAXVAL0__I1(), _MAXVAL0_I1(), _MINVAL0__I1(), _MINVAL0_I1(), gen_loop_end_ir(), and huge_intrinsic().
| #define HUGE_INT1_F90_IEEE 127 /* Integer (KIND=1) */ |
| #define HUGE_INT1_F90_Y 127 /* integer (KIND=1) */ |
| #define HUGE_INT2_F90 HUGE_INT2_F90_Y |
Definition at line 299 of file fmath.h.
Referenced by __maxloc(), __maxval(), __minloc(), __minval(), _MAXVAL0__I2(), _MAXVAL0_I2(), _MINVAL0__I2(), _MINVAL0_I2(), gen_loop_end_ir(), and huge_intrinsic().
| #define HUGE_INT2_F90_IEEE 32767 /* Integer (KIND=2) */ |
| #define HUGE_INT2_F90_Y 32767 /* integer (KIND=2) */ |
| #define HUGE_INT4_F90 HUGE_INT4_F90_Y |
Definition at line 300 of file fmath.h.
Referenced by __maxloc(), __maxval(), __minloc(), __minval(), _MAXVAL0__I4(), _MAXVAL0_I4(), _MINVAL0__I4(), _MINVAL0_I4(), gen_loop_end_ir(), and huge_intrinsic().
| #define HUGE_INT4_F90_IEEE 2147483647 /* Integer (KIND=4) */ |
| #define HUGE_INT4_F90_Y 2147483647 /* integer (KIND=4) */ |
| #define HUGE_INT6_F90 HUGE_INT6_F90_Y |
Definition at line 301 of file fmath.h.
Referenced by __maxloc(), __maxval(), __minloc(), __minval(), _MAXVAL0__I(), _MAXVAL0_I(), _MINVAL0__I(), and _MINVAL0_I().
| #define HUGE_INT6_F90_IEEE 9223372036854775807L /* Integer (KIND=6) */ |
| #define HUGE_INT6_F90_Y 70368744177663 /* integer (KIND=6) */ |
| #define HUGE_INT8_F90 HUGE_INT8_F90_Y |
Definition at line 302 of file fmath.h.
Referenced by __maxloc(), __maxval(), __minloc(), __minval(), _MAXVAL0__J(), _MAXVAL0_J(), _MINVAL0__J(), _MINVAL0_J(), gen_loop_end_ir(), and huge_intrinsic().
| #define HUGE_INT8_F90_IEEE 9223372036854775807L /* Integer (KIND=8) */ |
| #define HUGE_INT8_F90_Y 9223372036854775807 /* integer (KIND=8) */ |
| #define HUGE_REAL16_F90 HUGE_REAL16_F90_Y |
Definition at line 305 of file fmath.h.
Referenced by __maxloc(), __maxval(), __minloc(), __minval(), _MAXLOC__D(), _MAXVAL0__D(), _MAXVAL__D(), _MINLOC__D(), _MINVAL0__D(), _MINVAL__D(), and huge_intrinsic().
| #define HUGE_REAL16_F90_Y 0.1363435169524269911828730305882e+2466L |
| #define HUGE_REAL4_F90 HUGE_REAL4_F90_Y |
Definition at line 303 of file fmath.h.
Referenced by __maxloc(), __maxval(), __minloc(), __minval(), _MAXLOC__S4(), _MAXVAL0__S4(), _MAXVAL0_S4(), _MAXVAL__S4(), _MINLOC__S4(), _MINVAL0__S4(), _MINVAL0_S4(), _MINVAL__S4(), and huge_intrinsic().
| #define HUGE_REAL4_F90_IEEE 3.4028234663852886e+38 /* Real (KIND=4) */ |
| #define HUGE_REAL4_F90_Y 0.13634350882572e+2466 /* 0577757777777600000000 */ |
| #define HUGE_REAL8_F90 HUGE_REAL8_F90_Y |
Definition at line 304 of file fmath.h.
Referenced by __maxloc(), __maxval(), __minloc(), __minval(), _MAXLOC__S(), _MAXVAL0__S(), _MAXVAL0_S(), _MAXVAL__S(), _MINLOC__S(), _MINVAL0__S(), _MINVAL0_S(), _MINVAL__S(), and huge_intrinsic().
| #define HUGE_REAL8_F90_IEEE 1.7976931348623158e+308 /* Real (KIND=8) */ |
| #define HUGE_REAL8_F90_Y 0.136343516952426e+2466 /* 0577757777777777777776 */ |
| #define MAXEXPONENT_F90 MAXEXPONENT_F90_Y |
| #define MAXEXPONENT_F90_Y 8189 |
Definition at line 335 of file fmath.h.
Referenced by maxexponent_intrinsic().
| #define MAXEXPONENT_REAL16_F90_Y 8189 |
Definition at line 333 of file fmath.h.
Referenced by maxexponent_intrinsic().
| #define MAXEXPONENT_REAL4_F90_IEEE 128 |
| #define MAXEXPONENT_REAL4_F90_Y 8189 |
Definition at line 334 of file fmath.h.
Referenced by maxexponent_intrinsic().
| #define MAXEXPONENT_REAL8_F90_IEEE 1024 |
| #define MAXEXPONENT_REAL8_F90_Y 8189 |
| #define MINEXPONENT_F90 MINEXPONENT_F90_Y |
| #define MINEXPONENT_F90_Y -8188 |
Definition at line 374 of file fmath.h.
Referenced by minexponent_intrinsic().
| #define MINEXPONENT_REAL16_F90_Y -8188 |
Definition at line 372 of file fmath.h.
Referenced by minexponent_intrinsic().
| #define MINEXPONENT_REAL4_F90_IEEE -125 |
| #define MINEXPONENT_REAL4_F90_Y -8188 |
Definition at line 373 of file fmath.h.
Referenced by minexponent_intrinsic().
| #define MINEXPONENT_REAL8_F90_IEEE -1021 |
| #define MINEXPONENT_REAL8_F90_Y -8188 |
Definition at line 407 of file fmath.h.
Referenced by folder_driver(), and precision_intrinsic().
| #define PRECISION_REAL16_F90_Y 28 /* real (KIND=16) */ |
Definition at line 405 of file fmath.h.
Referenced by folder_driver(), and precision_intrinsic().
| #define PRECISION_REAL4_F90_IEEE 6 /* real (KIND=4) */ |
| #define PRECISION_REAL4_F90_Y 6 /* real (KIND=4) */ |
Definition at line 406 of file fmath.h.
Referenced by folder_driver(), and precision_intrinsic().
| #define PRECISION_REAL8_F90_IEEE 15 /* real (KIND=8) */ |
| #define PRECISION_REAL8_F90_Y 13 /* real (KIND=8) */ |
| #define RADIX_F90 RADIX_F90_Y |
Definition at line 419 of file fmath.h.
Referenced by radix_intrinsic().
| #define RADIX_F90_IEEE 2 |
| #define RADIX_F90_Y 2 |
| #define RANGE_INT1_F90 RANGE_INT1_F90_Y /* Integer (KIND=1) */ |
Definition at line 480 of file fmath.h.
Referenced by folder_driver(), range_intrinsic(), and selected_int_kind_intrinsic().
| #define RANGE_INT1_F90_IEEE 2 |
| #define RANGE_INT1_F90_Y 2 |
| #define RANGE_INT2_F90 RANGE_INT2_F90_Y /* Integer (KIND=2) */ |
Definition at line 481 of file fmath.h.
Referenced by folder_driver(), interpret_sik_intrinsic(), range_intrinsic(), and selected_int_kind_intrinsic().
| #define RANGE_INT2_F90_IEEE 4 |
| #define RANGE_INT2_F90_Y 4 |
| #define RANGE_INT4_F90 RANGE_INT4_F90_Y /* Integer (KIND=4) */ |
Definition at line 482 of file fmath.h.
Referenced by folder_driver(), interpret_sik_intrinsic(), range_intrinsic(), and selected_int_kind_intrinsic().
| #define RANGE_INT4_F90_IEEE 9 |
| #define RANGE_INT4_F90_Y 9 |
| #define RANGE_INT6_F90 RANGE_INT6_F90_Y /* Integer (KIND=6) */ |
| #define RANGE_INT6_F90_IEEE 18 |
| #define RANGE_INT6_F90_Y 13 |
| #define RANGE_INT8_F90 RANGE_INT8_F90_Y /* Integer (KIND=8) */ |
Definition at line 484 of file fmath.h.
Referenced by folder_driver(), interpret_sik_intrinsic(), range_intrinsic(), and selected_int_kind_intrinsic().
| #define RANGE_INT8_F90_IEEE 18 |
| #define RANGE_INT8_F90_Y 18 |
| #define RANGE_REAL16_F90 RANGE_REAL16_F90_Y /* real (KIND=16) */ |
Definition at line 488 of file fmath.h.
Referenced by folder_driver(), and range_intrinsic().
| #define RANGE_REAL16_F90_Y 2465 |
| #define RANGE_REAL4_F90 RANGE_REAL4_F90_Y /* real (KIND=4) */ |
Definition at line 486 of file fmath.h.
Referenced by folder_driver(), and range_intrinsic().
| #define RANGE_REAL4_F90_IEEE 37 |
| #define RANGE_REAL4_F90_Y 2465 |
| #define RANGE_REAL8_F90 RANGE_REAL8_F90_Y /* real (KIND=8) */ |
Definition at line 487 of file fmath.h.
Referenced by folder_driver(), and range_intrinsic().
| #define RANGE_REAL8_F90_IEEE 307 |
| #define RANGE_REAL8_F90_Y 2465 |
| #define RANGE_REAL_F90 RANGE_REAL_F90_Y /* real (KIND=4) */ |
| #define RANGE_REAL_F90_Y 2465 |
| #define TINY_REAL16_F90 TINY_REAL16_F90_Y /* real (KIND=16) */ |
Definition at line 546 of file fmath.h.
Referenced by tiny_intrinsic().
| #define TINY_REAL16_F90_Y 0.733441547021938866248564956819e-2465L |
| #define TINY_REAL4_F90 TINY_REAL4_F90_Y /* real (KIND=4) */ |
Definition at line 544 of file fmath.h.
Referenced by tiny_intrinsic().
| #define TINY_REAL4_F90_IEEE 1.175494350822287508E-38 /* 2**(-125-1) */ |
| #define TINY_REAL4_F90_Y 0.73344154702194e-2465 /* 0200044000000000000000 */ |
| #define TINY_REAL8_F90 TINY_REAL8_F90_Y /* real (KIND=8) */ |
Definition at line 545 of file fmath.h.
Referenced by tiny_intrinsic().
| #define TINY_REAL8_F90_IEEE 2.225073858507201383E-308 /* 2**(-1021-1) */ |
| #define TINY_REAL8_F90_Y 0.73344154702194e-2465 /* 0200044000000000000000 */ |
1.7.6.1 
