source: XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90 @ 817

Last change on this file since 817 was 789, checked in by rlacroix, 9 years ago

Domain: Remove the domain_src attribute.

It was added but was never used.
  • 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: 30.4 KB
RevLine 
[326]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
[532]4#include "../fortran/xios_fortran_prefix.hpp"
[326]5
6MODULE domaingroup_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
[581]8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
[674]12    SUBROUTINE cxios_set_domaingroup_area(domaingroup_hdl, area, extent) BIND(C)
[611]13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
15      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
[674]16      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[611]17    END SUBROUTINE cxios_set_domaingroup_area
18
[674]19    SUBROUTINE cxios_get_domaingroup_area(domaingroup_hdl, area, extent) BIND(C)
[611]20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
22      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: area
[674]23      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[611]24    END SUBROUTINE cxios_get_domaingroup_area
25
26    FUNCTION cxios_is_defined_domaingroup_area(domaingroup_hdl) BIND(C)
27      USE ISO_C_BINDING
28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_area
29      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
30    END FUNCTION cxios_is_defined_domaingroup_area
31
32
[674]33    SUBROUTINE cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C)
[449]34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]36      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d
[674]37      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]38    END SUBROUTINE cxios_set_domaingroup_bounds_lat_1d
[581]39
[674]40    SUBROUTINE cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl, bounds_lat_1d, extent) BIND(C)
[449]41      USE ISO_C_BINDING
42      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]43      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d
[674]44      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]45    END SUBROUTINE cxios_get_domaingroup_bounds_lat_1d
[581]46
[664]47    FUNCTION cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl) BIND(C)
[449]48      USE ISO_C_BINDING
[664]49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat_1d
[449]50      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
[664]51    END FUNCTION cxios_is_defined_domaingroup_bounds_lat_1d
[581]52
53
[674]54    SUBROUTINE cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent) BIND(C)
[449]55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]57      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
[674]58      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]59    END SUBROUTINE cxios_set_domaingroup_bounds_lat_2d
[581]60
[674]61    SUBROUTINE cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl, bounds_lat_2d, extent) BIND(C)
[449]62      USE ISO_C_BINDING
63      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]64      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d
[674]65      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]66    END SUBROUTINE cxios_get_domaingroup_bounds_lat_2d
[581]67
[664]68    FUNCTION cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl) BIND(C)
[449]69      USE ISO_C_BINDING
[664]70      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lat_2d
[449]71      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
[664]72    END FUNCTION cxios_is_defined_domaingroup_bounds_lat_2d
[581]73
74
[674]75    SUBROUTINE cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent) BIND(C)
[664]76      USE ISO_C_BINDING
77      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
78      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
[674]79      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]80    END SUBROUTINE cxios_set_domaingroup_bounds_lon_1d
81
[674]82    SUBROUTINE cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl, bounds_lon_1d, extent) BIND(C)
[664]83      USE ISO_C_BINDING
84      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
85      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d
[674]86      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]87    END SUBROUTINE cxios_get_domaingroup_bounds_lon_1d
88
89    FUNCTION cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl) BIND(C)
90      USE ISO_C_BINDING
91      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon_1d
92      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
93    END FUNCTION cxios_is_defined_domaingroup_bounds_lon_1d
94
95
[674]96    SUBROUTINE cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent) BIND(C)
[664]97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
99      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
[674]100      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]101    END SUBROUTINE cxios_set_domaingroup_bounds_lon_2d
102
[674]103    SUBROUTINE cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl, bounds_lon_2d, extent) BIND(C)
[664]104      USE ISO_C_BINDING
105      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
106      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d
[674]107      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]108    END SUBROUTINE cxios_get_domaingroup_bounds_lon_2d
109
110    FUNCTION cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl) BIND(C)
111      USE ISO_C_BINDING
112      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_bounds_lon_2d
113      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
114    END FUNCTION cxios_is_defined_domaingroup_bounds_lon_2d
115
116
[326]117    SUBROUTINE cxios_set_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)
118      USE ISO_C_BINDING
119      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
120      INTEGER (KIND=C_INT)      , VALUE :: data_dim
121    END SUBROUTINE cxios_set_domaingroup_data_dim
[581]122
[326]123    SUBROUTINE cxios_get_domaingroup_data_dim(domaingroup_hdl, data_dim) BIND(C)
124      USE ISO_C_BINDING
125      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
126      INTEGER (KIND=C_INT)             :: data_dim
127    END SUBROUTINE cxios_get_domaingroup_data_dim
[581]128
129    FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl) BIND(C)
[432]130      USE ISO_C_BINDING
131      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim
132      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
133    END FUNCTION cxios_is_defined_domaingroup_data_dim
[581]134
135
[674]136    SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent) BIND(C)
[326]137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
139      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
[674]140      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[326]141    END SUBROUTINE cxios_set_domaingroup_data_i_index
[581]142
[674]143    SUBROUTINE cxios_get_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent) BIND(C)
[326]144      USE ISO_C_BINDING
145      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
146      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_i_index
[674]147      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[326]148    END SUBROUTINE cxios_get_domaingroup_data_i_index
[581]149
150    FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl) BIND(C)
[432]151      USE ISO_C_BINDING
152      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index
153      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
154    END FUNCTION cxios_is_defined_domaingroup_data_i_index
[581]155
156
[326]157    SUBROUTINE cxios_set_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
158      USE ISO_C_BINDING
159      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
160      INTEGER (KIND=C_INT)      , VALUE :: data_ibegin
161    END SUBROUTINE cxios_set_domaingroup_data_ibegin
[581]162
[326]163    SUBROUTINE cxios_get_domaingroup_data_ibegin(domaingroup_hdl, data_ibegin) BIND(C)
164      USE ISO_C_BINDING
165      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
166      INTEGER (KIND=C_INT)             :: data_ibegin
167    END SUBROUTINE cxios_get_domaingroup_data_ibegin
[581]168
169    FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl) BIND(C)
[432]170      USE ISO_C_BINDING
171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin
172      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
173    END FUNCTION cxios_is_defined_domaingroup_data_ibegin
[581]174
175
[674]176    SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent) BIND(C)
[326]177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
179      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
[674]180      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[326]181    END SUBROUTINE cxios_set_domaingroup_data_j_index
[581]182
[674]183    SUBROUTINE cxios_get_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent) BIND(C)
[326]184      USE ISO_C_BINDING
185      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
186      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_j_index
[674]187      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[326]188    END SUBROUTINE cxios_get_domaingroup_data_j_index
[581]189
190    FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl) BIND(C)
[432]191      USE ISO_C_BINDING
192      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index
193      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
194    END FUNCTION cxios_is_defined_domaingroup_data_j_index
[581]195
196
[326]197    SUBROUTINE cxios_set_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
200      INTEGER (KIND=C_INT)      , VALUE :: data_jbegin
201    END SUBROUTINE cxios_set_domaingroup_data_jbegin
[581]202
[326]203    SUBROUTINE cxios_get_domaingroup_data_jbegin(domaingroup_hdl, data_jbegin) BIND(C)
204      USE ISO_C_BINDING
205      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
206      INTEGER (KIND=C_INT)             :: data_jbegin
207    END SUBROUTINE cxios_get_domaingroup_data_jbegin
[581]208
209    FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl) BIND(C)
[432]210      USE ISO_C_BINDING
211      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin
212      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
213    END FUNCTION cxios_is_defined_domaingroup_data_jbegin
[581]214
215
[326]216    SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
217      USE ISO_C_BINDING
218      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
219      INTEGER (KIND=C_INT)      , VALUE :: data_ni
220    END SUBROUTINE cxios_set_domaingroup_data_ni
[581]221
[326]222    SUBROUTINE cxios_get_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C)
223      USE ISO_C_BINDING
224      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
225      INTEGER (KIND=C_INT)             :: data_ni
226    END SUBROUTINE cxios_get_domaingroup_data_ni
[581]227
228    FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl) BIND(C)
[432]229      USE ISO_C_BINDING
230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni
231      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
232    END FUNCTION cxios_is_defined_domaingroup_data_ni
[581]233
234
[326]235    SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
238      INTEGER (KIND=C_INT)      , VALUE :: data_nj
239    END SUBROUTINE cxios_set_domaingroup_data_nj
[581]240
[326]241    SUBROUTINE cxios_get_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C)
242      USE ISO_C_BINDING
243      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
244      INTEGER (KIND=C_INT)             :: data_nj
245    END SUBROUTINE cxios_get_domaingroup_data_nj
[581]246
247    FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl) BIND(C)
[432]248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj
250      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
251    END FUNCTION cxios_is_defined_domaingroup_data_nj
[581]252
253
[546]254    SUBROUTINE cxios_set_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
257      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
258      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
259    END SUBROUTINE cxios_set_domaingroup_domain_ref
[581]260
[546]261    SUBROUTINE cxios_get_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
264      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
265      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
266    END SUBROUTINE cxios_get_domaingroup_domain_ref
[581]267
268    FUNCTION cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl) BIND(C)
[546]269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_ref
271      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
272    END FUNCTION cxios_is_defined_domaingroup_domain_ref
[581]273
274
[326]275    SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
276      USE ISO_C_BINDING
277      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
278      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
279      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
280    END SUBROUTINE cxios_set_domaingroup_group_ref
[581]281
[326]282    SUBROUTINE cxios_get_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C)
283      USE ISO_C_BINDING
284      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
285      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
286      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
287    END SUBROUTINE cxios_get_domaingroup_group_ref
[581]288
289    FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl) BIND(C)
[432]290      USE ISO_C_BINDING
291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref
292      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
293    END FUNCTION cxios_is_defined_domaingroup_group_ref
[581]294
295
[674]296    SUBROUTINE cxios_set_domaingroup_i_index(domaingroup_hdl, i_index, extent) BIND(C)
[467]297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
299      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
[674]300      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[467]301    END SUBROUTINE cxios_set_domaingroup_i_index
[581]302
[674]303    SUBROUTINE cxios_get_domaingroup_i_index(domaingroup_hdl, i_index, extent) BIND(C)
[467]304      USE ISO_C_BINDING
305      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
306      INTEGER (KIND=C_INT)     , DIMENSION(*) :: i_index
[674]307      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[467]308    END SUBROUTINE cxios_get_domaingroup_i_index
[581]309
310    FUNCTION cxios_is_defined_domaingroup_i_index(domaingroup_hdl) BIND(C)
[467]311      USE ISO_C_BINDING
312      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_i_index
313      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
314    END FUNCTION cxios_is_defined_domaingroup_i_index
[581]315
316
[326]317    SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
318      USE ISO_C_BINDING
319      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
320      INTEGER (KIND=C_INT)      , VALUE :: ibegin
321    END SUBROUTINE cxios_set_domaingroup_ibegin
[581]322
[326]323    SUBROUTINE cxios_get_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C)
324      USE ISO_C_BINDING
325      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
326      INTEGER (KIND=C_INT)             :: ibegin
327    END SUBROUTINE cxios_get_domaingroup_ibegin
[581]328
329    FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl) BIND(C)
[432]330      USE ISO_C_BINDING
331      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin
332      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
333    END FUNCTION cxios_is_defined_domaingroup_ibegin
[581]334
335
[674]336    SUBROUTINE cxios_set_domaingroup_j_index(domaingroup_hdl, j_index, extent) BIND(C)
[326]337      USE ISO_C_BINDING
[467]338      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
339      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
[674]340      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[467]341    END SUBROUTINE cxios_set_domaingroup_j_index
[581]342
[674]343    SUBROUTINE cxios_get_domaingroup_j_index(domaingroup_hdl, j_index, extent) BIND(C)
[467]344      USE ISO_C_BINDING
345      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
346      INTEGER (KIND=C_INT)     , DIMENSION(*) :: j_index
[674]347      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[467]348    END SUBROUTINE cxios_get_domaingroup_j_index
[581]349
350    FUNCTION cxios_is_defined_domaingroup_j_index(domaingroup_hdl) BIND(C)
[467]351      USE ISO_C_BINDING
352      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_j_index
353      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
354    END FUNCTION cxios_is_defined_domaingroup_j_index
[581]355
356
[326]357    SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
358      USE ISO_C_BINDING
359      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
360      INTEGER (KIND=C_INT)      , VALUE :: jbegin
361    END SUBROUTINE cxios_set_domaingroup_jbegin
[581]362
[326]363    SUBROUTINE cxios_get_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C)
364      USE ISO_C_BINDING
365      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
366      INTEGER (KIND=C_INT)             :: jbegin
367    END SUBROUTINE cxios_get_domaingroup_jbegin
[581]368
369    FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl) BIND(C)
[432]370      USE ISO_C_BINDING
371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin
372      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
373    END FUNCTION cxios_is_defined_domaingroup_jbegin
[581]374
375
[674]376    SUBROUTINE cxios_set_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent) BIND(C)
[326]377      USE ISO_C_BINDING
378      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]379      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
[674]380      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]381    END SUBROUTINE cxios_set_domaingroup_latvalue_1d
[581]382
[674]383    SUBROUTINE cxios_get_domaingroup_latvalue_1d(domaingroup_hdl, latvalue_1d, extent) BIND(C)
[326]384      USE ISO_C_BINDING
385      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]386      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d
[674]387      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]388    END SUBROUTINE cxios_get_domaingroup_latvalue_1d
[581]389
[664]390    FUNCTION cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl) BIND(C)
[432]391      USE ISO_C_BINDING
[664]392      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue_1d
[432]393      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
[664]394    END FUNCTION cxios_is_defined_domaingroup_latvalue_1d
[581]395
396
[674]397    SUBROUTINE cxios_set_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent) BIND(C)
[664]398      USE ISO_C_BINDING
399      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
400      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
[674]401      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]402    END SUBROUTINE cxios_set_domaingroup_latvalue_2d
403
[674]404    SUBROUTINE cxios_get_domaingroup_latvalue_2d(domaingroup_hdl, latvalue_2d, extent) BIND(C)
[664]405      USE ISO_C_BINDING
406      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
407      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d
[674]408      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]409    END SUBROUTINE cxios_get_domaingroup_latvalue_2d
410
411    FUNCTION cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl) BIND(C)
412      USE ISO_C_BINDING
413      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue_2d
414      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
415    END FUNCTION cxios_is_defined_domaingroup_latvalue_2d
416
417
[326]418    SUBROUTINE cxios_set_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
419      USE ISO_C_BINDING
420      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
421      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
422      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
423    END SUBROUTINE cxios_set_domaingroup_long_name
[581]424
[326]425    SUBROUTINE cxios_get_domaingroup_long_name(domaingroup_hdl, long_name, long_name_size) BIND(C)
426      USE ISO_C_BINDING
427      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
428      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
429      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
430    END SUBROUTINE cxios_get_domaingroup_long_name
[581]431
432    FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl) BIND(C)
[432]433      USE ISO_C_BINDING
434      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name
435      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
436    END FUNCTION cxios_is_defined_domaingroup_long_name
[581]437
438
[674]439    SUBROUTINE cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent) BIND(C)
[326]440      USE ISO_C_BINDING
441      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]442      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
[674]443      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]444    END SUBROUTINE cxios_set_domaingroup_lonvalue_1d
[581]445
[674]446    SUBROUTINE cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl, lonvalue_1d, extent) BIND(C)
[326]447      USE ISO_C_BINDING
448      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]449      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d
[674]450      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]451    END SUBROUTINE cxios_get_domaingroup_lonvalue_1d
[581]452
[664]453    FUNCTION cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl) BIND(C)
[432]454      USE ISO_C_BINDING
[664]455      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue_1d
[432]456      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
[664]457    END FUNCTION cxios_is_defined_domaingroup_lonvalue_1d
[581]458
459
[674]460    SUBROUTINE cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent) BIND(C)
[326]461      USE ISO_C_BINDING
462      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]463      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
[674]464      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]465    END SUBROUTINE cxios_set_domaingroup_lonvalue_2d
[581]466
[674]467    SUBROUTINE cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl, lonvalue_2d, extent) BIND(C)
[326]468      USE ISO_C_BINDING
469      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
[664]470      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d
[674]471      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]472    END SUBROUTINE cxios_get_domaingroup_lonvalue_2d
[581]473
[664]474    FUNCTION cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl) BIND(C)
[432]475      USE ISO_C_BINDING
[664]476      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue_2d
[432]477      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
[664]478    END FUNCTION cxios_is_defined_domaingroup_lonvalue_2d
[581]479
480
[674]481    SUBROUTINE cxios_set_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent) BIND(C)
[664]482      USE ISO_C_BINDING
483      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
484      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
[674]485      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]486    END SUBROUTINE cxios_set_domaingroup_mask_1d
487
[674]488    SUBROUTINE cxios_get_domaingroup_mask_1d(domaingroup_hdl, mask_1d, extent) BIND(C)
[664]489      USE ISO_C_BINDING
490      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
491      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d
[674]492      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]493    END SUBROUTINE cxios_get_domaingroup_mask_1d
494
495    FUNCTION cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl) BIND(C)
496      USE ISO_C_BINDING
497      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask_1d
498      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
499    END FUNCTION cxios_is_defined_domaingroup_mask_1d
500
501
[674]502    SUBROUTINE cxios_set_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent) BIND(C)
[664]503      USE ISO_C_BINDING
504      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
505      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
[674]506      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]507    END SUBROUTINE cxios_set_domaingroup_mask_2d
508
[674]509    SUBROUTINE cxios_get_domaingroup_mask_2d(domaingroup_hdl, mask_2d, extent) BIND(C)
[664]510      USE ISO_C_BINDING
511      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl
512      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d
[674]513      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[664]514    END SUBROUTINE cxios_get_domaingroup_mask_2d
515
516    FUNCTION cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl) BIND(C)
517      USE ISO_C_BINDING
518      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask_2d
519      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
520    END FUNCTION cxios_is_defined_domaingroup_mask_2d
521
522
[326]523    SUBROUTINE cxios_set_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
524      USE ISO_C_BINDING
525      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
526      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
527      INTEGER  (kind = C_INT)     , VALUE        :: name_size
528    END SUBROUTINE cxios_set_domaingroup_name
[581]529
[326]530    SUBROUTINE cxios_get_domaingroup_name(domaingroup_hdl, name, name_size) BIND(C)
531      USE ISO_C_BINDING
532      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
533      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
534      INTEGER  (kind = C_INT)     , VALUE        :: name_size
535    END SUBROUTINE cxios_get_domaingroup_name
[581]536
537    FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl) BIND(C)
[432]538      USE ISO_C_BINDING
539      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name
540      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
541    END FUNCTION cxios_is_defined_domaingroup_name
[581]542
543
[326]544    SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
545      USE ISO_C_BINDING
546      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
547      INTEGER (KIND=C_INT)      , VALUE :: ni
548    END SUBROUTINE cxios_set_domaingroup_ni
[581]549
[326]550    SUBROUTINE cxios_get_domaingroup_ni(domaingroup_hdl, ni) BIND(C)
551      USE ISO_C_BINDING
552      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
553      INTEGER (KIND=C_INT)             :: ni
554    END SUBROUTINE cxios_get_domaingroup_ni
[581]555
556    FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl) BIND(C)
[432]557      USE ISO_C_BINDING
558      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni
559      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
560    END FUNCTION cxios_is_defined_domaingroup_ni
[581]561
562
[326]563    SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
564      USE ISO_C_BINDING
565      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
566      INTEGER (KIND=C_INT)      , VALUE :: ni_glo
567    END SUBROUTINE cxios_set_domaingroup_ni_glo
[581]568
[326]569    SUBROUTINE cxios_get_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C)
570      USE ISO_C_BINDING
571      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
572      INTEGER (KIND=C_INT)             :: ni_glo
573    END SUBROUTINE cxios_get_domaingroup_ni_glo
[581]574
575    FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl) BIND(C)
[432]576      USE ISO_C_BINDING
577      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo
578      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
579    END FUNCTION cxios_is_defined_domaingroup_ni_glo
[581]580
581
[326]582    SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
583      USE ISO_C_BINDING
584      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
585      INTEGER (KIND=C_INT)      , VALUE :: nj
586    END SUBROUTINE cxios_set_domaingroup_nj
[581]587
[326]588    SUBROUTINE cxios_get_domaingroup_nj(domaingroup_hdl, nj) BIND(C)
589      USE ISO_C_BINDING
590      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
591      INTEGER (KIND=C_INT)             :: nj
592    END SUBROUTINE cxios_get_domaingroup_nj
[581]593
594    FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl) BIND(C)
[432]595      USE ISO_C_BINDING
596      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj
597      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
598    END FUNCTION cxios_is_defined_domaingroup_nj
[581]599
600
[326]601    SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
602      USE ISO_C_BINDING
603      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
604      INTEGER (KIND=C_INT)      , VALUE :: nj_glo
605    END SUBROUTINE cxios_set_domaingroup_nj_glo
[581]606
[326]607    SUBROUTINE cxios_get_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C)
608      USE ISO_C_BINDING
609      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
610      INTEGER (KIND=C_INT)             :: nj_glo
611    END SUBROUTINE cxios_get_domaingroup_nj_glo
[581]612
613    FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl) BIND(C)
[432]614      USE ISO_C_BINDING
615      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo
616      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
617    END FUNCTION cxios_is_defined_domaingroup_nj_glo
[581]618
619
[449]620    SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
621      USE ISO_C_BINDING
622      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
623      INTEGER (KIND=C_INT)      , VALUE :: nvertex
624    END SUBROUTINE cxios_set_domaingroup_nvertex
[581]625
[449]626    SUBROUTINE cxios_get_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C)
627      USE ISO_C_BINDING
628      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
629      INTEGER (KIND=C_INT)             :: nvertex
630    END SUBROUTINE cxios_get_domaingroup_nvertex
[581]631
632    FUNCTION cxios_is_defined_domaingroup_nvertex(domaingroup_hdl) BIND(C)
[449]633      USE ISO_C_BINDING
634      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nvertex
635      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
636    END FUNCTION cxios_is_defined_domaingroup_nvertex
[581]637
638
[326]639    SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
640      USE ISO_C_BINDING
641      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
642      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
643      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
644    END SUBROUTINE cxios_set_domaingroup_standard_name
[581]645
[326]646    SUBROUTINE cxios_get_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C)
647      USE ISO_C_BINDING
648      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
649      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
650      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
651    END SUBROUTINE cxios_get_domaingroup_standard_name
[581]652
653    FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl) BIND(C)
[432]654      USE ISO_C_BINDING
655      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name
656      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
657    END FUNCTION cxios_is_defined_domaingroup_standard_name
[581]658
659
[449]660    SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
661      USE ISO_C_BINDING
662      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
663      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
664      INTEGER  (kind = C_INT)     , VALUE        :: type_size
665    END SUBROUTINE cxios_set_domaingroup_type
[581]666
[449]667    SUBROUTINE cxios_get_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C)
668      USE ISO_C_BINDING
669      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
670      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
671      INTEGER  (kind = C_INT)     , VALUE        :: type_size
672    END SUBROUTINE cxios_get_domaingroup_type
[581]673
674    FUNCTION cxios_is_defined_domaingroup_type(domaingroup_hdl) BIND(C)
[449]675      USE ISO_C_BINDING
676      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_type
677      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl
678    END FUNCTION cxios_is_defined_domaingroup_type
[581]679
680  END INTERFACE
681
[326]682END MODULE domaingroup_interface_attr
Note: See TracBrowser for help on using the repository browser.