- Timestamp:
- 06/18/18 20:32:55 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/src/interface/fortran_attr/field_interface_attr.F90
r1205 r1545 111 111 112 112 113 SUBROUTINE cxios_set_field_comment(field_hdl, comment, comment_size) BIND(C) 114 USE ISO_C_BINDING 115 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 116 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 117 INTEGER (kind = C_INT) , VALUE :: comment_size 118 END SUBROUTINE cxios_set_field_comment 119 120 SUBROUTINE cxios_get_field_comment(field_hdl, comment, comment_size) BIND(C) 121 USE ISO_C_BINDING 122 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 123 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 124 INTEGER (kind = C_INT) , VALUE :: comment_size 125 END SUBROUTINE cxios_get_field_comment 126 127 FUNCTION cxios_is_defined_field_comment(field_hdl) BIND(C) 128 USE ISO_C_BINDING 129 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_comment 130 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 131 END FUNCTION cxios_is_defined_field_comment 132 133 113 134 SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C) 114 135 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.