source: XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.f90 @ 527

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

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

YM
  • 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: 5.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE grid_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_grid_axis_ref(grid_hdl, axis_ref, axis_ref_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
15      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
16    END SUBROUTINE cxios_set_grid_axis_ref
17   
18    SUBROUTINE cxios_get_grid_axis_ref(grid_hdl, axis_ref, axis_ref_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
22      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
23    END SUBROUTINE cxios_get_grid_axis_ref
24   
25    FUNCTION cxios_is_defined_grid_axis_ref(grid_hdl ) BIND(C)
26      USE ISO_C_BINDING
27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axis_ref
28      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
29    END FUNCTION cxios_is_defined_grid_axis_ref
30   
31   
32    SUBROUTINE cxios_set_grid_description(grid_hdl, description, description_size) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
35      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
36      INTEGER  (kind = C_INT)     , VALUE        :: description_size
37    END SUBROUTINE cxios_set_grid_description
38   
39    SUBROUTINE cxios_get_grid_description(grid_hdl, description, description_size) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
42      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
43      INTEGER  (kind = C_INT)     , VALUE        :: description_size
44    END SUBROUTINE cxios_get_grid_description
45   
46    FUNCTION cxios_is_defined_grid_description(grid_hdl ) BIND(C)
47      USE ISO_C_BINDING
48      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_description
49      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
50    END FUNCTION cxios_is_defined_grid_description
51   
52   
53    SUBROUTINE cxios_set_grid_domain_ref(grid_hdl, domain_ref, domain_ref_size) BIND(C)
54      USE ISO_C_BINDING
55      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
56      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
57      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
58    END SUBROUTINE cxios_set_grid_domain_ref
59   
60    SUBROUTINE cxios_get_grid_domain_ref(grid_hdl, domain_ref, domain_ref_size) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
63      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
64      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
65    END SUBROUTINE cxios_get_grid_domain_ref
66   
67    FUNCTION cxios_is_defined_grid_domain_ref(grid_hdl ) BIND(C)
68      USE ISO_C_BINDING
69      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_domain_ref
70      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
71    END FUNCTION cxios_is_defined_grid_domain_ref
72   
73   
74    SUBROUTINE cxios_set_grid_mask(grid_hdl, mask, extent1, extent2, extent3) BIND(C)
75      USE ISO_C_BINDING
76      INTEGER (kind = C_INTPTR_T), VALUE       :: grid_hdl
77      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
78      INTEGER (kind = C_INT), VALUE  :: extent1
79      INTEGER (kind = C_INT), VALUE  :: extent2
80      INTEGER (kind = C_INT), VALUE  :: extent3
81    END SUBROUTINE cxios_set_grid_mask
82   
83    SUBROUTINE cxios_get_grid_mask(grid_hdl, mask, extent1, extent2, extent3) BIND(C)
84      USE ISO_C_BINDING
85      INTEGER (kind = C_INTPTR_T), VALUE       :: grid_hdl
86      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
87      INTEGER (kind = C_INT), VALUE  :: extent1
88      INTEGER (kind = C_INT), VALUE  :: extent2
89      INTEGER (kind = C_INT), VALUE  :: extent3
90    END SUBROUTINE cxios_get_grid_mask
91   
92    FUNCTION cxios_is_defined_grid_mask(grid_hdl ) BIND(C)
93      USE ISO_C_BINDING
94      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask
95      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
96    END FUNCTION cxios_is_defined_grid_mask
97   
98   
99    SUBROUTINE cxios_set_grid_name(grid_hdl, name, name_size) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
102      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
103      INTEGER  (kind = C_INT)     , VALUE        :: name_size
104    END SUBROUTINE cxios_set_grid_name
105   
106    SUBROUTINE cxios_get_grid_name(grid_hdl, name, name_size) BIND(C)
107      USE ISO_C_BINDING
108      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
109      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
110      INTEGER  (kind = C_INT)     , VALUE        :: name_size
111    END SUBROUTINE cxios_get_grid_name
112   
113    FUNCTION cxios_is_defined_grid_name(grid_hdl ) BIND(C)
114      USE ISO_C_BINDING
115      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_name
116      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl
117    END FUNCTION cxios_is_defined_grid_name
118   
119   
120    END INTERFACE
121 
122END MODULE grid_interface_attr
Note: See TracBrowser for help on using the repository browser.