source: XIOS/trunk/src/interface/fortran_attr/izoom_axis_attr.F90 @ 784

Last change on this file since 784 was 784, checked in by mhnguyen, 5 years ago

Generating Fortran interface for zoom_axis and zoom_domain

Test
+) On Curie
+) All results are correct

File size: 6.3 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE izoom_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE izoom_axis
9  USE zoom_axis_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_zoom_axis_attr)  &
14    ( zoom_axis_id, zoom_begin, zoom_end, zoom_size )
15
16    IMPLICIT NONE
17      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
19      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
20      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
21      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
22
23      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl)
24      CALL xios(set_zoom_axis_attr_hdl_)   &
25      ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size )
26
27  END SUBROUTINE xios(set_zoom_axis_attr)
28
29  SUBROUTINE xios(set_zoom_axis_attr_hdl)  &
30    ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size )
31
32    IMPLICIT NONE
33      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
34      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
35      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
36      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
37
38      CALL xios(set_zoom_axis_attr_hdl_)  &
39      ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size )
40
41  END SUBROUTINE xios(set_zoom_axis_attr_hdl)
42
43  SUBROUTINE xios(set_zoom_axis_attr_hdl_)   &
44    ( zoom_axis_hdl, zoom_begin_, zoom_end_, zoom_size_ )
45
46    IMPLICIT NONE
47      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
48      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin_
49      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end_
50      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size_
51
52      IF (PRESENT(zoom_begin_)) THEN
53        CALL cxios_set_zoom_axis_zoom_begin(zoom_axis_hdl%daddr, zoom_begin_)
54      ENDIF
55
56      IF (PRESENT(zoom_end_)) THEN
57        CALL cxios_set_zoom_axis_zoom_end(zoom_axis_hdl%daddr, zoom_end_)
58      ENDIF
59
60      IF (PRESENT(zoom_size_)) THEN
61        CALL cxios_set_zoom_axis_zoom_size(zoom_axis_hdl%daddr, zoom_size_)
62      ENDIF
63
64  END SUBROUTINE xios(set_zoom_axis_attr_hdl_)
65
66  SUBROUTINE xios(get_zoom_axis_attr)  &
67    ( zoom_axis_id, zoom_begin, zoom_end, zoom_size )
68
69    IMPLICIT NONE
70      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
71      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
72      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
73      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
74      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
75
76      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl)
77      CALL xios(get_zoom_axis_attr_hdl_)   &
78      ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size )
79
80  END SUBROUTINE xios(get_zoom_axis_attr)
81
82  SUBROUTINE xios(get_zoom_axis_attr_hdl)  &
83    ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size )
84
85    IMPLICIT NONE
86      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
87      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
88      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
89      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
90
91      CALL xios(get_zoom_axis_attr_hdl_)  &
92      ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size )
93
94  END SUBROUTINE xios(get_zoom_axis_attr_hdl)
95
96  SUBROUTINE xios(get_zoom_axis_attr_hdl_)   &
97    ( zoom_axis_hdl, zoom_begin_, zoom_end_, zoom_size_ )
98
99    IMPLICIT NONE
100      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
101      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin_
102      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end_
103      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size_
104
105      IF (PRESENT(zoom_begin_)) THEN
106        CALL cxios_get_zoom_axis_zoom_begin(zoom_axis_hdl%daddr, zoom_begin_)
107      ENDIF
108
109      IF (PRESENT(zoom_end_)) THEN
110        CALL cxios_get_zoom_axis_zoom_end(zoom_axis_hdl%daddr, zoom_end_)
111      ENDIF
112
113      IF (PRESENT(zoom_size_)) THEN
114        CALL cxios_get_zoom_axis_zoom_size(zoom_axis_hdl%daddr, zoom_size_)
115      ENDIF
116
117  END SUBROUTINE xios(get_zoom_axis_attr_hdl_)
118
119  SUBROUTINE xios(is_defined_zoom_axis_attr)  &
120    ( zoom_axis_id, zoom_begin, zoom_end, zoom_size )
121
122    IMPLICIT NONE
123      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
124      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
125      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
126      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
127      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
128      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
129      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
130      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
131
132      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl)
133      CALL xios(is_defined_zoom_axis_attr_hdl_)   &
134      ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size )
135
136  END SUBROUTINE xios(is_defined_zoom_axis_attr)
137
138  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)  &
139    ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size )
140
141    IMPLICIT NONE
142      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
143      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
144      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
145      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
146      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
147      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
148      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
149
150      CALL xios(is_defined_zoom_axis_attr_hdl_)  &
151      ( zoom_axis_hdl, zoom_begin, zoom_end, zoom_size )
152
153  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)
154
155  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)   &
156    ( zoom_axis_hdl, zoom_begin_, zoom_end_, zoom_size_ )
157
158    IMPLICIT NONE
159      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
160      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_
161      LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp
162      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_
163      LOGICAL(KIND=C_BOOL) :: zoom_end__tmp
164      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_
165      LOGICAL(KIND=C_BOOL) :: zoom_size__tmp
166
167      IF (PRESENT(zoom_begin_)) THEN
168        zoom_begin__tmp = cxios_is_defined_zoom_axis_zoom_begin(zoom_axis_hdl%daddr)
169        zoom_begin_ = zoom_begin__tmp
170      ENDIF
171
172      IF (PRESENT(zoom_end_)) THEN
173        zoom_end__tmp = cxios_is_defined_zoom_axis_zoom_end(zoom_axis_hdl%daddr)
174        zoom_end_ = zoom_end__tmp
175      ENDIF
176
177      IF (PRESENT(zoom_size_)) THEN
178        zoom_size__tmp = cxios_is_defined_zoom_axis_zoom_size(zoom_axis_hdl%daddr)
179        zoom_size_ = zoom_size__tmp
180      ENDIF
181
182  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)
183
184END MODULE izoom_axis_attr
Note: See TracBrowser for help on using the repository browser.