- Timestamp:
- 06/06/17 17:58:16 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/axis_interface_attr.F90
r817 r1158 151 151 152 152 153 SUBROUTINE cxios_set_axis_label(axis_hdl, label, str_len, str_size, extent) BIND(C) 154 USE ISO_C_BINDING 155 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 156 CHARACTER (KIND=C_CHAR), DIMENSION(*) :: label 157 INTEGER (kind = C_INT), VALUE :: str_len 158 INTEGER (kind = C_INT), DIMENSION(*) :: str_size 159 INTEGER (kind = C_INT), DIMENSION(*) :: extent 160 END SUBROUTINE cxios_set_axis_label 161 162 SUBROUTINE cxios_get_axis_label(axis_hdl, label, str_size, extent) BIND(C) 163 USE ISO_C_BINDING 164 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 165 CHARACTER (KIND=C_CHAR), DIMENSION(*) :: label 166 INTEGER (kind = C_INT), VALUE :: str_size 167 INTEGER (kind = C_INT), DIMENSION(*) :: extent 168 END SUBROUTINE cxios_get_axis_label 169 170 FUNCTION cxios_is_defined_axis_label(axis_hdl) BIND(C) 171 USE ISO_C_BINDING 172 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_label 173 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 174 END FUNCTION cxios_is_defined_axis_label 175 176 153 177 SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C) 154 178 USE ISO_C_BINDING … … 292 316 293 317 318 SUBROUTINE cxios_set_axis_prec(axis_hdl, prec) BIND(C) 319 USE ISO_C_BINDING 320 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 321 INTEGER (KIND=C_INT) , VALUE :: prec 322 END SUBROUTINE cxios_set_axis_prec 323 324 SUBROUTINE cxios_get_axis_prec(axis_hdl, prec) BIND(C) 325 USE ISO_C_BINDING 326 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 327 INTEGER (KIND=C_INT) :: prec 328 END SUBROUTINE cxios_get_axis_prec 329 330 FUNCTION cxios_is_defined_axis_prec(axis_hdl) BIND(C) 331 USE ISO_C_BINDING 332 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_prec 333 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 334 END FUNCTION cxios_is_defined_axis_prec 335 336 294 337 SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C) 295 338 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.