source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/ireduce_axis_to_scalar_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago

Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain
File size: 6.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ireduce_axis_to_scalar_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ireduce_axis_to_scalar
9  USE reduce_axis_to_scalar_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_reduce_axis_to_scalar_attr)  &
14    ( reduce_axis_to_scalar_id, local, operation )
15
16    IMPLICIT NONE
17      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id
19      LOGICAL  , OPTIONAL, INTENT(IN) :: local
20      LOGICAL (KIND=C_BOOL) :: local_tmp
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
22
23      CALL xios(get_reduce_axis_to_scalar_handle) &
24      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
25      CALL xios(set_reduce_axis_to_scalar_attr_hdl_)   &
26      ( reduce_axis_to_scalar_hdl, local, operation )
27
28  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr)
29
30  SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl)  &
31    ( reduce_axis_to_scalar_hdl, local, operation )
32
33    IMPLICIT NONE
34      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
35      LOGICAL  , OPTIONAL, INTENT(IN) :: local
36      LOGICAL (KIND=C_BOOL) :: local_tmp
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
38
39      CALL xios(set_reduce_axis_to_scalar_attr_hdl_)  &
40      ( reduce_axis_to_scalar_hdl, local, operation )
41
42  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl)
43
44  SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl_)   &
45    ( reduce_axis_to_scalar_hdl, local_, operation_ )
46
47    IMPLICIT NONE
48      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
49      LOGICAL  , OPTIONAL, INTENT(IN) :: local_
50      LOGICAL (KIND=C_BOOL) :: local__tmp
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
52
53      IF (PRESENT(local_)) THEN
54        local__tmp = local_
55        CALL cxios_set_reduce_axis_to_scalar_local &
56      (reduce_axis_to_scalar_hdl%daddr, local__tmp)
57      ENDIF
58
59      IF (PRESENT(operation_)) THEN
60        CALL cxios_set_reduce_axis_to_scalar_operation &
61      (reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
62      ENDIF
63
64  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl_)
65
66  SUBROUTINE xios(get_reduce_axis_to_scalar_attr)  &
67    ( reduce_axis_to_scalar_id, local, operation )
68
69    IMPLICIT NONE
70      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl
71      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id
72      LOGICAL  , OPTIONAL, INTENT(OUT) :: local
73      LOGICAL (KIND=C_BOOL) :: local_tmp
74      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
75
76      CALL xios(get_reduce_axis_to_scalar_handle) &
77      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
78      CALL xios(get_reduce_axis_to_scalar_attr_hdl_)   &
79      ( reduce_axis_to_scalar_hdl, local, operation )
80
81  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr)
82
83  SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl)  &
84    ( reduce_axis_to_scalar_hdl, local, operation )
85
86    IMPLICIT NONE
87      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
88      LOGICAL  , OPTIONAL, INTENT(OUT) :: local
89      LOGICAL (KIND=C_BOOL) :: local_tmp
90      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
91
92      CALL xios(get_reduce_axis_to_scalar_attr_hdl_)  &
93      ( reduce_axis_to_scalar_hdl, local, operation )
94
95  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl)
96
97  SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl_)   &
98    ( reduce_axis_to_scalar_hdl, local_, operation_ )
99
100    IMPLICIT NONE
101      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
102      LOGICAL  , OPTIONAL, INTENT(OUT) :: local_
103      LOGICAL (KIND=C_BOOL) :: local__tmp
104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
105
106      IF (PRESENT(local_)) THEN
107        CALL cxios_get_reduce_axis_to_scalar_local &
108      (reduce_axis_to_scalar_hdl%daddr, local__tmp)
109        local_ = local__tmp
110      ENDIF
111
112      IF (PRESENT(operation_)) THEN
113        CALL cxios_get_reduce_axis_to_scalar_operation &
114      (reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
115      ENDIF
116
117  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl_)
118
119  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr)  &
120    ( reduce_axis_to_scalar_id, local, operation )
121
122    IMPLICIT NONE
123      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl
124      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id
125      LOGICAL, OPTIONAL, INTENT(OUT) :: local
126      LOGICAL(KIND=C_BOOL) :: local_tmp
127      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
128      LOGICAL(KIND=C_BOOL) :: operation_tmp
129
130      CALL xios(get_reduce_axis_to_scalar_handle) &
131      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
132      CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   &
133      ( reduce_axis_to_scalar_hdl, local, operation )
134
135  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr)
136
137  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl)  &
138    ( reduce_axis_to_scalar_hdl, local, operation )
139
140    IMPLICIT NONE
141      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
142      LOGICAL, OPTIONAL, INTENT(OUT) :: local
143      LOGICAL(KIND=C_BOOL) :: local_tmp
144      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
145      LOGICAL(KIND=C_BOOL) :: operation_tmp
146
147      CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)  &
148      ( reduce_axis_to_scalar_hdl, local, operation )
149
150  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl)
151
152  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   &
153    ( reduce_axis_to_scalar_hdl, local_, operation_ )
154
155    IMPLICIT NONE
156      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
157      LOGICAL, OPTIONAL, INTENT(OUT) :: local_
158      LOGICAL(KIND=C_BOOL) :: local__tmp
159      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
160      LOGICAL(KIND=C_BOOL) :: operation__tmp
161
162      IF (PRESENT(local_)) THEN
163        local__tmp = cxios_is_defined_reduce_axis_to_scalar_local &
164      (reduce_axis_to_scalar_hdl%daddr)
165        local_ = local__tmp
166      ENDIF
167
168      IF (PRESENT(operation_)) THEN
169        operation__tmp = cxios_is_defined_reduce_axis_to_scalar_operation &
170      (reduce_axis_to_scalar_hdl%daddr)
171        operation_ = operation__tmp
172      ENDIF
173
174  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl_)
175
176END MODULE ireduce_axis_to_scalar_attr
Note: See TracBrowser for help on using the repository browser.