source: XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90 @ 581

Last change on this file since 581 was 581, checked in by rlacroix, 9 years ago

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 19.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE fieldgroup_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_fieldgroup_add_offset(fieldgroup_hdl, add_offset) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
15      REAL (KIND=C_DOUBLE)      , VALUE :: add_offset
16    END SUBROUTINE cxios_set_fieldgroup_add_offset
17
18    SUBROUTINE cxios_get_fieldgroup_add_offset(fieldgroup_hdl, add_offset) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
21      REAL (KIND=C_DOUBLE)             :: add_offset
22    END SUBROUTINE cxios_get_fieldgroup_add_offset
23
24    FUNCTION cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_add_offset
27      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
28    END FUNCTION cxios_is_defined_fieldgroup_add_offset
29
30
31    SUBROUTINE cxios_set_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
34      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
35      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
36    END SUBROUTINE cxios_set_fieldgroup_axis_ref
37
38    SUBROUTINE cxios_get_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
41      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
42      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
43    END SUBROUTINE cxios_get_fieldgroup_axis_ref
44
45    FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_axis_ref
48      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
49    END FUNCTION cxios_is_defined_fieldgroup_axis_ref
50
51
52    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
55      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
56    END SUBROUTINE cxios_set_fieldgroup_default_value
57
58    SUBROUTINE cxios_get_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
61      REAL (KIND=C_DOUBLE)             :: default_value
62    END SUBROUTINE cxios_get_fieldgroup_default_value
63
64    FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value
67      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
68    END FUNCTION cxios_is_defined_fieldgroup_default_value
69
70
71    SUBROUTINE cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
74      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
75    END SUBROUTINE cxios_set_fieldgroup_detect_missing_value
76
77    SUBROUTINE cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
80      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
81    END SUBROUTINE cxios_get_fieldgroup_detect_missing_value
82
83    FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_detect_missing_value
86      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
87    END FUNCTION cxios_is_defined_fieldgroup_detect_missing_value
88
89
90    SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
93      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
94      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
95    END SUBROUTINE cxios_set_fieldgroup_domain_ref
96
97    SUBROUTINE cxios_get_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
101      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
102    END SUBROUTINE cxios_get_fieldgroup_domain_ref
103
104    FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl) BIND(C)
105      USE ISO_C_BINDING
106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref
107      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
108    END FUNCTION cxios_is_defined_fieldgroup_domain_ref
109
110
111    SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
112      USE ISO_C_BINDING
113      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
114      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
115    END SUBROUTINE cxios_set_fieldgroup_enabled
116
117    SUBROUTINE cxios_get_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
118      USE ISO_C_BINDING
119      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
120      LOGICAL (KIND=C_BOOL)             :: enabled
121    END SUBROUTINE cxios_get_fieldgroup_enabled
122
123    FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl) BIND(C)
124      USE ISO_C_BINDING
125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled
126      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
127    END FUNCTION cxios_is_defined_fieldgroup_enabled
128
129
130    SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
131      USE ISO_C_BINDING
132      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
133      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
134      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
135    END SUBROUTINE cxios_set_fieldgroup_field_ref
136
137    SUBROUTINE cxios_get_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
138      USE ISO_C_BINDING
139      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
140      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
141      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
142    END SUBROUTINE cxios_get_fieldgroup_field_ref
143
144    FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl) BIND(C)
145      USE ISO_C_BINDING
146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref
147      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
148    END FUNCTION cxios_is_defined_fieldgroup_field_ref
149
150
151    SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
152      USE ISO_C_BINDING
153      USE IDURATION
154      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
155      TYPE(txios(duration)), VALUE :: freq_offset
156    END SUBROUTINE cxios_set_fieldgroup_freq_offset
157
158    SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
159      USE ISO_C_BINDING
160      USE IDURATION
161      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
162      TYPE(txios(duration)) :: freq_offset
163    END SUBROUTINE cxios_get_fieldgroup_freq_offset
164
165    FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset
168      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
169    END FUNCTION cxios_is_defined_fieldgroup_freq_offset
170
171
172    SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
173      USE ISO_C_BINDING
174      USE IDURATION
175      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
176      TYPE(txios(duration)), VALUE :: freq_op
177    END SUBROUTINE cxios_set_fieldgroup_freq_op
178
179    SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
180      USE ISO_C_BINDING
181      USE IDURATION
182      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
183      TYPE(txios(duration)) :: freq_op
184    END SUBROUTINE cxios_get_fieldgroup_freq_op
185
186    FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl) BIND(C)
187      USE ISO_C_BINDING
188      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op
189      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
190    END FUNCTION cxios_is_defined_fieldgroup_freq_op
191
192
193    SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
194      USE ISO_C_BINDING
195      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
196      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
197      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
198    END SUBROUTINE cxios_set_fieldgroup_grid_ref
199
200    SUBROUTINE cxios_get_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
201      USE ISO_C_BINDING
202      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
203      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
204      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
205    END SUBROUTINE cxios_get_fieldgroup_grid_ref
206
207    FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl) BIND(C)
208      USE ISO_C_BINDING
209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref
210      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
211    END FUNCTION cxios_is_defined_fieldgroup_grid_ref
212
213
214    SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
215      USE ISO_C_BINDING
216      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
217      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
218      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
219    END SUBROUTINE cxios_set_fieldgroup_group_ref
220
221    SUBROUTINE cxios_get_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
222      USE ISO_C_BINDING
223      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
224      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
225      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
226    END SUBROUTINE cxios_get_fieldgroup_group_ref
227
228    FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl) BIND(C)
229      USE ISO_C_BINDING
230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref
231      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
232    END FUNCTION cxios_is_defined_fieldgroup_group_ref
233
234
235    SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
238      INTEGER (KIND=C_INT)      , VALUE :: level
239    END SUBROUTINE cxios_set_fieldgroup_level
240
241    SUBROUTINE cxios_get_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
242      USE ISO_C_BINDING
243      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
244      INTEGER (KIND=C_INT)             :: level
245    END SUBROUTINE cxios_get_fieldgroup_level
246
247    FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level
250      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
251    END FUNCTION cxios_is_defined_fieldgroup_level
252
253
254    SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
257      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
258      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
259    END SUBROUTINE cxios_set_fieldgroup_long_name
260
261    SUBROUTINE cxios_get_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
264      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
265      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
266    END SUBROUTINE cxios_get_fieldgroup_long_name
267
268    FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl) BIND(C)
269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name
271      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
272    END FUNCTION cxios_is_defined_fieldgroup_long_name
273
274
275    SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
276      USE ISO_C_BINDING
277      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
278      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
279      INTEGER  (kind = C_INT)     , VALUE        :: name_size
280    END SUBROUTINE cxios_set_fieldgroup_name
281
282    SUBROUTINE cxios_get_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
283      USE ISO_C_BINDING
284      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
285      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
286      INTEGER  (kind = C_INT)     , VALUE        :: name_size
287    END SUBROUTINE cxios_get_fieldgroup_name
288
289    FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl) BIND(C)
290      USE ISO_C_BINDING
291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name
292      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
293    END FUNCTION cxios_is_defined_fieldgroup_name
294
295
296    SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
299      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
300      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
301    END SUBROUTINE cxios_set_fieldgroup_operation
302
303    SUBROUTINE cxios_get_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
304      USE ISO_C_BINDING
305      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
306      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
307      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
308    END SUBROUTINE cxios_get_fieldgroup_operation
309
310    FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl) BIND(C)
311      USE ISO_C_BINDING
312      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation
313      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
314    END FUNCTION cxios_is_defined_fieldgroup_operation
315
316
317    SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
318      USE ISO_C_BINDING
319      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
320      INTEGER (KIND=C_INT)      , VALUE :: prec
321    END SUBROUTINE cxios_set_fieldgroup_prec
322
323    SUBROUTINE cxios_get_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
324      USE ISO_C_BINDING
325      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
326      INTEGER (KIND=C_INT)             :: prec
327    END SUBROUTINE cxios_get_fieldgroup_prec
328
329    FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl) BIND(C)
330      USE ISO_C_BINDING
331      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec
332      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
333    END FUNCTION cxios_is_defined_fieldgroup_prec
334
335
336    SUBROUTINE cxios_set_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
337      USE ISO_C_BINDING
338      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
339      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
340    END SUBROUTINE cxios_set_fieldgroup_scale_factor
341
342    SUBROUTINE cxios_get_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
343      USE ISO_C_BINDING
344      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
345      REAL (KIND=C_DOUBLE)             :: scale_factor
346    END SUBROUTINE cxios_get_fieldgroup_scale_factor
347
348    FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl) BIND(C)
349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_scale_factor
351      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
352    END FUNCTION cxios_is_defined_fieldgroup_scale_factor
353
354
355    SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
356      USE ISO_C_BINDING
357      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
358      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
359      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
360    END SUBROUTINE cxios_set_fieldgroup_standard_name
361
362    SUBROUTINE cxios_get_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
363      USE ISO_C_BINDING
364      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
365      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
366      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
367    END SUBROUTINE cxios_get_fieldgroup_standard_name
368
369    FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl) BIND(C)
370      USE ISO_C_BINDING
371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name
372      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
373    END FUNCTION cxios_is_defined_fieldgroup_standard_name
374
375
376    SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
377      USE ISO_C_BINDING
378      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
379      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
380      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
381    END SUBROUTINE cxios_set_fieldgroup_unit
382
383    SUBROUTINE cxios_get_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
384      USE ISO_C_BINDING
385      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
386      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
387      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
388    END SUBROUTINE cxios_get_fieldgroup_unit
389
390    FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl) BIND(C)
391      USE ISO_C_BINDING
392      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit
393      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
394    END FUNCTION cxios_is_defined_fieldgroup_unit
395
396
397    SUBROUTINE cxios_set_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
398      USE ISO_C_BINDING
399      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
400      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
401    END SUBROUTINE cxios_set_fieldgroup_valid_max
402
403    SUBROUTINE cxios_get_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
404      USE ISO_C_BINDING
405      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
406      REAL (KIND=C_DOUBLE)             :: valid_max
407    END SUBROUTINE cxios_get_fieldgroup_valid_max
408
409    FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl) BIND(C)
410      USE ISO_C_BINDING
411      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_max
412      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
413    END FUNCTION cxios_is_defined_fieldgroup_valid_max
414
415
416    SUBROUTINE cxios_set_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
417      USE ISO_C_BINDING
418      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
419      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
420    END SUBROUTINE cxios_set_fieldgroup_valid_min
421
422    SUBROUTINE cxios_get_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
423      USE ISO_C_BINDING
424      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
425      REAL (KIND=C_DOUBLE)             :: valid_min
426    END SUBROUTINE cxios_get_fieldgroup_valid_min
427
428    FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl) BIND(C)
429      USE ISO_C_BINDING
430      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_min
431      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
432    END FUNCTION cxios_is_defined_fieldgroup_valid_min
433
434  END INTERFACE
435
436END MODULE fieldgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.