source: XIOS2/trunk/src/interface/fortran_attr/ireduce_axis_to_axis_attr.F90 @ 2623

Last change on this file since 2623 was 2623, checked in by jderouillat, 4 months ago

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
File size: 5.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ireduce_axis_to_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ireduce_axis_to_axis
9  USE reduce_axis_to_axis_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_reduce_axis_to_axis_attr)  &
15    ( reduce_axis_to_axis_id, operation )
16
17    IMPLICIT NONE
18      TYPE(txios(reduce_axis_to_axis))  :: reduce_axis_to_axis_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_axis_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
21
22      CALL xios(get_reduce_axis_to_axis_handle) &
23      (reduce_axis_to_axis_id,reduce_axis_to_axis_hdl)
24      CALL xios(set_reduce_axis_to_axis_attr_hdl_)   &
25      ( reduce_axis_to_axis_hdl, operation )
26
27  END SUBROUTINE xios(set_reduce_axis_to_axis_attr)
28
29  SUBROUTINE xios(set_reduce_axis_to_axis_attr_hdl)  &
30    ( reduce_axis_to_axis_hdl, operation )
31
32    IMPLICIT NONE
33      TYPE(txios(reduce_axis_to_axis)) , INTENT(IN) :: reduce_axis_to_axis_hdl
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
35
36      CALL xios(set_reduce_axis_to_axis_attr_hdl_)  &
37      ( reduce_axis_to_axis_hdl, operation )
38
39  END SUBROUTINE xios(set_reduce_axis_to_axis_attr_hdl)
40
41  SUBROUTINE xios(set_reduce_axis_to_axis_attr_hdl_)   &
42    ( reduce_axis_to_axis_hdl, operation_ )
43
44    IMPLICIT NONE
45      TYPE(txios(reduce_axis_to_axis)) , INTENT(IN) :: reduce_axis_to_axis_hdl
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
47
48      IF (PRESENT(operation_)) THEN
49        CALL cxios_set_reduce_axis_to_axis_operation &
50      (reduce_axis_to_axis_hdl%daddr, operation_, len(operation_))
51      ENDIF
52
53  END SUBROUTINE xios(set_reduce_axis_to_axis_attr_hdl_)
54
55  SUBROUTINE xios(get_reduce_axis_to_axis_attr)  &
56    ( reduce_axis_to_axis_id, operation )
57
58    IMPLICIT NONE
59      TYPE(txios(reduce_axis_to_axis))  :: reduce_axis_to_axis_hdl
60      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_axis_id
61      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
62
63      CALL xios(get_reduce_axis_to_axis_handle) &
64      (reduce_axis_to_axis_id,reduce_axis_to_axis_hdl)
65      CALL xios(get_reduce_axis_to_axis_attr_hdl_)   &
66      ( reduce_axis_to_axis_hdl, operation )
67
68  END SUBROUTINE xios(get_reduce_axis_to_axis_attr)
69
70  SUBROUTINE xios(get_reduce_axis_to_axis_attr_hdl)  &
71    ( reduce_axis_to_axis_hdl, operation )
72
73    IMPLICIT NONE
74      TYPE(txios(reduce_axis_to_axis)) , INTENT(IN) :: reduce_axis_to_axis_hdl
75      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
76
77      CALL xios(get_reduce_axis_to_axis_attr_hdl_)  &
78      ( reduce_axis_to_axis_hdl, operation )
79
80  END SUBROUTINE xios(get_reduce_axis_to_axis_attr_hdl)
81
82  SUBROUTINE xios(get_reduce_axis_to_axis_attr_hdl_)   &
83    ( reduce_axis_to_axis_hdl, operation_ )
84
85    IMPLICIT NONE
86      TYPE(txios(reduce_axis_to_axis)) , INTENT(IN) :: reduce_axis_to_axis_hdl
87      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
88
89      IF (PRESENT(operation_)) THEN
90        CALL cxios_get_reduce_axis_to_axis_operation &
91      (reduce_axis_to_axis_hdl%daddr, operation_, len(operation_))
92      ENDIF
93
94  END SUBROUTINE xios(get_reduce_axis_to_axis_attr_hdl_)
95
96  SUBROUTINE xios(is_defined_reduce_axis_to_axis_attr)  &
97    ( reduce_axis_to_axis_id, operation )
98
99    IMPLICIT NONE
100      TYPE(txios(reduce_axis_to_axis))  :: reduce_axis_to_axis_hdl
101      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_axis_id
102      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
103      LOGICAL(KIND=C_BOOL) :: operation_tmp
104
105      CALL xios(get_reduce_axis_to_axis_handle) &
106      (reduce_axis_to_axis_id,reduce_axis_to_axis_hdl)
107      CALL xios(is_defined_reduce_axis_to_axis_attr_hdl_)   &
108      ( reduce_axis_to_axis_hdl, operation )
109
110  END SUBROUTINE xios(is_defined_reduce_axis_to_axis_attr)
111
112  SUBROUTINE xios(is_defined_reduce_axis_to_axis_attr_hdl)  &
113    ( reduce_axis_to_axis_hdl, operation )
114
115    IMPLICIT NONE
116      TYPE(txios(reduce_axis_to_axis)) , INTENT(IN) :: reduce_axis_to_axis_hdl
117      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
118      LOGICAL(KIND=C_BOOL) :: operation_tmp
119
120      CALL xios(is_defined_reduce_axis_to_axis_attr_hdl_)  &
121      ( reduce_axis_to_axis_hdl, operation )
122
123  END SUBROUTINE xios(is_defined_reduce_axis_to_axis_attr_hdl)
124
125  SUBROUTINE xios(is_defined_reduce_axis_to_axis_attr_hdl_)   &
126    ( reduce_axis_to_axis_hdl, operation_ )
127
128    IMPLICIT NONE
129      TYPE(txios(reduce_axis_to_axis)) , INTENT(IN) :: reduce_axis_to_axis_hdl
130      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
131      LOGICAL(KIND=C_BOOL) :: operation__tmp
132
133      IF (PRESENT(operation_)) THEN
134        operation__tmp = cxios_is_defined_reduce_axis_to_axis_operation &
135      (reduce_axis_to_axis_hdl%daddr)
136        operation_ = operation__tmp
137      ENDIF
138
139  END SUBROUTINE xios(is_defined_reduce_axis_to_axis_attr_hdl_)
140
141END MODULE ireduce_axis_to_axis_attr
Note: See TracBrowser for help on using the repository browser.