source: XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.f90 @ 501

Last change on this file since 501 was 501, checked in by ymipsl, 10 years ago

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

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