source: XIOS3/trunk/src/interface/fortran_attr/izoom_domain_attr.F90 @ 2622

Last change on this file since 2622 was 2620, 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
RevLine 
[784]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
[2620]10  USE LOGICAL_BOOL_CONVERSION
[784]11
12CONTAINS
13
14  SUBROUTINE xios(set_zoom_domain_attr)  &
[787]15    ( zoom_domain_id, ibegin, jbegin, ni, nj )
[784]16
17    IMPLICIT NONE
18      TYPE(txios(zoom_domain))  :: zoom_domain_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id
[787]20      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
21      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
22      INTEGER  , OPTIONAL, INTENT(IN) :: ni
23      INTEGER  , OPTIONAL, INTENT(IN) :: nj
[784]24
[966]25      CALL xios(get_zoom_domain_handle) &
26      (zoom_domain_id,zoom_domain_hdl)
[784]27      CALL xios(set_zoom_domain_attr_hdl_)   &
[787]28      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
[784]29
30  END SUBROUTINE xios(set_zoom_domain_attr)
31
32  SUBROUTINE xios(set_zoom_domain_attr_hdl)  &
[787]33    ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
[784]34
35    IMPLICIT NONE
36      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
[787]37      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
38      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
39      INTEGER  , OPTIONAL, INTENT(IN) :: ni
40      INTEGER  , OPTIONAL, INTENT(IN) :: nj
[784]41
42      CALL xios(set_zoom_domain_attr_hdl_)  &
[787]43      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
[784]44
45  END SUBROUTINE xios(set_zoom_domain_attr_hdl)
46
47  SUBROUTINE xios(set_zoom_domain_attr_hdl_)   &
[787]48    ( zoom_domain_hdl, ibegin_, jbegin_, ni_, nj_ )
[784]49
50    IMPLICIT NONE
51      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
[787]52      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
53      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
54      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
55      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
[784]56
[787]57      IF (PRESENT(ibegin_)) THEN
[966]58        CALL cxios_set_zoom_domain_ibegin &
59      (zoom_domain_hdl%daddr, ibegin_)
[784]60      ENDIF
61
[787]62      IF (PRESENT(jbegin_)) THEN
[966]63        CALL cxios_set_zoom_domain_jbegin &
64      (zoom_domain_hdl%daddr, jbegin_)
[784]65      ENDIF
66
[787]67      IF (PRESENT(ni_)) THEN
[966]68        CALL cxios_set_zoom_domain_ni &
69      (zoom_domain_hdl%daddr, ni_)
[784]70      ENDIF
71
[787]72      IF (PRESENT(nj_)) THEN
[966]73        CALL cxios_set_zoom_domain_nj &
74      (zoom_domain_hdl%daddr, nj_)
[784]75      ENDIF
76
77  END SUBROUTINE xios(set_zoom_domain_attr_hdl_)
78
79  SUBROUTINE xios(get_zoom_domain_attr)  &
[787]80    ( zoom_domain_id, ibegin, jbegin, ni, nj )
[784]81
82    IMPLICIT NONE
83      TYPE(txios(zoom_domain))  :: zoom_domain_hdl
84      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id
[787]85      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
86      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
87      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
88      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
[784]89
[966]90      CALL xios(get_zoom_domain_handle) &
91      (zoom_domain_id,zoom_domain_hdl)
[784]92      CALL xios(get_zoom_domain_attr_hdl_)   &
[787]93      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
[784]94
95  END SUBROUTINE xios(get_zoom_domain_attr)
96
97  SUBROUTINE xios(get_zoom_domain_attr_hdl)  &
[787]98    ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
[784]99
100    IMPLICIT NONE
101      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
[787]102      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
103      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
104      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
105      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
[784]106
107      CALL xios(get_zoom_domain_attr_hdl_)  &
[787]108      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
[784]109
110  END SUBROUTINE xios(get_zoom_domain_attr_hdl)
111
112  SUBROUTINE xios(get_zoom_domain_attr_hdl_)   &
[787]113    ( zoom_domain_hdl, ibegin_, jbegin_, ni_, nj_ )
[784]114
115    IMPLICIT NONE
116      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
[787]117      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
118      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
119      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
120      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
[784]121
[787]122      IF (PRESENT(ibegin_)) THEN
[966]123        CALL cxios_get_zoom_domain_ibegin &
124      (zoom_domain_hdl%daddr, ibegin_)
[784]125      ENDIF
126
[787]127      IF (PRESENT(jbegin_)) THEN
[966]128        CALL cxios_get_zoom_domain_jbegin &
129      (zoom_domain_hdl%daddr, jbegin_)
[784]130      ENDIF
131
[787]132      IF (PRESENT(ni_)) THEN
[966]133        CALL cxios_get_zoom_domain_ni &
134      (zoom_domain_hdl%daddr, ni_)
[784]135      ENDIF
136
[787]137      IF (PRESENT(nj_)) THEN
[966]138        CALL cxios_get_zoom_domain_nj &
139      (zoom_domain_hdl%daddr, nj_)
[784]140      ENDIF
141
142  END SUBROUTINE xios(get_zoom_domain_attr_hdl_)
143
144  SUBROUTINE xios(is_defined_zoom_domain_attr)  &
[787]145    ( zoom_domain_id, ibegin, jbegin, ni, nj )
[784]146
147    IMPLICIT NONE
148      TYPE(txios(zoom_domain))  :: zoom_domain_hdl
149      CHARACTER(LEN=*), INTENT(IN) ::zoom_domain_id
[787]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
[784]158
[966]159      CALL xios(get_zoom_domain_handle) &
160      (zoom_domain_id,zoom_domain_hdl)
[784]161      CALL xios(is_defined_zoom_domain_attr_hdl_)   &
[787]162      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
[784]163
164  END SUBROUTINE xios(is_defined_zoom_domain_attr)
165
166  SUBROUTINE xios(is_defined_zoom_domain_attr_hdl)  &
[787]167    ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
[784]168
169    IMPLICIT NONE
170      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
[787]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
[784]179
180      CALL xios(is_defined_zoom_domain_attr_hdl_)  &
[787]181      ( zoom_domain_hdl, ibegin, jbegin, ni, nj )
[784]182
183  END SUBROUTINE xios(is_defined_zoom_domain_attr_hdl)
184
185  SUBROUTINE xios(is_defined_zoom_domain_attr_hdl_)   &
[787]186    ( zoom_domain_hdl, ibegin_, jbegin_, ni_, nj_ )
[784]187
188    IMPLICIT NONE
189      TYPE(txios(zoom_domain)) , INTENT(IN) :: zoom_domain_hdl
[787]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
[784]198
[787]199      IF (PRESENT(ibegin_)) THEN
[966]200        ibegin__tmp = cxios_is_defined_zoom_domain_ibegin &
201      (zoom_domain_hdl%daddr)
[787]202        ibegin_ = ibegin__tmp
[784]203      ENDIF
204
[787]205      IF (PRESENT(jbegin_)) THEN
[966]206        jbegin__tmp = cxios_is_defined_zoom_domain_jbegin &
207      (zoom_domain_hdl%daddr)
[787]208        jbegin_ = jbegin__tmp
[784]209      ENDIF
210
[787]211      IF (PRESENT(ni_)) THEN
[966]212        ni__tmp = cxios_is_defined_zoom_domain_ni &
213      (zoom_domain_hdl%daddr)
[787]214        ni_ = ni__tmp
[784]215      ENDIF
216
[787]217      IF (PRESENT(nj_)) THEN
[966]218        nj__tmp = cxios_is_defined_zoom_domain_nj &
219      (zoom_domain_hdl%daddr)
[787]220        nj_ = nj__tmp
[784]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.