source: XIOS/trunk/src/interface/fortran_attr/gridgroup_interface_attr.f90 @ 432

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

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM

File size: 6.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE gridgroup_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_gridgroup_axis_ref(gridgroup_hdl, axis_ref, axis_ref_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
15      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
16    END SUBROUTINE cxios_set_gridgroup_axis_ref
17   
18    SUBROUTINE cxios_get_gridgroup_axis_ref(gridgroup_hdl, axis_ref, axis_ref_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
22      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
23    END SUBROUTINE cxios_get_gridgroup_axis_ref
24   
25    FUNCTION cxios_is_defined_gridgroup_axis_ref(gridgroup_hdl ) BIND(C)
26      USE ISO_C_BINDING
27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axis_ref
28      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
29    END FUNCTION cxios_is_defined_gridgroup_axis_ref
30   
31   
32    SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
35      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
36      INTEGER  (kind = C_INT)     , VALUE        :: description_size
37    END SUBROUTINE cxios_set_gridgroup_description
38   
39    SUBROUTINE cxios_get_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
42      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
43      INTEGER  (kind = C_INT)     , VALUE        :: description_size
44    END SUBROUTINE cxios_get_gridgroup_description
45   
46    FUNCTION cxios_is_defined_gridgroup_description(gridgroup_hdl ) BIND(C)
47      USE ISO_C_BINDING
48      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_description
49      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
50    END FUNCTION cxios_is_defined_gridgroup_description
51   
52   
53    SUBROUTINE cxios_set_gridgroup_domain_ref(gridgroup_hdl, domain_ref, domain_ref_size) BIND(C)
54      USE ISO_C_BINDING
55      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
56      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
57      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
58    END SUBROUTINE cxios_set_gridgroup_domain_ref
59   
60    SUBROUTINE cxios_get_gridgroup_domain_ref(gridgroup_hdl, domain_ref, domain_ref_size) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
63      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
64      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
65    END SUBROUTINE cxios_get_gridgroup_domain_ref
66   
67    FUNCTION cxios_is_defined_gridgroup_domain_ref(gridgroup_hdl ) BIND(C)
68      USE ISO_C_BINDING
69      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_domain_ref
70      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
71    END FUNCTION cxios_is_defined_gridgroup_domain_ref
72   
73   
74    SUBROUTINE cxios_set_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C)
75      USE ISO_C_BINDING
76      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
77      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
78      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
79    END SUBROUTINE cxios_set_gridgroup_group_ref
80   
81    SUBROUTINE cxios_get_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C)
82      USE ISO_C_BINDING
83      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
84      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
85      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
86    END SUBROUTINE cxios_get_gridgroup_group_ref
87   
88    FUNCTION cxios_is_defined_gridgroup_group_ref(gridgroup_hdl ) BIND(C)
89      USE ISO_C_BINDING
90      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_group_ref
91      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
92    END FUNCTION cxios_is_defined_gridgroup_group_ref
93   
94   
95    SUBROUTINE cxios_set_gridgroup_mask(gridgroup_hdl, mask, extent1, extent2, extent3) BIND(C)
96      USE ISO_C_BINDING
97      INTEGER (kind = C_INTPTR_T), VALUE       :: gridgroup_hdl
98      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
99      INTEGER (kind = C_INT), VALUE  :: extent1
100      INTEGER (kind = C_INT), VALUE  :: extent2
101      INTEGER (kind = C_INT), VALUE  :: extent3
102    END SUBROUTINE cxios_set_gridgroup_mask
103   
104    SUBROUTINE cxios_get_gridgroup_mask(gridgroup_hdl, mask, extent1, extent2, extent3) BIND(C)
105      USE ISO_C_BINDING
106      INTEGER (kind = C_INTPTR_T), VALUE       :: gridgroup_hdl
107      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
108      INTEGER (kind = C_INT), VALUE  :: extent1
109      INTEGER (kind = C_INT), VALUE  :: extent2
110      INTEGER (kind = C_INT), VALUE  :: extent3
111    END SUBROUTINE cxios_get_gridgroup_mask
112   
113    FUNCTION cxios_is_defined_gridgroup_mask(gridgroup_hdl ) BIND(C)
114      USE ISO_C_BINDING
115      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask
116      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
117    END FUNCTION cxios_is_defined_gridgroup_mask
118   
119   
120    SUBROUTINE cxios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C)
121      USE ISO_C_BINDING
122      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
123      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
124      INTEGER  (kind = C_INT)     , VALUE        :: name_size
125    END SUBROUTINE cxios_set_gridgroup_name
126   
127    SUBROUTINE cxios_get_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C)
128      USE ISO_C_BINDING
129      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
130      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
131      INTEGER  (kind = C_INT)     , VALUE        :: name_size
132    END SUBROUTINE cxios_get_gridgroup_name
133   
134    FUNCTION cxios_is_defined_gridgroup_name(gridgroup_hdl ) BIND(C)
135      USE ISO_C_BINDING
136      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_name
137      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
138    END FUNCTION cxios_is_defined_gridgroup_name
139   
140   
141    END INTERFACE
142 
143END MODULE gridgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.