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