source: XIOS/dev/dev_olga/src/interface/fortran_attr/izoom_domain_attr.F90 @ 1158

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