New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
file_interface_attr.f90 in vendors/XIOS/current/src/interface/fortran_attr – NEMO

source: vendors/XIOS/current/src/interface/fortran_attr/file_interface_attr.f90 @ 3428

Last change on this file since 3428 was 3428, checked in by rblod, 12 years ago

importing initial XIOS vendor drop
File size: 6.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE file_interface_attr
6  USE, INTRINSIC :: ISO_C_BINDING
7 
8  INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99
9   
10   
11    SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
15      INTEGER  (kind = C_INT)     , VALUE        :: description_size
16    END SUBROUTINE cxios_set_file_description
17   
18    SUBROUTINE cxios_get_file_description(file_hdl, description, description_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
22      INTEGER  (kind = C_INT)     , VALUE        :: description_size
23    END SUBROUTINE cxios_get_file_description
24   
25   
26    SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C)
27      USE ISO_C_BINDING
28      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
29      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
30    END SUBROUTINE cxios_set_file_enabled
31   
32    SUBROUTINE cxios_get_file_enabled(file_hdl, enabled) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
35      LOGICAL (KIND=C_BOOL)             :: enabled
36    END SUBROUTINE cxios_get_file_enabled
37   
38   
39    SUBROUTINE cxios_set_file_name(file_hdl, name, name_size) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
42      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
43      INTEGER  (kind = C_INT)     , VALUE        :: name_size
44    END SUBROUTINE cxios_set_file_name
45   
46    SUBROUTINE cxios_get_file_name(file_hdl, name, name_size) BIND(C)
47      USE ISO_C_BINDING
48      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
49      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
50      INTEGER  (kind = C_INT)     , VALUE        :: name_size
51    END SUBROUTINE cxios_get_file_name
52   
53   
54    SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
57      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
58      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
59    END SUBROUTINE cxios_set_file_name_suffix
60   
61    SUBROUTINE cxios_get_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
62      USE ISO_C_BINDING
63      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
64      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
65      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
66    END SUBROUTINE cxios_get_file_name_suffix
67   
68   
69    SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C)
70      USE ISO_C_BINDING
71      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
72      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
73      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
74    END SUBROUTINE cxios_set_file_output_freq
75   
76    SUBROUTINE cxios_get_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C)
77      USE ISO_C_BINDING
78      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
79      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
80      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
81    END SUBROUTINE cxios_get_file_output_freq
82   
83   
84    SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C)
85      USE ISO_C_BINDING
86      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
87      INTEGER (KIND=C_INT)      , VALUE :: output_level
88    END SUBROUTINE cxios_set_file_output_level
89   
90    SUBROUTINE cxios_get_file_output_level(file_hdl, output_level) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
93      INTEGER (KIND=C_INT)             :: output_level
94    END SUBROUTINE cxios_get_file_output_level
95   
96   
97    SUBROUTINE cxios_set_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
101      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
102    END SUBROUTINE cxios_set_file_par_access
103   
104    SUBROUTINE cxios_get_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
105      USE ISO_C_BINDING
106      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
107      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
108      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
109    END SUBROUTINE cxios_get_file_par_access
110   
111   
112    SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
115      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
116      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
117    END SUBROUTINE cxios_set_file_split_freq
118   
119    SUBROUTINE cxios_get_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
122      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
123      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
124    END SUBROUTINE cxios_get_file_split_freq
125   
126   
127    SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C)
128      USE ISO_C_BINDING
129      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
130      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
131      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
132    END SUBROUTINE cxios_set_file_sync_freq
133   
134    SUBROUTINE cxios_get_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C)
135      USE ISO_C_BINDING
136      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
137      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
138      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
139    END SUBROUTINE cxios_get_file_sync_freq
140   
141   
142    SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)
143      USE ISO_C_BINDING
144      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
145      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
146      INTEGER  (kind = C_INT)     , VALUE        :: type_size
147    END SUBROUTINE cxios_set_file_type
148   
149    SUBROUTINE cxios_get_file_type(file_hdl, type, type_size) BIND(C)
150      USE ISO_C_BINDING
151      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
152      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
153      INTEGER  (kind = C_INT)     , VALUE        :: type_size
154    END SUBROUTINE cxios_get_file_type
155   
156   
157    END INTERFACE
158 
159END MODULE file_interface_attr
Note: See TracBrowser for help on using the repository browser.