source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/fieldgroup_interface_attr.f90 @ 609

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

Add the Fortran interface for the "compression_level" attribute.

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