- Timestamp:
- 07/05/16 15:59:23 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90
r790 r891 391 391 392 392 393 SUBROUTINE cxios_set_field_scalar_ref(field_hdl, scalar_ref, scalar_ref_size) BIND(C) 394 USE ISO_C_BINDING 395 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 396 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: scalar_ref 397 INTEGER (kind = C_INT) , VALUE :: scalar_ref_size 398 END SUBROUTINE cxios_set_field_scalar_ref 399 400 SUBROUTINE cxios_get_field_scalar_ref(field_hdl, scalar_ref, scalar_ref_size) BIND(C) 401 USE ISO_C_BINDING 402 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 403 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: scalar_ref 404 INTEGER (kind = C_INT) , VALUE :: scalar_ref_size 405 END SUBROUTINE cxios_get_field_scalar_ref 406 407 FUNCTION cxios_is_defined_field_scalar_ref(field_hdl) BIND(C) 408 USE ISO_C_BINDING 409 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scalar_ref 410 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 411 END FUNCTION cxios_is_defined_field_scalar_ref 412 413 393 414 SUBROUTINE cxios_set_field_scale_factor(field_hdl, scale_factor) BIND(C) 394 415 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.