source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ireduce_domain_to_axis_attr.F90 @ 1492

Last change on this file since 1492 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.
File size: 7.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ireduce_domain_to_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ireduce_domain_to_axis
9  USE reduce_domain_to_axis_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_reduce_domain_to_axis_attr)  &
14    ( reduce_domain_to_axis_id, direction, local, operation )
15
16    IMPLICIT NONE
17      TYPE(txios(reduce_domain_to_axis))  :: reduce_domain_to_axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction
20      LOGICAL  , OPTIONAL, INTENT(IN) :: local
21      LOGICAL (KIND=C_BOOL) :: local_tmp
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
23
24      CALL xios(get_reduce_domain_to_axis_handle) &
25      (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl)
26      CALL xios(set_reduce_domain_to_axis_attr_hdl_)   &
27      ( reduce_domain_to_axis_hdl, direction, local, operation )
28
29  END SUBROUTINE xios(set_reduce_domain_to_axis_attr)
30
31  SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl)  &
32    ( reduce_domain_to_axis_hdl, direction, local, operation )
33
34    IMPLICIT NONE
35      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction
37      LOGICAL  , OPTIONAL, INTENT(IN) :: local
38      LOGICAL (KIND=C_BOOL) :: local_tmp
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
40
41      CALL xios(set_reduce_domain_to_axis_attr_hdl_)  &
42      ( reduce_domain_to_axis_hdl, direction, local, operation )
43
44  END SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl)
45
46  SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl_)   &
47    ( reduce_domain_to_axis_hdl, direction_, local_, operation_ )
48
49    IMPLICIT NONE
50      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction_
52      LOGICAL  , OPTIONAL, INTENT(IN) :: local_
53      LOGICAL (KIND=C_BOOL) :: local__tmp
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
55
56      IF (PRESENT(direction_)) THEN
57        CALL cxios_set_reduce_domain_to_axis_direction &
58      (reduce_domain_to_axis_hdl%daddr, direction_, len(direction_))
59      ENDIF
60
61      IF (PRESENT(local_)) THEN
62        local__tmp = local_
63        CALL cxios_set_reduce_domain_to_axis_local &
64      (reduce_domain_to_axis_hdl%daddr, local__tmp)
65      ENDIF
66
67      IF (PRESENT(operation_)) THEN
68        CALL cxios_set_reduce_domain_to_axis_operation &
69      (reduce_domain_to_axis_hdl%daddr, operation_, len(operation_))
70      ENDIF
71
72  END SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl_)
73
74  SUBROUTINE xios(get_reduce_domain_to_axis_attr)  &
75    ( reduce_domain_to_axis_id, direction, local, operation )
76
77    IMPLICIT NONE
78      TYPE(txios(reduce_domain_to_axis))  :: reduce_domain_to_axis_hdl
79      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id
80      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction
81      LOGICAL  , OPTIONAL, INTENT(OUT) :: local
82      LOGICAL (KIND=C_BOOL) :: local_tmp
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
84
85      CALL xios(get_reduce_domain_to_axis_handle) &
86      (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl)
87      CALL xios(get_reduce_domain_to_axis_attr_hdl_)   &
88      ( reduce_domain_to_axis_hdl, direction, local, operation )
89
90  END SUBROUTINE xios(get_reduce_domain_to_axis_attr)
91
92  SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl)  &
93    ( reduce_domain_to_axis_hdl, direction, local, operation )
94
95    IMPLICIT NONE
96      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
97      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction
98      LOGICAL  , OPTIONAL, INTENT(OUT) :: local
99      LOGICAL (KIND=C_BOOL) :: local_tmp
100      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
101
102      CALL xios(get_reduce_domain_to_axis_attr_hdl_)  &
103      ( reduce_domain_to_axis_hdl, direction, local, operation )
104
105  END SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl)
106
107  SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl_)   &
108    ( reduce_domain_to_axis_hdl, direction_, local_, operation_ )
109
110    IMPLICIT NONE
111      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction_
113      LOGICAL  , OPTIONAL, INTENT(OUT) :: local_
114      LOGICAL (KIND=C_BOOL) :: local__tmp
115      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
116
117      IF (PRESENT(direction_)) THEN
118        CALL cxios_get_reduce_domain_to_axis_direction &
119      (reduce_domain_to_axis_hdl%daddr, direction_, len(direction_))
120      ENDIF
121
122      IF (PRESENT(local_)) THEN
123        CALL cxios_get_reduce_domain_to_axis_local &
124      (reduce_domain_to_axis_hdl%daddr, local__tmp)
125        local_ = local__tmp
126      ENDIF
127
128      IF (PRESENT(operation_)) THEN
129        CALL cxios_get_reduce_domain_to_axis_operation &
130      (reduce_domain_to_axis_hdl%daddr, operation_, len(operation_))
131      ENDIF
132
133  END SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl_)
134
135  SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr)  &
136    ( reduce_domain_to_axis_id, direction, local, operation )
137
138    IMPLICIT NONE
139      TYPE(txios(reduce_domain_to_axis))  :: reduce_domain_to_axis_hdl
140      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id
141      LOGICAL, OPTIONAL, INTENT(OUT) :: direction
142      LOGICAL(KIND=C_BOOL) :: direction_tmp
143      LOGICAL, OPTIONAL, INTENT(OUT) :: local
144      LOGICAL(KIND=C_BOOL) :: local_tmp
145      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
146      LOGICAL(KIND=C_BOOL) :: operation_tmp
147
148      CALL xios(get_reduce_domain_to_axis_handle) &
149      (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl)
150      CALL xios(is_defined_reduce_domain_to_axis_attr_hdl_)   &
151      ( reduce_domain_to_axis_hdl, direction, local, operation )
152
153  END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr)
154
155  SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl)  &
156    ( reduce_domain_to_axis_hdl, direction, local, operation )
157
158    IMPLICIT NONE
159      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
160      LOGICAL, OPTIONAL, INTENT(OUT) :: direction
161      LOGICAL(KIND=C_BOOL) :: direction_tmp
162      LOGICAL, OPTIONAL, INTENT(OUT) :: local
163      LOGICAL(KIND=C_BOOL) :: local_tmp
164      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
165      LOGICAL(KIND=C_BOOL) :: operation_tmp
166
167      CALL xios(is_defined_reduce_domain_to_axis_attr_hdl_)  &
168      ( reduce_domain_to_axis_hdl, direction, local, operation )
169
170  END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl)
171
172  SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl_)   &
173    ( reduce_domain_to_axis_hdl, direction_, local_, operation_ )
174
175    IMPLICIT NONE
176      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
177      LOGICAL, OPTIONAL, INTENT(OUT) :: direction_
178      LOGICAL(KIND=C_BOOL) :: direction__tmp
179      LOGICAL, OPTIONAL, INTENT(OUT) :: local_
180      LOGICAL(KIND=C_BOOL) :: local__tmp
181      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
182      LOGICAL(KIND=C_BOOL) :: operation__tmp
183
184      IF (PRESENT(direction_)) THEN
185        direction__tmp = cxios_is_defined_reduce_domain_to_axis_direction &
186      (reduce_domain_to_axis_hdl%daddr)
187        direction_ = direction__tmp
188      ENDIF
189
190      IF (PRESENT(local_)) THEN
191        local__tmp = cxios_is_defined_reduce_domain_to_axis_local &
192      (reduce_domain_to_axis_hdl%daddr)
193        local_ = local__tmp
194      ENDIF
195
196      IF (PRESENT(operation_)) THEN
197        operation__tmp = cxios_is_defined_reduce_domain_to_axis_operation &
198      (reduce_domain_to_axis_hdl%daddr)
199        operation_ = operation__tmp
200      ENDIF
201
202  END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl_)
203
204END MODULE ireduce_domain_to_axis_attr
Note: See TracBrowser for help on using the repository browser.