source: XIOS/trunk/src/interface/fortran_attr/axis_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: 4.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE axis_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_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
15      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
16    END SUBROUTINE cxios_set_axis_long_name
17   
18    SUBROUTINE cxios_get_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
22      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
23    END SUBROUTINE cxios_get_axis_long_name
24   
25   
26    SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C)
27      USE ISO_C_BINDING
28      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
29      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
30      INTEGER  (kind = C_INT)     , VALUE        :: name_size
31    END SUBROUTINE cxios_set_axis_name
32   
33    SUBROUTINE cxios_get_axis_name(axis_hdl, name, name_size) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
36      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
37      INTEGER  (kind = C_INT)     , VALUE        :: name_size
38    END SUBROUTINE cxios_get_axis_name
39   
40   
41    SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C)
42      USE ISO_C_BINDING
43      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
44      INTEGER (KIND=C_INT)      , VALUE :: size
45    END SUBROUTINE cxios_set_axis_size
46   
47    SUBROUTINE cxios_get_axis_size(axis_hdl, size) BIND(C)
48      USE ISO_C_BINDING
49      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
50      INTEGER (KIND=C_INT)             :: size
51    END SUBROUTINE cxios_get_axis_size
52   
53   
54    SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
57      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
58      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
59    END SUBROUTINE cxios_set_axis_standard_name
60   
61    SUBROUTINE cxios_get_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
62      USE ISO_C_BINDING
63      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
64      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
65      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
66    END SUBROUTINE cxios_get_axis_standard_name
67   
68   
69    SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C)
70      USE ISO_C_BINDING
71      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
72      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
73      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
74    END SUBROUTINE cxios_set_axis_unit
75   
76    SUBROUTINE cxios_get_axis_unit(axis_hdl, unit, unit_size) BIND(C)
77      USE ISO_C_BINDING
78      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
79      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
80      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
81    END SUBROUTINE cxios_get_axis_unit
82   
83   
84    SUBROUTINE cxios_set_axis_value(axis_hdl, value, extent1) BIND(C)
85      USE ISO_C_BINDING
86      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
87      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
88      INTEGER (kind = C_INT), VALUE  :: extent1
89    END SUBROUTINE cxios_set_axis_value
90   
91    SUBROUTINE cxios_get_axis_value(axis_hdl, value, extent1) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
94      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
95      INTEGER (kind = C_INT), VALUE  :: extent1
96    END SUBROUTINE cxios_get_axis_value
97   
98   
99    END INTERFACE
100 
101END MODULE axis_interface_attr
Note: See TracBrowser for help on using the repository browser.