- Timestamp:
- 04/24/18 18:03:18 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r1201 r1492 111 111 112 112 113 SUBROUTINE cxios_set_fieldgroup_comment(fieldgroup_hdl, comment, comment_size) BIND(C) 114 USE ISO_C_BINDING 115 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 116 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 117 INTEGER (kind = C_INT) , VALUE :: comment_size 118 END SUBROUTINE cxios_set_fieldgroup_comment 119 120 SUBROUTINE cxios_get_fieldgroup_comment(fieldgroup_hdl, comment, comment_size) BIND(C) 121 USE ISO_C_BINDING 122 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 123 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 124 INTEGER (kind = C_INT) , VALUE :: comment_size 125 END SUBROUTINE cxios_get_fieldgroup_comment 126 127 FUNCTION cxios_is_defined_fieldgroup_comment(fieldgroup_hdl) BIND(C) 128 USE ISO_C_BINDING 129 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_comment 130 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 131 END FUNCTION cxios_is_defined_fieldgroup_comment 132 133 113 134 SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 114 135 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.