- Timestamp:
- 02/03/14 14:16:20 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.f90
r464 r472 68 68 69 69 70 SUBROUTINE cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C) 71 USE ISO_C_BINDING 72 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 73 LOGICAL (KIND=C_BOOL) , VALUE :: detect_missing_value 74 END SUBROUTINE cxios_set_fieldgroup_detect_missing_value 75 76 SUBROUTINE cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C) 77 USE ISO_C_BINDING 78 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 79 LOGICAL (KIND=C_BOOL) :: detect_missing_value 80 END SUBROUTINE cxios_get_fieldgroup_detect_missing_value 81 82 FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl ) BIND(C) 83 USE ISO_C_BINDING 84 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_detect_missing_value 85 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 86 END FUNCTION cxios_is_defined_fieldgroup_detect_missing_value 87 88 70 89 SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C) 71 90 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.