source: XIOS/trunk/src/interface/fortran_attr/izoom_domain_attr.F90 @ 1626

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