- Timestamp:
- 07/05/16 15:59:23 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r790 r891 412 412 413 413 414 SUBROUTINE cxios_set_fieldgroup_scalar_ref(fieldgroup_hdl, scalar_ref, scalar_ref_size) BIND(C) 415 USE ISO_C_BINDING 416 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 417 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: scalar_ref 418 INTEGER (kind = C_INT) , VALUE :: scalar_ref_size 419 END SUBROUTINE cxios_set_fieldgroup_scalar_ref 420 421 SUBROUTINE cxios_get_fieldgroup_scalar_ref(fieldgroup_hdl, scalar_ref, scalar_ref_size) BIND(C) 422 USE ISO_C_BINDING 423 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 424 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: scalar_ref 425 INTEGER (kind = C_INT) , VALUE :: scalar_ref_size 426 END SUBROUTINE cxios_get_fieldgroup_scalar_ref 427 428 FUNCTION cxios_is_defined_fieldgroup_scalar_ref(fieldgroup_hdl) BIND(C) 429 USE ISO_C_BINDING 430 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_scalar_ref 431 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 432 END FUNCTION cxios_is_defined_fieldgroup_scalar_ref 433 434 414 435 SUBROUTINE cxios_set_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C) 415 436 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.