source: XIOS/trunk/src/interface/fortran_attr/generate_rectilinear_domain_interface_attr.F90 @ 786

Last change on this file since 786 was 786, checked in by mhnguyen, 8 years ago

Generating interface for transformations

+) Update Fortran interface for other transformations
+) Remove some redundant files
+) Update test to new interface

Test
+) On Curie
+) test_client and test_complete are correct
File size: 8.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE generate_rectilinear_domain_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl, bounds_lat_end) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
15      REAL (KIND=C_DOUBLE)      , VALUE :: bounds_lat_end
16    END SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lat_end
17
18    SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl, bounds_lat_end) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
21      REAL (KIND=C_DOUBLE)             :: bounds_lat_end
22    END SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lat_end
23
24    FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_bounds_lat_end
27      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
28    END FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lat_end
29
30
31    SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl, bounds_lat_start) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
34      REAL (KIND=C_DOUBLE)      , VALUE :: bounds_lat_start
35    END SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lat_start
36
37    SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl, bounds_lat_start) BIND(C)
38      USE ISO_C_BINDING
39      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
40      REAL (KIND=C_DOUBLE)             :: bounds_lat_start
41    END SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lat_start
42
43    FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl) BIND(C)
44      USE ISO_C_BINDING
45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_bounds_lat_start
46      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
47    END FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lat_start
48
49
50    SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl, bounds_lon_end) BIND(C)
51      USE ISO_C_BINDING
52      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
53      REAL (KIND=C_DOUBLE)      , VALUE :: bounds_lon_end
54    END SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lon_end
55
56    SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl, bounds_lon_end) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
59      REAL (KIND=C_DOUBLE)             :: bounds_lon_end
60    END SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lon_end
61
62    FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl) BIND(C)
63      USE ISO_C_BINDING
64      LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_bounds_lon_end
65      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
66    END FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lon_end
67
68
69    SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl, bounds_lon_start) BIND(C)
70      USE ISO_C_BINDING
71      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
72      REAL (KIND=C_DOUBLE)      , VALUE :: bounds_lon_start
73    END SUBROUTINE cxios_set_generate_rectilinear_domain_bounds_lon_start
74
75    SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl, bounds_lon_start) BIND(C)
76      USE ISO_C_BINDING
77      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
78      REAL (KIND=C_DOUBLE)             :: bounds_lon_start
79    END SUBROUTINE cxios_get_generate_rectilinear_domain_bounds_lon_start
80
81    FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl) BIND(C)
82      USE ISO_C_BINDING
83      LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_bounds_lon_start
84      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
85    END FUNCTION cxios_is_defined_generate_rectilinear_domain_bounds_lon_start
86
87
88    SUBROUTINE cxios_set_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl, lat_end) BIND(C)
89      USE ISO_C_BINDING
90      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
91      REAL (KIND=C_DOUBLE)      , VALUE :: lat_end
92    END SUBROUTINE cxios_set_generate_rectilinear_domain_lat_end
93
94    SUBROUTINE cxios_get_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl, lat_end) BIND(C)
95      USE ISO_C_BINDING
96      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
97      REAL (KIND=C_DOUBLE)             :: lat_end
98    END SUBROUTINE cxios_get_generate_rectilinear_domain_lat_end
99
100    FUNCTION cxios_is_defined_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl) BIND(C)
101      USE ISO_C_BINDING
102      LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_lat_end
103      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
104    END FUNCTION cxios_is_defined_generate_rectilinear_domain_lat_end
105
106
107    SUBROUTINE cxios_set_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl, lat_start) BIND(C)
108      USE ISO_C_BINDING
109      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
110      REAL (KIND=C_DOUBLE)      , VALUE :: lat_start
111    END SUBROUTINE cxios_set_generate_rectilinear_domain_lat_start
112
113    SUBROUTINE cxios_get_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl, lat_start) BIND(C)
114      USE ISO_C_BINDING
115      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
116      REAL (KIND=C_DOUBLE)             :: lat_start
117    END SUBROUTINE cxios_get_generate_rectilinear_domain_lat_start
118
119    FUNCTION cxios_is_defined_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl) BIND(C)
120      USE ISO_C_BINDING
121      LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_lat_start
122      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
123    END FUNCTION cxios_is_defined_generate_rectilinear_domain_lat_start
124
125
126    SUBROUTINE cxios_set_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl, lon_end) BIND(C)
127      USE ISO_C_BINDING
128      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
129      REAL (KIND=C_DOUBLE)      , VALUE :: lon_end
130    END SUBROUTINE cxios_set_generate_rectilinear_domain_lon_end
131
132    SUBROUTINE cxios_get_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl, lon_end) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
135      REAL (KIND=C_DOUBLE)             :: lon_end
136    END SUBROUTINE cxios_get_generate_rectilinear_domain_lon_end
137
138    FUNCTION cxios_is_defined_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl) BIND(C)
139      USE ISO_C_BINDING
140      LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_lon_end
141      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
142    END FUNCTION cxios_is_defined_generate_rectilinear_domain_lon_end
143
144
145    SUBROUTINE cxios_set_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl, lon_start) BIND(C)
146      USE ISO_C_BINDING
147      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
148      REAL (KIND=C_DOUBLE)      , VALUE :: lon_start
149    END SUBROUTINE cxios_set_generate_rectilinear_domain_lon_start
150
151    SUBROUTINE cxios_get_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl, lon_start) BIND(C)
152      USE ISO_C_BINDING
153      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
154      REAL (KIND=C_DOUBLE)             :: lon_start
155    END SUBROUTINE cxios_get_generate_rectilinear_domain_lon_start
156
157    FUNCTION cxios_is_defined_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl) BIND(C)
158      USE ISO_C_BINDING
159      LOGICAL(kind=C_BOOL) :: cxios_is_defined_generate_rectilinear_domain_lon_start
160      INTEGER (kind = C_INTPTR_T), VALUE :: generate_rectilinear_domain_hdl
161    END FUNCTION cxios_is_defined_generate_rectilinear_domain_lon_start
162
163  END INTERFACE
164
165END MODULE generate_rectilinear_domain_interface_attr
Note: See TracBrowser for help on using the repository browser.