source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/iinterpolate_axis_attr.F90 @ 1205

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

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed
File size: 6.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iinterpolate_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iinterpolate_axis
9  USE interpolate_axis_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_interpolate_axis_attr)  &
14    ( interpolate_axis_id, coordinate, order, type )
15
16    IMPLICIT NONE
17      TYPE(txios(interpolate_axis))  :: interpolate_axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate
20      INTEGER  , OPTIONAL, INTENT(IN) :: order
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
22
23      CALL xios(get_interpolate_axis_handle) &
24      (interpolate_axis_id,interpolate_axis_hdl)
25      CALL xios(set_interpolate_axis_attr_hdl_)   &
26      ( interpolate_axis_hdl, coordinate, order, type )
27
28  END SUBROUTINE xios(set_interpolate_axis_attr)
29
30  SUBROUTINE xios(set_interpolate_axis_attr_hdl)  &
31    ( interpolate_axis_hdl, coordinate, order, type )
32
33    IMPLICIT NONE
34      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate
36      INTEGER  , OPTIONAL, INTENT(IN) :: order
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
38
39      CALL xios(set_interpolate_axis_attr_hdl_)  &
40      ( interpolate_axis_hdl, coordinate, order, type )
41
42  END SUBROUTINE xios(set_interpolate_axis_attr_hdl)
43
44  SUBROUTINE xios(set_interpolate_axis_attr_hdl_)   &
45    ( interpolate_axis_hdl, coordinate_, order_, type_ )
46
47    IMPLICIT NONE
48      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_
50      INTEGER  , OPTIONAL, INTENT(IN) :: order_
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
52
53      IF (PRESENT(coordinate_)) THEN
54        CALL cxios_set_interpolate_axis_coordinate &
55      (interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
56      ENDIF
57
58      IF (PRESENT(order_)) THEN
59        CALL cxios_set_interpolate_axis_order &
60      (interpolate_axis_hdl%daddr, order_)
61      ENDIF
62
63      IF (PRESENT(type_)) THEN
64        CALL cxios_set_interpolate_axis_type &
65      (interpolate_axis_hdl%daddr, type_, len(type_))
66      ENDIF
67
68  END SUBROUTINE xios(set_interpolate_axis_attr_hdl_)
69
70  SUBROUTINE xios(get_interpolate_axis_attr)  &
71    ( interpolate_axis_id, coordinate, order, type )
72
73    IMPLICIT NONE
74      TYPE(txios(interpolate_axis))  :: interpolate_axis_hdl
75      CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
76      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate
77      INTEGER  , OPTIONAL, INTENT(OUT) :: order
78      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
79
80      CALL xios(get_interpolate_axis_handle) &
81      (interpolate_axis_id,interpolate_axis_hdl)
82      CALL xios(get_interpolate_axis_attr_hdl_)   &
83      ( interpolate_axis_hdl, coordinate, order, type )
84
85  END SUBROUTINE xios(get_interpolate_axis_attr)
86
87  SUBROUTINE xios(get_interpolate_axis_attr_hdl)  &
88    ( interpolate_axis_hdl, coordinate, order, type )
89
90    IMPLICIT NONE
91      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
92      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate
93      INTEGER  , OPTIONAL, INTENT(OUT) :: order
94      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
95
96      CALL xios(get_interpolate_axis_attr_hdl_)  &
97      ( interpolate_axis_hdl, coordinate, order, type )
98
99  END SUBROUTINE xios(get_interpolate_axis_attr_hdl)
100
101  SUBROUTINE xios(get_interpolate_axis_attr_hdl_)   &
102    ( interpolate_axis_hdl, coordinate_, order_, type_ )
103
104    IMPLICIT NONE
105      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
106      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_
107      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
108      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
109
110      IF (PRESENT(coordinate_)) THEN
111        CALL cxios_get_interpolate_axis_coordinate &
112      (interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
113      ENDIF
114
115      IF (PRESENT(order_)) THEN
116        CALL cxios_get_interpolate_axis_order &
117      (interpolate_axis_hdl%daddr, order_)
118      ENDIF
119
120      IF (PRESENT(type_)) THEN
121        CALL cxios_get_interpolate_axis_type &
122      (interpolate_axis_hdl%daddr, type_, len(type_))
123      ENDIF
124
125  END SUBROUTINE xios(get_interpolate_axis_attr_hdl_)
126
127  SUBROUTINE xios(is_defined_interpolate_axis_attr)  &
128    ( interpolate_axis_id, coordinate, order, type )
129
130    IMPLICIT NONE
131      TYPE(txios(interpolate_axis))  :: interpolate_axis_hdl
132      CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
133      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate
134      LOGICAL(KIND=C_BOOL) :: coordinate_tmp
135      LOGICAL, OPTIONAL, INTENT(OUT) :: order
136      LOGICAL(KIND=C_BOOL) :: order_tmp
137      LOGICAL, OPTIONAL, INTENT(OUT) :: type
138      LOGICAL(KIND=C_BOOL) :: type_tmp
139
140      CALL xios(get_interpolate_axis_handle) &
141      (interpolate_axis_id,interpolate_axis_hdl)
142      CALL xios(is_defined_interpolate_axis_attr_hdl_)   &
143      ( interpolate_axis_hdl, coordinate, order, type )
144
145  END SUBROUTINE xios(is_defined_interpolate_axis_attr)
146
147  SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl)  &
148    ( interpolate_axis_hdl, coordinate, order, type )
149
150    IMPLICIT NONE
151      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
152      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate
153      LOGICAL(KIND=C_BOOL) :: coordinate_tmp
154      LOGICAL, OPTIONAL, INTENT(OUT) :: order
155      LOGICAL(KIND=C_BOOL) :: order_tmp
156      LOGICAL, OPTIONAL, INTENT(OUT) :: type
157      LOGICAL(KIND=C_BOOL) :: type_tmp
158
159      CALL xios(is_defined_interpolate_axis_attr_hdl_)  &
160      ( interpolate_axis_hdl, coordinate, order, type )
161
162  END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl)
163
164  SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_)   &
165    ( interpolate_axis_hdl, coordinate_, order_, type_ )
166
167    IMPLICIT NONE
168      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
169      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_
170      LOGICAL(KIND=C_BOOL) :: coordinate__tmp
171      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
172      LOGICAL(KIND=C_BOOL) :: order__tmp
173      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
174      LOGICAL(KIND=C_BOOL) :: type__tmp
175
176      IF (PRESENT(coordinate_)) THEN
177        coordinate__tmp = cxios_is_defined_interpolate_axis_coordinate &
178      (interpolate_axis_hdl%daddr)
179        coordinate_ = coordinate__tmp
180      ENDIF
181
182      IF (PRESENT(order_)) THEN
183        order__tmp = cxios_is_defined_interpolate_axis_order &
184      (interpolate_axis_hdl%daddr)
185        order_ = order__tmp
186      ENDIF
187
188      IF (PRESENT(type_)) THEN
189        type__tmp = cxios_is_defined_interpolate_axis_type &
190      (interpolate_axis_hdl%daddr)
191        type_ = type__tmp
192      ENDIF
193
194  END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_)
195
196END MODULE iinterpolate_axis_attr
Note: See TracBrowser for help on using the repository browser.