[823] | 1 | MODULE ISO_FORTRAN_ENV |
---|
| 2 | TYPE LOCK_TYPE |
---|
| 3 | END type LOCK_TYPE |
---|
| 4 | INTEGER, PARAMETER :: ATOMIC_INT_KIND = 8 |
---|
| 5 | INTEGER, PARAMETER :: ATOMIC_LOGICAL_KIND = 8 |
---|
| 6 | |
---|
| 7 | INTEGER, PARAMETER :: CHARACTER_STORAGE_SIZE = 8 |
---|
| 8 | INTEGER, PARAMETER :: ERROR_UNIT = 0 |
---|
| 9 | INTEGER, PARAMETER :: FILE_STORAGE_SIZE = 8 |
---|
| 10 | INTEGER, PARAMETER :: INPUT_UNIT = 5 |
---|
| 11 | INTEGER, PARAMETER :: IOSTAT_END = -1 |
---|
| 12 | INTEGER, PARAMETER :: IOSTAT_EOR = -2 |
---|
| 13 | INTEGER, PARAMETER :: NUMERIC_STORAGE_SIZE = 32 |
---|
| 14 | INTEGER, PARAMETER :: OUTPUT_UNIT = 6 |
---|
| 15 | INTEGER, PARAMETER :: IOSTAT_INQUIRE_INTERNAL_UNIT = 99 |
---|
| 16 | |
---|
| 17 | INTEGER, PARAMETER :: INT8 = 1 |
---|
| 18 | INTEGER, PARAMETER :: INT16 = 2 |
---|
| 19 | INTEGER, PARAMETER :: INT32 = 4 |
---|
| 20 | INTEGER, PARAMETER :: INT64 = 8 |
---|
| 21 | INTEGER, PARAMETER :: LOGICAL8 = 1 |
---|
| 22 | INTEGER, PARAMETER :: LOGICAL16 = 2 |
---|
| 23 | INTEGER, PARAMETER :: LOGICAL32 = 4 |
---|
| 24 | INTEGER, PARAMETER :: LOGICAL64 = 8 |
---|
| 25 | INTEGER, PARAMETER :: REAL32 = 4 |
---|
| 26 | INTEGER, PARAMETER :: REAL64 = 8 |
---|
| 27 | INTEGER, PARAMETER :: REAL128 = 16 |
---|
| 28 | INTEGER, PARAMETER :: INTEGER_KINDS(4) = (/INT8, INT16, INT32, INT64/) |
---|
| 29 | INTEGER, PARAMETER :: LOGICAL_KINDS(4) = (/LOGICAL8, LOGICAL16, LOGICAL32, LOGICAL64/) |
---|
| 30 | INTEGER, PARAMETER :: REAL_KINDS(3) = (/REAL32, REAL64, REAL128/) |
---|
| 31 | |
---|
| 32 | ! Probably have to be adapted on the fly to the platform |
---|
| 33 | ! Just basics ones for a first draft |
---|
| 34 | INTEGER, PARAMETER :: C1 = SELECTED_CHAR_KIND('ascii') |
---|
| 35 | INTEGER, PARAMETER :: C2 = SELECTED_CHAR_KIND('JIS_0213') |
---|
| 36 | INTEGER, PARAMETER :: C3 = SELECTED_CHAR_KIND('UCS_2') |
---|
| 37 | INTEGER, PARAMETER :: C4 = SELECTED_CHAR_KIND('ISO_10646') |
---|
| 38 | INTEGER, PARAMETER :: CHARACTER_KINDS(4) = (/C1, C2, C3, C4/) |
---|
| 39 | |
---|
| 40 | CONTAINS |
---|
| 41 | |
---|
| 42 | FUNCTION COMPILER_OPTIONS() |
---|
| 43 | CHARACTER(LEN=1) :: COMPILER_OPTIONS |
---|
| 44 | END FUNCTION COMPILER_OPTIONS |
---|
| 45 | |
---|
| 46 | FUNCTION COMPILER_VERSION() |
---|
| 47 | CHARACTER(LEN=1) :: COMPILER_VERSION |
---|
| 48 | END FUNCTION COMPILER_VERSION |
---|
| 49 | |
---|
| 50 | END MODULE ISO_FORTRAN_ENV |
---|