source: XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90 @ 415

Last change on this file since 415 was 415, checked in by ymipsl, 11 years ago

Add grid mask attribute

YM
File size: 8.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE filegroup_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_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
15      INTEGER  (kind = C_INT)     , VALUE        :: description_size
16    END SUBROUTINE cxios_set_filegroup_description
17   
18    SUBROUTINE cxios_get_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
22      INTEGER  (kind = C_INT)     , VALUE        :: description_size
23    END SUBROUTINE cxios_get_filegroup_description
24   
25   
26    SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
27      USE ISO_C_BINDING
28      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
29      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
30    END SUBROUTINE cxios_set_filegroup_enabled
31   
32    SUBROUTINE cxios_get_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
35      LOGICAL (KIND=C_BOOL)             :: enabled
36    END SUBROUTINE cxios_get_filegroup_enabled
37   
38   
39    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
42      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
43      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
44    END SUBROUTINE cxios_set_filegroup_group_ref
45   
46    SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
47      USE ISO_C_BINDING
48      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
49      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
50      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
51    END SUBROUTINE cxios_get_filegroup_group_ref
52   
53   
54    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
57      INTEGER (KIND=C_INT)      , VALUE :: min_digits
58    END SUBROUTINE cxios_set_filegroup_min_digits
59   
60    SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
63      INTEGER (KIND=C_INT)             :: min_digits
64    END SUBROUTINE cxios_get_filegroup_min_digits
65   
66   
67    SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
68      USE ISO_C_BINDING
69      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
70      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
71      INTEGER  (kind = C_INT)     , VALUE        :: name_size
72    END SUBROUTINE cxios_set_filegroup_name
73   
74    SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
75      USE ISO_C_BINDING
76      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
77      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
78      INTEGER  (kind = C_INT)     , VALUE        :: name_size
79    END SUBROUTINE cxios_get_filegroup_name
80   
81   
82    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
83      USE ISO_C_BINDING
84      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
85      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
86      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
87    END SUBROUTINE cxios_set_filegroup_name_suffix
88   
89    SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
90      USE ISO_C_BINDING
91      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
92      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
93      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
94    END SUBROUTINE cxios_get_filegroup_name_suffix
95   
96   
97    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
101      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
102    END SUBROUTINE cxios_set_filegroup_output_freq
103   
104    SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C)
105      USE ISO_C_BINDING
106      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
107      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
108      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
109    END SUBROUTINE cxios_get_filegroup_output_freq
110   
111   
112    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
115      INTEGER (KIND=C_INT)      , VALUE :: output_level
116    END SUBROUTINE cxios_set_filegroup_output_level
117   
118    SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
119      USE ISO_C_BINDING
120      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
121      INTEGER (KIND=C_INT)             :: output_level
122    END SUBROUTINE cxios_get_filegroup_output_level
123   
124   
125    SUBROUTINE cxios_set_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
126      USE ISO_C_BINDING
127      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
128      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
129      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
130    END SUBROUTINE cxios_set_filegroup_par_access
131   
132    SUBROUTINE cxios_get_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
135      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
136      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
137    END SUBROUTINE cxios_get_filegroup_par_access
138   
139   
140    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C)
141      USE ISO_C_BINDING
142      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
143      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
144      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
145    END SUBROUTINE cxios_set_filegroup_split_freq
146   
147    SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C)
148      USE ISO_C_BINDING
149      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
150      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
151      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
152    END SUBROUTINE cxios_get_filegroup_split_freq
153   
154   
155    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
158      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
159      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
160    END SUBROUTINE cxios_set_filegroup_sync_freq
161   
162    SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
165      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
166      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
167    END SUBROUTINE cxios_get_filegroup_sync_freq
168   
169   
170    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
171      USE ISO_C_BINDING
172      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
173      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
174      INTEGER  (kind = C_INT)     , VALUE        :: type_size
175    END SUBROUTINE cxios_set_filegroup_type
176   
177    SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
180      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
181      INTEGER  (kind = C_INT)     , VALUE        :: type_size
182    END SUBROUTINE cxios_get_filegroup_type
183   
184   
185    END INTERFACE
186 
187END MODULE filegroup_interface_attr
Note: See TracBrowser for help on using the repository browser.