source: XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90 @ 991

Last change on this file since 991 was 991, checked in by mhnguyen, 6 years ago

Update Fortran interfaces

File size: 8.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iinterpolate_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iinterpolate_domain
9  USE interpolate_domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_interpolate_domain_attr)  &
14    ( interpolate_domain_id, file, mode, order, renormalize )
15
16    IMPLICIT NONE
17      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
21      INTEGER  , OPTIONAL, INTENT(IN) :: order
22      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
23      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
24
25      CALL xios(get_interpolate_domain_handle) &
26      (interpolate_domain_id,interpolate_domain_hdl)
27      CALL xios(set_interpolate_domain_attr_hdl_)   &
28      ( interpolate_domain_hdl, file, mode, order, renormalize )
29
30  END SUBROUTINE xios(set_interpolate_domain_attr)
31
32  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
33    ( interpolate_domain_hdl, file, mode, order, renormalize )
34
35    IMPLICIT NONE
36      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
39      INTEGER  , OPTIONAL, INTENT(IN) :: order
40      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
41      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
42
43      CALL xios(set_interpolate_domain_attr_hdl_)  &
44      ( interpolate_domain_hdl, file, mode, order, renormalize )
45
46  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
47
48  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
49    ( interpolate_domain_hdl, file_, mode_, order_, renormalize_ )
50
51    IMPLICIT NONE
52      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file_
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
55      INTEGER  , OPTIONAL, INTENT(IN) :: order_
56      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_
57      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
58
59      IF (PRESENT(file_)) THEN
60        CALL cxios_set_interpolate_domain_file &
61      (interpolate_domain_hdl%daddr, file_, len(file_))
62      ENDIF
63
64      IF (PRESENT(mode_)) THEN
65        CALL cxios_set_interpolate_domain_mode &
66      (interpolate_domain_hdl%daddr, mode_, len(mode_))
67      ENDIF
68
69      IF (PRESENT(order_)) THEN
70        CALL cxios_set_interpolate_domain_order &
71      (interpolate_domain_hdl%daddr, order_)
72      ENDIF
73
74      IF (PRESENT(renormalize_)) THEN
75        renormalize__tmp = renormalize_
76        CALL cxios_set_interpolate_domain_renormalize &
77      (interpolate_domain_hdl%daddr, renormalize__tmp)
78      ENDIF
79
80  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
81
82  SUBROUTINE xios(get_interpolate_domain_attr)  &
83    ( interpolate_domain_id, file, mode, order, renormalize )
84
85    IMPLICIT NONE
86      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
87      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
88      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
89      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
90      INTEGER  , OPTIONAL, INTENT(OUT) :: order
91      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
92      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
93
94      CALL xios(get_interpolate_domain_handle) &
95      (interpolate_domain_id,interpolate_domain_hdl)
96      CALL xios(get_interpolate_domain_attr_hdl_)   &
97      ( interpolate_domain_hdl, file, mode, order, renormalize )
98
99  END SUBROUTINE xios(get_interpolate_domain_attr)
100
101  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
102    ( interpolate_domain_hdl, file, mode, order, renormalize )
103
104    IMPLICIT NONE
105      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
106      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
107      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
108      INTEGER  , OPTIONAL, INTENT(OUT) :: order
109      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
110      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
111
112      CALL xios(get_interpolate_domain_attr_hdl_)  &
113      ( interpolate_domain_hdl, file, mode, order, renormalize )
114
115  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
116
117  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
118    ( interpolate_domain_hdl, file_, mode_, order_, renormalize_ )
119
120    IMPLICIT NONE
121      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
122      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file_
123      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
124      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
125      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_
126      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
127
128      IF (PRESENT(file_)) THEN
129        CALL cxios_get_interpolate_domain_file &
130      (interpolate_domain_hdl%daddr, file_, len(file_))
131      ENDIF
132
133      IF (PRESENT(mode_)) THEN
134        CALL cxios_get_interpolate_domain_mode &
135      (interpolate_domain_hdl%daddr, mode_, len(mode_))
136      ENDIF
137
138      IF (PRESENT(order_)) THEN
139        CALL cxios_get_interpolate_domain_order &
140      (interpolate_domain_hdl%daddr, order_)
141      ENDIF
142
143      IF (PRESENT(renormalize_)) THEN
144        CALL cxios_get_interpolate_domain_renormalize &
145      (interpolate_domain_hdl%daddr, renormalize__tmp)
146        renormalize_ = renormalize__tmp
147      ENDIF
148
149  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
150
151  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
152    ( interpolate_domain_id, file, mode, order, renormalize )
153
154    IMPLICIT NONE
155      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
156      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
157      LOGICAL, OPTIONAL, INTENT(OUT) :: file
158      LOGICAL(KIND=C_BOOL) :: file_tmp
159      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
160      LOGICAL(KIND=C_BOOL) :: mode_tmp
161      LOGICAL, OPTIONAL, INTENT(OUT) :: order
162      LOGICAL(KIND=C_BOOL) :: order_tmp
163      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
164      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
165
166      CALL xios(get_interpolate_domain_handle) &
167      (interpolate_domain_id,interpolate_domain_hdl)
168      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
169      ( interpolate_domain_hdl, file, mode, order, renormalize )
170
171  END SUBROUTINE xios(is_defined_interpolate_domain_attr)
172
173  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
174    ( interpolate_domain_hdl, file, mode, order, renormalize )
175
176    IMPLICIT NONE
177      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
178      LOGICAL, OPTIONAL, INTENT(OUT) :: file
179      LOGICAL(KIND=C_BOOL) :: file_tmp
180      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
181      LOGICAL(KIND=C_BOOL) :: mode_tmp
182      LOGICAL, OPTIONAL, INTENT(OUT) :: order
183      LOGICAL(KIND=C_BOOL) :: order_tmp
184      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
185      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
186
187      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
188      ( interpolate_domain_hdl, file, mode, order, renormalize )
189
190  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
191
192  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
193    ( interpolate_domain_hdl, file_, mode_, order_, renormalize_ )
194
195    IMPLICIT NONE
196      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
197      LOGICAL, OPTIONAL, INTENT(OUT) :: file_
198      LOGICAL(KIND=C_BOOL) :: file__tmp
199      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
200      LOGICAL(KIND=C_BOOL) :: mode__tmp
201      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
202      LOGICAL(KIND=C_BOOL) :: order__tmp
203      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
204      LOGICAL(KIND=C_BOOL) :: renormalize__tmp
205
206      IF (PRESENT(file_)) THEN
207        file__tmp = cxios_is_defined_interpolate_domain_file &
208      (interpolate_domain_hdl%daddr)
209        file_ = file__tmp
210      ENDIF
211
212      IF (PRESENT(mode_)) THEN
213        mode__tmp = cxios_is_defined_interpolate_domain_mode &
214      (interpolate_domain_hdl%daddr)
215        mode_ = mode__tmp
216      ENDIF
217
218      IF (PRESENT(order_)) THEN
219        order__tmp = cxios_is_defined_interpolate_domain_order &
220      (interpolate_domain_hdl%daddr)
221        order_ = order__tmp
222      ENDIF
223
224      IF (PRESENT(renormalize_)) THEN
225        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
226      (interpolate_domain_hdl%daddr)
227        renormalize_ = renormalize__tmp
228      ENDIF
229
230  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
231
232END MODULE iinterpolate_domain_attr
Note: See TracBrowser for help on using the repository browser.