source: XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90 @ 326

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

port to gfortran/g++

YM

File size: 7.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE filegroup_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_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
15      INTEGER  (kind = C_INT)     , VALUE        :: description_size
16    END SUBROUTINE cxios_set_filegroup_description
17   
18    SUBROUTINE cxios_get_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
22      INTEGER  (kind = C_INT)     , VALUE        :: description_size
23    END SUBROUTINE cxios_get_filegroup_description
24   
25   
26    SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
27      USE ISO_C_BINDING
28      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
29      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
30    END SUBROUTINE cxios_set_filegroup_enabled
31   
32    SUBROUTINE cxios_get_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
35      LOGICAL (KIND=C_BOOL)             :: enabled
36    END SUBROUTINE cxios_get_filegroup_enabled
37   
38   
39    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
42      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
43      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
44    END SUBROUTINE cxios_set_filegroup_group_ref
45   
46    SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
47      USE ISO_C_BINDING
48      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
49      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
50      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
51    END SUBROUTINE cxios_get_filegroup_group_ref
52   
53   
54    SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
57      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
58      INTEGER  (kind = C_INT)     , VALUE        :: name_size
59    END SUBROUTINE cxios_set_filegroup_name
60   
61    SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
62      USE ISO_C_BINDING
63      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
64      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
65      INTEGER  (kind = C_INT)     , VALUE        :: name_size
66    END SUBROUTINE cxios_get_filegroup_name
67   
68   
69    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
70      USE ISO_C_BINDING
71      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
72      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
73      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
74    END SUBROUTINE cxios_set_filegroup_name_suffix
75   
76    SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
77      USE ISO_C_BINDING
78      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
79      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
80      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
81    END SUBROUTINE cxios_get_filegroup_name_suffix
82   
83   
84    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C)
85      USE ISO_C_BINDING
86      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
87      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
88      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
89    END SUBROUTINE cxios_set_filegroup_output_freq
90   
91    SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
94      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
95      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
96    END SUBROUTINE cxios_get_filegroup_output_freq
97   
98   
99    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
102      INTEGER (KIND=C_INT)      , VALUE :: output_level
103    END SUBROUTINE cxios_set_filegroup_output_level
104   
105    SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
106      USE ISO_C_BINDING
107      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
108      INTEGER (KIND=C_INT)             :: output_level
109    END SUBROUTINE cxios_get_filegroup_output_level
110   
111   
112    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
115      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
116      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
117    END SUBROUTINE cxios_set_filegroup_split_freq
118   
119    SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
122      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
123      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
124    END SUBROUTINE cxios_get_filegroup_split_freq
125   
126   
127    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C)
128      USE ISO_C_BINDING
129      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
130      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
131      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
132    END SUBROUTINE cxios_set_filegroup_sync_freq
133   
134    SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C)
135      USE ISO_C_BINDING
136      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
137      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
138      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
139    END SUBROUTINE cxios_get_filegroup_sync_freq
140   
141   
142    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
143      USE ISO_C_BINDING
144      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
145      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
146      INTEGER  (kind = C_INT)     , VALUE        :: type_size
147    END SUBROUTINE cxios_set_filegroup_type
148   
149    SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
150      USE ISO_C_BINDING
151      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
152      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
153      INTEGER  (kind = C_INT)     , VALUE        :: type_size
154    END SUBROUTINE cxios_get_filegroup_type
155   
156   
157    END INTERFACE
158 
159END MODULE filegroup_interface_attr
Note: See TracBrowser for help on using the repository browser.