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

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

Enhancement : Add scale_factor and add_offset attribute to field output
Operation (field-add_offset)/scale_factor would be computed before output write.
If field attribute prec=2 the field would be rounded to nearest integer value and output as short int (2 bytes).

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