- Timestamp:
- 04/24/18 18:03:18 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/axis_interface_attr.F90
r1158 r1492 31 31 32 32 33 SUBROUTINE cxios_set_axis_axis_type(axis_hdl, axis_type, axis_type_size) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 36 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 37 INTEGER (kind = C_INT) , VALUE :: axis_type_size 38 END SUBROUTINE cxios_set_axis_axis_type 39 40 SUBROUTINE cxios_get_axis_axis_type(axis_hdl, axis_type, axis_type_size) BIND(C) 41 USE ISO_C_BINDING 42 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 43 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_type 44 INTEGER (kind = C_INT) , VALUE :: axis_type_size 45 END SUBROUTINE cxios_get_axis_axis_type 46 47 FUNCTION cxios_is_defined_axis_axis_type(axis_hdl) BIND(C) 48 USE ISO_C_BINDING 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_axis_type 50 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 51 END FUNCTION cxios_is_defined_axis_axis_type 52 53 33 54 SUBROUTINE cxios_set_axis_begin(axis_hdl, begin) BIND(C) 34 55 USE ISO_C_BINDING … … 71 92 72 93 94 SUBROUTINE cxios_set_axis_bounds_name(axis_hdl, bounds_name, bounds_name_size) BIND(C) 95 USE ISO_C_BINDING 96 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 97 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 98 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 99 END SUBROUTINE cxios_set_axis_bounds_name 100 101 SUBROUTINE cxios_get_axis_bounds_name(axis_hdl, bounds_name, bounds_name_size) BIND(C) 102 USE ISO_C_BINDING 103 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 104 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: bounds_name 105 INTEGER (kind = C_INT) , VALUE :: bounds_name_size 106 END SUBROUTINE cxios_get_axis_bounds_name 107 108 FUNCTION cxios_is_defined_axis_bounds_name(axis_hdl) BIND(C) 109 USE ISO_C_BINDING 110 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_bounds_name 111 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 112 END FUNCTION cxios_is_defined_axis_bounds_name 113 114 115 SUBROUTINE cxios_set_axis_comment(axis_hdl, comment, comment_size) BIND(C) 116 USE ISO_C_BINDING 117 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 118 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 119 INTEGER (kind = C_INT) , VALUE :: comment_size 120 END SUBROUTINE cxios_set_axis_comment 121 122 SUBROUTINE cxios_get_axis_comment(axis_hdl, comment, comment_size) BIND(C) 123 USE ISO_C_BINDING 124 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 125 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 126 INTEGER (kind = C_INT) , VALUE :: comment_size 127 END SUBROUTINE cxios_get_axis_comment 128 129 FUNCTION cxios_is_defined_axis_comment(axis_hdl) BIND(C) 130 USE ISO_C_BINDING 131 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_comment 132 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 133 END FUNCTION cxios_is_defined_axis_comment 134 135 73 136 SUBROUTINE cxios_set_axis_data_begin(axis_hdl, data_begin) BIND(C) 74 137 USE ISO_C_BINDING … … 128 191 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 129 192 END FUNCTION cxios_is_defined_axis_data_n 193 194 195 SUBROUTINE cxios_set_axis_dim_name(axis_hdl, dim_name, dim_name_size) BIND(C) 196 USE ISO_C_BINDING 197 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 198 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_name 199 INTEGER (kind = C_INT) , VALUE :: dim_name_size 200 END SUBROUTINE cxios_set_axis_dim_name 201 202 SUBROUTINE cxios_get_axis_dim_name(axis_hdl, dim_name, dim_name_size) BIND(C) 203 USE ISO_C_BINDING 204 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 205 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: dim_name 206 INTEGER (kind = C_INT) , VALUE :: dim_name_size 207 END SUBROUTINE cxios_get_axis_dim_name 208 209 FUNCTION cxios_is_defined_axis_dim_name(axis_hdl) BIND(C) 210 USE ISO_C_BINDING 211 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_dim_name 212 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 213 END FUNCTION cxios_is_defined_axis_dim_name 214 215 216 SUBROUTINE cxios_set_axis_formula(axis_hdl, formula, formula_size) BIND(C) 217 USE ISO_C_BINDING 218 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 219 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula 220 INTEGER (kind = C_INT) , VALUE :: formula_size 221 END SUBROUTINE cxios_set_axis_formula 222 223 SUBROUTINE cxios_get_axis_formula(axis_hdl, formula, formula_size) BIND(C) 224 USE ISO_C_BINDING 225 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 226 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula 227 INTEGER (kind = C_INT) , VALUE :: formula_size 228 END SUBROUTINE cxios_get_axis_formula 229 230 FUNCTION cxios_is_defined_axis_formula(axis_hdl) BIND(C) 231 USE ISO_C_BINDING 232 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula 233 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 234 END FUNCTION cxios_is_defined_axis_formula 235 236 237 SUBROUTINE cxios_set_axis_formula_bounds(axis_hdl, formula_bounds, formula_bounds_size) BIND(C) 238 USE ISO_C_BINDING 239 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 240 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_bounds 241 INTEGER (kind = C_INT) , VALUE :: formula_bounds_size 242 END SUBROUTINE cxios_set_axis_formula_bounds 243 244 SUBROUTINE cxios_get_axis_formula_bounds(axis_hdl, formula_bounds, formula_bounds_size) BIND(C) 245 USE ISO_C_BINDING 246 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 247 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_bounds 248 INTEGER (kind = C_INT) , VALUE :: formula_bounds_size 249 END SUBROUTINE cxios_get_axis_formula_bounds 250 251 FUNCTION cxios_is_defined_axis_formula_bounds(axis_hdl) BIND(C) 252 USE ISO_C_BINDING 253 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula_bounds 254 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 255 END FUNCTION cxios_is_defined_axis_formula_bounds 256 257 258 SUBROUTINE cxios_set_axis_formula_term(axis_hdl, formula_term, formula_term_size) BIND(C) 259 USE ISO_C_BINDING 260 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 261 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term 262 INTEGER (kind = C_INT) , VALUE :: formula_term_size 263 END SUBROUTINE cxios_set_axis_formula_term 264 265 SUBROUTINE cxios_get_axis_formula_term(axis_hdl, formula_term, formula_term_size) BIND(C) 266 USE ISO_C_BINDING 267 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 268 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term 269 INTEGER (kind = C_INT) , VALUE :: formula_term_size 270 END SUBROUTINE cxios_get_axis_formula_term 271 272 FUNCTION cxios_is_defined_axis_formula_term(axis_hdl) BIND(C) 273 USE ISO_C_BINDING 274 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula_term 275 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 276 END FUNCTION cxios_is_defined_axis_formula_term 277 278 279 SUBROUTINE cxios_set_axis_formula_term_bounds(axis_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C) 280 USE ISO_C_BINDING 281 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 282 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term_bounds 283 INTEGER (kind = C_INT) , VALUE :: formula_term_bounds_size 284 END SUBROUTINE cxios_set_axis_formula_term_bounds 285 286 SUBROUTINE cxios_get_axis_formula_term_bounds(axis_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C) 287 USE ISO_C_BINDING 288 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 289 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: formula_term_bounds 290 INTEGER (kind = C_INT) , VALUE :: formula_term_bounds_size 291 END SUBROUTINE cxios_get_axis_formula_term_bounds 292 293 FUNCTION cxios_is_defined_axis_formula_term_bounds(axis_hdl) BIND(C) 294 USE ISO_C_BINDING 295 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula_term_bounds 296 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 297 END FUNCTION cxios_is_defined_axis_formula_term_bounds 130 298 131 299
Note: See TracChangeset
for help on using the changeset viewer.