Changeset 1205 for XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/fieldgroup_interface_attr.F90
- Timestamp:
- 07/10/17 18:17:04 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r1005 r1205 92 92 93 93 94 SUBROUTINE cxios_set_fieldgroup_check_if_active(fieldgroup_hdl, check_if_active) BIND(C) 95 USE ISO_C_BINDING 96 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 97 LOGICAL (KIND=C_BOOL) , VALUE :: check_if_active 98 END SUBROUTINE cxios_set_fieldgroup_check_if_active 99 100 SUBROUTINE cxios_get_fieldgroup_check_if_active(fieldgroup_hdl, check_if_active) BIND(C) 101 USE ISO_C_BINDING 102 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 103 LOGICAL (KIND=C_BOOL) :: check_if_active 104 END SUBROUTINE cxios_get_fieldgroup_check_if_active 105 106 FUNCTION cxios_is_defined_fieldgroup_check_if_active(fieldgroup_hdl) BIND(C) 107 USE ISO_C_BINDING 108 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_check_if_active 109 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 110 END FUNCTION cxios_is_defined_fieldgroup_check_if_active 111 112 94 113 SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 95 114 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.