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

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

Add grid mask attribute

YM

File size: 4.8 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   
26    SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C)
27      USE ISO_C_BINDING
28      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
29      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
30      INTEGER  (kind = C_INT)     , VALUE        :: description_size
31    END SUBROUTINE cxios_set_gridgroup_description
32   
33    SUBROUTINE cxios_get_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
36      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
37      INTEGER  (kind = C_INT)     , VALUE        :: description_size
38    END SUBROUTINE cxios_get_gridgroup_description
39   
40   
41    SUBROUTINE cxios_set_gridgroup_domain_ref(gridgroup_hdl, domain_ref, domain_ref_size) BIND(C)
42      USE ISO_C_BINDING
43      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
44      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
45      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
46    END SUBROUTINE cxios_set_gridgroup_domain_ref
47   
48    SUBROUTINE cxios_get_gridgroup_domain_ref(gridgroup_hdl, domain_ref, domain_ref_size) BIND(C)
49      USE ISO_C_BINDING
50      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
51      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
52      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
53    END SUBROUTINE cxios_get_gridgroup_domain_ref
54   
55   
56    SUBROUTINE cxios_set_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
59      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
60      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
61    END SUBROUTINE cxios_set_gridgroup_group_ref
62   
63    SUBROUTINE cxios_get_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C)
64      USE ISO_C_BINDING
65      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
66      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
67      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
68    END SUBROUTINE cxios_get_gridgroup_group_ref
69   
70   
71    SUBROUTINE cxios_set_gridgroup_mask(gridgroup_hdl, mask, extent1, extent2, extent3) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE       :: gridgroup_hdl
74      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
75      INTEGER (kind = C_INT), VALUE  :: extent1
76      INTEGER (kind = C_INT), VALUE  :: extent2
77      INTEGER (kind = C_INT), VALUE  :: extent3
78    END SUBROUTINE cxios_set_gridgroup_mask
79   
80    SUBROUTINE cxios_get_gridgroup_mask(gridgroup_hdl, mask, extent1, extent2, extent3) BIND(C)
81      USE ISO_C_BINDING
82      INTEGER (kind = C_INTPTR_T), VALUE       :: gridgroup_hdl
83      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
84      INTEGER (kind = C_INT), VALUE  :: extent1
85      INTEGER (kind = C_INT), VALUE  :: extent2
86      INTEGER (kind = C_INT), VALUE  :: extent3
87    END SUBROUTINE cxios_get_gridgroup_mask
88   
89   
90    SUBROUTINE cxios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
93      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
94      INTEGER  (kind = C_INT)     , VALUE        :: name_size
95    END SUBROUTINE cxios_set_gridgroup_name
96   
97    SUBROUTINE cxios_get_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
101      INTEGER  (kind = C_INT)     , VALUE        :: name_size
102    END SUBROUTINE cxios_get_gridgroup_name
103   
104   
105    END INTERFACE
106 
107END MODULE gridgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.