source: XIOS2/trunk/src/interface/fortran_attr/izoom_domain_attr.F90 @ 2623

Last change on this file since 2623 was 2623, checked in by jderouillat, 4 months ago

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
File size: 7.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE izoom_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE izoom_domain
9  USE zoom_domain_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_zoom_domain_attr)  &
15    ( zoom_domain_id, ibegin, jbegin, ni, nj )
16
17    IMPLICIT NONE
18      TYPE(txios(zoom_domain))  :: zoom_domain_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id
20      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
21      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
22      INTEGER  , OPTIONAL, INTENT(IN) :: ni
23      INTEGER  , OPTIONAL, INTENT(IN) :: nj
24
25      CALL xios(get_zoom_domain_handle) &
26      (zoom_domain_id,zoom_domain_hdl)
27      CALL xios(set_zoom_domain_attr_hdl_)   &
28      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
29
30  END SUBROUTINE xios(set_zoom_domain_attr)
31
32  SUBROUTINE xios(set_zoom_domain_attr_hdl)  &
33    ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
34
35    IMPLICIT NONE
36      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
37      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
38      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
39      INTEGER  , OPTIONAL, INTENT(IN) :: ni
40      INTEGER  , OPTIONAL, INTENT(IN) :: nj
41
42      CALL xios(set_zoom_domain_attr_hdl_)  &
43      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
44
45  END SUBROUTINE xios(set_zoom_domain_attr_hdl)
46
47  SUBROUTINE xios(set_zoom_domain_attr_hdl_)   &
48    ( zoom_domain_hdl, ibegin_, jbegin_, ni_, nj_ )
49
50    IMPLICIT NONE
51      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
52      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
53      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
54      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
55      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
56
57      IF (PRESENT(ibegin_)) THEN
58        CALL cxios_set_zoom_domain_ibegin &
59      (zoom_domain_hdl%daddr, ibegin_)
60      ENDIF
61
62      IF (PRESENT(jbegin_)) THEN
63        CALL cxios_set_zoom_domain_jbegin &
64      (zoom_domain_hdl%daddr, jbegin_)
65      ENDIF
66
67      IF (PRESENT(ni_)) THEN
68        CALL cxios_set_zoom_domain_ni &
69      (zoom_domain_hdl%daddr, ni_)
70      ENDIF
71
72      IF (PRESENT(nj_)) THEN
73        CALL cxios_set_zoom_domain_nj &
74      (zoom_domain_hdl%daddr, nj_)
75      ENDIF
76
77  END SUBROUTINE xios(set_zoom_domain_attr_hdl_)
78
79  SUBROUTINE xios(get_zoom_domain_attr)  &
80    ( zoom_domain_id, ibegin, jbegin, ni, nj )
81
82    IMPLICIT NONE
83      TYPE(txios(zoom_domain))  :: zoom_domain_hdl
84      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id
85      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
86      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
87      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
88      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
89
90      CALL xios(get_zoom_domain_handle) &
91      (zoom_domain_id,zoom_domain_hdl)
92      CALL xios(get_zoom_domain_attr_hdl_)   &
93      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
94
95  END SUBROUTINE xios(get_zoom_domain_attr)
96
97  SUBROUTINE xios(get_zoom_domain_attr_hdl)  &
98    ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
99
100    IMPLICIT NONE
101      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
102      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
103      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
104      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
105      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
106
107      CALL xios(get_zoom_domain_attr_hdl_)  &
108      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
109
110  END SUBROUTINE xios(get_zoom_domain_attr_hdl)
111
112  SUBROUTINE xios(get_zoom_domain_attr_hdl_)   &
113    ( zoom_domain_hdl, ibegin_, jbegin_, ni_, nj_ )
114
115    IMPLICIT NONE
116      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
117      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
118      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
119      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
120      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
121
122      IF (PRESENT(ibegin_)) THEN
123        CALL cxios_get_zoom_domain_ibegin &
124      (zoom_domain_hdl%daddr, ibegin_)
125      ENDIF
126
127      IF (PRESENT(jbegin_)) THEN
128        CALL cxios_get_zoom_domain_jbegin &
129      (zoom_domain_hdl%daddr, jbegin_)
130      ENDIF
131
132      IF (PRESENT(ni_)) THEN
133        CALL cxios_get_zoom_domain_ni &
134      (zoom_domain_hdl%daddr, ni_)
135      ENDIF
136
137      IF (PRESENT(nj_)) THEN
138        CALL cxios_get_zoom_domain_nj &
139      (zoom_domain_hdl%daddr, nj_)
140      ENDIF
141
142  END SUBROUTINE xios(get_zoom_domain_attr_hdl_)
143
144  SUBROUTINE xios(is_defined_zoom_domain_attr)  &
145    ( zoom_domain_id, ibegin, jbegin, ni, nj )
146
147    IMPLICIT NONE
148      TYPE(txios(zoom_domain))  :: zoom_domain_hdl
149      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id
150      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
151      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
152      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
153      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
154      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
155      LOGICAL(KIND=C_BOOL) :: ni_tmp
156      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
157      LOGICAL(KIND=C_BOOL) :: nj_tmp
158
159      CALL xios(get_zoom_domain_handle) &
160      (zoom_domain_id,zoom_domain_hdl)
161      CALL xios(is_defined_zoom_domain_attr_hdl_)   &
162      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
163
164  END SUBROUTINE xios(is_defined_zoom_domain_attr)
165
166  SUBROUTINE xios(is_defined_zoom_domain_attr_hdl)  &
167    ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
168
169    IMPLICIT NONE
170      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
171      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
172      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
173      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
174      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
175      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
176      LOGICAL(KIND=C_BOOL) :: ni_tmp
177      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
178      LOGICAL(KIND=C_BOOL) :: nj_tmp
179
180      CALL xios(is_defined_zoom_domain_attr_hdl_)  &
181      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
182
183  END SUBROUTINE xios(is_defined_zoom_domain_attr_hdl)
184
185  SUBROUTINE xios(is_defined_zoom_domain_attr_hdl_)   &
186    ( zoom_domain_hdl, ibegin_, jbegin_, ni_, nj_ )
187
188    IMPLICIT NONE
189      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
190      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
191      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
192      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
193      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
194      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
195      LOGICAL(KIND=C_BOOL) :: ni__tmp
196      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
197      LOGICAL(KIND=C_BOOL) :: nj__tmp
198
199      IF (PRESENT(ibegin_)) THEN
200        ibegin__tmp = cxios_is_defined_zoom_domain_ibegin &
201      (zoom_domain_hdl%daddr)
202        ibegin_ = ibegin__tmp
203      ENDIF
204
205      IF (PRESENT(jbegin_)) THEN
206        jbegin__tmp = cxios_is_defined_zoom_domain_jbegin &
207      (zoom_domain_hdl%daddr)
208        jbegin_ = jbegin__tmp
209      ENDIF
210
211      IF (PRESENT(ni_)) THEN
212        ni__tmp = cxios_is_defined_zoom_domain_ni &
213      (zoom_domain_hdl%daddr)
214        ni_ = ni__tmp
215      ENDIF
216
217      IF (PRESENT(nj_)) THEN
218        nj__tmp = cxios_is_defined_zoom_domain_nj &
219      (zoom_domain_hdl%daddr)
220        nj_ = nj__tmp
221      ENDIF
222
223  END SUBROUTINE xios(is_defined_zoom_domain_attr_hdl_)
224
225END MODULE izoom_domain_attr
Note: See TracBrowser for help on using the repository browser.