System platform parameters.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
logical, | public, | parameter | :: | BIG_ENDIAN | = | (iachar(transfer(1, mold='a'))==0) |
Big Endian platform. |
logical, | public, | parameter | :: | LITTLE_ENDIAN | = | .not.BIG_ENDIAN |
Little Endian platform. |
integer, | public, | parameter | :: | PLATFORM_SYSTEM_UNKNOWN | = | 0 |
Unknown OS (invalid). |
integer, | public, | parameter | :: | PLATFORM_SYSTEM_FREEBSD | = | 1 |
FreeBSD. |
integer, | public, | parameter | :: | PLATFORM_SYSTEM_LINUX | = | 2 |
Linux. |
integer, | public, | parameter | :: | PLATFORM_SYSTEM_LAST | = | 2 |
Never use this. |
character(len=*), | public, | parameter | :: | PLATFORM_SYSTEM_NAME | = | 'unknown' | |
integer, | public, | parameter | :: | PLATFORM_SYSTEM | = | PLATFORM_SYSTEM_UNKNOWN |