1!
2! Copyright (c) 2017, NVIDIA CORPORATION.  All rights reserved.
3!
4! Licensed under the Apache License, Version 2.0 (the "License");
5! you may not use this file except in compliance with the License.
6! You may obtain a copy of the License at
7!
8!     http://www.apache.org/licenses/LICENSE-2.0
9!
10! Unless required by applicable law or agreed to in writing, software
11! distributed under the License is distributed on an "AS IS" BASIS,
12! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13! See the License for the specific language governing permissions and
14! limitations under the License.
15!
16
17!          THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT
18!   WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT
19!   NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
20!   FITNESS FOR A PARTICULAR PURPOSE.
21!
22
23
24! iso_fortran_env.f90
25! 32/64 bit  linux and windows.  Add further targets as required.
26
27        module ISO_FORTRAN_ENV
28
29	public
30
31	integer CHARACTER_STORAGE_SIZE
32	parameter (CHARACTER_STORAGE_SIZE = 8)
33	integer ERROR_UNIT
34	parameter (ERROR_UNIT = 0)
35	integer FILE_STORAGE_SIZE
36	parameter (FILE_STORAGE_SIZE = 8)
37	integer INPUT_UNIT
38	parameter (INPUT_UNIT = 5)
39	integer IOSTAT_END
40	parameter (IOSTAT_END = -1)
41	integer IOSTAT_EOR
42	parameter (IOSTAT_EOR = -2)
43	integer NUMERIC_STORAGE_SIZE
44	parameter (NUMERIC_STORAGE_SIZE = 32)
45	integer OUTPUT_UNIT
46	parameter (OUTPUT_UNIT = 6)
47
48        integer IOSTAT_INQUIRE_INTERNAL_UNIT
49        parameter (IOSTAT_INQUIRE_INTERNAL_UNIT=99)
50
51	integer INT8
52	parameter (INT8 = 1)
53	integer INT16
54	parameter (INT16 = 2)
55	integer INT32
56	parameter (INT32 = 4)
57	integer INT64
58	parameter (INT64 = 8)
59	integer LOGICAL8
60	parameter (LOGICAL8 = 1)
61	integer LOGICAL16
62	parameter (LOGICAL16 = 2)
63	integer LOGICAL32
64	parameter (LOGICAL32 = 4)
65	integer LOGICAL64
66	parameter (LOGICAL64 = 8)
67	integer REAL32
68	parameter (REAL32 = 4)
69	integer REAL64
70	parameter (REAL64 = 8)
71	integer REAL128
72	parameter (REAL128 = -1)
73
74        integer INTEGER_KINDS(4)
75        parameter (INTEGER_KINDS = (/INT8, INT16, INT32, INT64/))
76        integer LOGICAL_KINDS(4)
77        parameter (LOGICAL_KINDS = (/LOGICAL8, LOGICAL16, LOGICAL32, LOGICAL64/))
78        integer REAL_KINDS(2)
79        parameter (REAL_KINDS = (/REAL32, REAL64/))
80
81        end module  ISO_FORTRAN_ENV
82
83