source: XIOS/dev/dev_olga/src/interface/fortran_attr/izoom_axis_attr.F90 @ 1201

Last change on this file since 1201 was 1201, checked in by oabramkina, 7 years ago

Two server levels: merging trunk r1200 (except for non-contiguous zoom) into dev. Tested on Curie. Todo: non-contiguous zoom.
File size: 5.9 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, begin, index, n )
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) :: begin
20      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
21      INTEGER  , OPTIONAL, INTENT(IN) :: n
22
23      CALL xios(get_zoom_axis_handle) &
24      (zoom_axis_id,zoom_axis_hdl)
25      CALL xios(set_zoom_axis_attr_hdl_)   &
26      ( zoom_axis_hdl, begin, index, n )
27
28  END SUBROUTINE xios(set_zoom_axis_attr)
29
30  SUBROUTINE xios(set_zoom_axis_attr_hdl)  &
31    ( zoom_axis_hdl, begin, index, n )
32
33    IMPLICIT NONE
34      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
35      INTEGER  , OPTIONAL, INTENT(IN) :: begin
36      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
37      INTEGER  , OPTIONAL, INTENT(IN) :: n
38
39      CALL xios(set_zoom_axis_attr_hdl_)  &
40      ( zoom_axis_hdl, begin, index, n )
41
42  END SUBROUTINE xios(set_zoom_axis_attr_hdl)
43
44  SUBROUTINE xios(set_zoom_axis_attr_hdl_)   &
45    ( zoom_axis_hdl, begin_, index_, n_ )
46
47    IMPLICIT NONE
48      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
49      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
50      INTEGER  , OPTIONAL, INTENT(IN) :: index_(:)
51      INTEGER  , OPTIONAL, INTENT(IN) :: n_
52
53      IF (PRESENT(begin_)) THEN
54        CALL cxios_set_zoom_axis_begin &
55      (zoom_axis_hdl%daddr, begin_)
56      ENDIF
57
58      IF (PRESENT(index_)) THEN
59        CALL cxios_set_zoom_axis_index &
60      (zoom_axis_hdl%daddr, index_, SHAPE(index_))
61      ENDIF
62
63      IF (PRESENT(n_)) THEN
64        CALL cxios_set_zoom_axis_n &
65      (zoom_axis_hdl%daddr, n_)
66      ENDIF
67
68  END SUBROUTINE xios(set_zoom_axis_attr_hdl_)
69
70  SUBROUTINE xios(get_zoom_axis_attr)  &
71    ( zoom_axis_id, begin, index, n )
72
73    IMPLICIT NONE
74      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
75      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
76      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
77      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
78      INTEGER  , OPTIONAL, INTENT(OUT) :: n
79
80      CALL xios(get_zoom_axis_handle) &
81      (zoom_axis_id,zoom_axis_hdl)
82      CALL xios(get_zoom_axis_attr_hdl_)   &
83      ( zoom_axis_hdl, begin, index, n )
84
85  END SUBROUTINE xios(get_zoom_axis_attr)
86
87  SUBROUTINE xios(get_zoom_axis_attr_hdl)  &
88    ( zoom_axis_hdl, begin, index, n )
89
90    IMPLICIT NONE
91      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
92      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
93      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
94      INTEGER  , OPTIONAL, INTENT(OUT) :: n
95
96      CALL xios(get_zoom_axis_attr_hdl_)  &
97      ( zoom_axis_hdl, begin, index, n )
98
99  END SUBROUTINE xios(get_zoom_axis_attr_hdl)
100
101  SUBROUTINE xios(get_zoom_axis_attr_hdl_)   &
102    ( zoom_axis_hdl, begin_, index_, n_ )
103
104    IMPLICIT NONE
105      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
106      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
107      INTEGER  , OPTIONAL, INTENT(OUT) :: index_(:)
108      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
109
110      IF (PRESENT(begin_)) THEN
111        CALL cxios_get_zoom_axis_begin &
112      (zoom_axis_hdl%daddr, begin_)
113      ENDIF
114
115      IF (PRESENT(index_)) THEN
116        CALL cxios_get_zoom_axis_index &
117      (zoom_axis_hdl%daddr, index_, SHAPE(index_))
118      ENDIF
119
120      IF (PRESENT(n_)) THEN
121        CALL cxios_get_zoom_axis_n &
122      (zoom_axis_hdl%daddr, n_)
123      ENDIF
124
125  END SUBROUTINE xios(get_zoom_axis_attr_hdl_)
126
127  SUBROUTINE xios(is_defined_zoom_axis_attr)  &
128    ( zoom_axis_id, begin, index, n )
129
130    IMPLICIT NONE
131      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
132      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
133      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
134      LOGICAL(KIND=C_BOOL) :: begin_tmp
135      LOGICAL, OPTIONAL, INTENT(OUT) :: index
136      LOGICAL(KIND=C_BOOL) :: index_tmp
137      LOGICAL, OPTIONAL, INTENT(OUT) :: n
138      LOGICAL(KIND=C_BOOL) :: n_tmp
139
140      CALL xios(get_zoom_axis_handle) &
141      (zoom_axis_id,zoom_axis_hdl)
142      CALL xios(is_defined_zoom_axis_attr_hdl_)   &
143      ( zoom_axis_hdl, begin, index, n )
144
145  END SUBROUTINE xios(is_defined_zoom_axis_attr)
146
147  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)  &
148    ( zoom_axis_hdl, begin, index, n )
149
150    IMPLICIT NONE
151      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
152      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
153      LOGICAL(KIND=C_BOOL) :: begin_tmp
154      LOGICAL, OPTIONAL, INTENT(OUT) :: index
155      LOGICAL(KIND=C_BOOL) :: index_tmp
156      LOGICAL, OPTIONAL, INTENT(OUT) :: n
157      LOGICAL(KIND=C_BOOL) :: n_tmp
158
159      CALL xios(is_defined_zoom_axis_attr_hdl_)  &
160      ( zoom_axis_hdl, begin, index, n )
161
162  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)
163
164  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)   &
165    ( zoom_axis_hdl, begin_, index_, n_ )
166
167    IMPLICIT NONE
168      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
169      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
170      LOGICAL(KIND=C_BOOL) :: begin__tmp
171      LOGICAL, OPTIONAL, INTENT(OUT) :: index_
172      LOGICAL(KIND=C_BOOL) :: index__tmp
173      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
174      LOGICAL(KIND=C_BOOL) :: n__tmp
175
176      IF (PRESENT(begin_)) THEN
177        begin__tmp = cxios_is_defined_zoom_axis_begin &
178      (zoom_axis_hdl%daddr)
179        begin_ = begin__tmp
180      ENDIF
181
182      IF (PRESENT(index_)) THEN
183        index__tmp = cxios_is_defined_zoom_axis_index &
184      (zoom_axis_hdl%daddr)
185        index_ = index__tmp
186      ENDIF
187
188      IF (PRESENT(n_)) THEN
189        n__tmp = cxios_is_defined_zoom_axis_n &
190      (zoom_axis_hdl%daddr)
191        n_ = n__tmp
192      ENDIF
193
194  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)
195
196END MODULE izoom_axis_attr
Note: See TracBrowser for help on using the repository browser.