- Timestamp:
- 03/19/24 14:23:16 (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS3/trunk/src/interface/fortran_attr/field_interface_attr.F90
r2338 r2616 130 130 131 131 132 SUBROUTINE cxios_set_field_chunking_blocksize_target(field_hdl, chunking_blocksize_target) BIND(C) 133 USE ISO_C_BINDING 134 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 135 REAL (KIND=C_DOUBLE) , VALUE :: chunking_blocksize_target 136 END SUBROUTINE cxios_set_field_chunking_blocksize_target 137 138 SUBROUTINE cxios_get_field_chunking_blocksize_target(field_hdl, chunking_blocksize_target) BIND(C) 139 USE ISO_C_BINDING 140 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 141 REAL (KIND=C_DOUBLE) :: chunking_blocksize_target 142 END SUBROUTINE cxios_get_field_chunking_blocksize_target 143 144 FUNCTION cxios_is_defined_field_chunking_blocksize_target(field_hdl) BIND(C) 145 USE ISO_C_BINDING 146 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_chunking_blocksize_target 147 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 148 END FUNCTION cxios_is_defined_field_chunking_blocksize_target 149 150 132 151 SUBROUTINE cxios_set_field_comment(field_hdl, comment, comment_size) BIND(C) 133 152 USE ISO_C_BINDING … … 170 189 171 190 191 SUBROUTINE cxios_set_field_compression_params(field_hdl, compression_params, extent) BIND(C) 192 USE ISO_C_BINDING 193 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 194 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: compression_params 195 INTEGER (kind = C_INT), DIMENSION(*) :: extent 196 END SUBROUTINE cxios_set_field_compression_params 197 198 SUBROUTINE cxios_get_field_compression_params(field_hdl, compression_params, extent) BIND(C) 199 USE ISO_C_BINDING 200 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 201 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: compression_params 202 INTEGER (kind = C_INT), DIMENSION(*) :: extent 203 END SUBROUTINE cxios_get_field_compression_params 204 205 FUNCTION cxios_is_defined_field_compression_params(field_hdl) BIND(C) 206 USE ISO_C_BINDING 207 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_params 208 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 209 END FUNCTION cxios_is_defined_field_compression_params 210 211 212 SUBROUTINE cxios_set_field_compression_type(field_hdl, compression_type, compression_type_size) BIND(C) 213 USE ISO_C_BINDING 214 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 215 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: compression_type 216 INTEGER (kind = C_INT) , VALUE :: compression_type_size 217 END SUBROUTINE cxios_set_field_compression_type 218 219 SUBROUTINE cxios_get_field_compression_type(field_hdl, compression_type, compression_type_size) BIND(C) 220 USE ISO_C_BINDING 221 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 222 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: compression_type 223 INTEGER (kind = C_INT) , VALUE :: compression_type_size 224 END SUBROUTINE cxios_get_field_compression_type 225 226 FUNCTION cxios_is_defined_field_compression_type(field_hdl) BIND(C) 227 USE ISO_C_BINDING 228 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_type 229 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 230 END FUNCTION cxios_is_defined_field_compression_type 231 232 233 SUBROUTINE cxios_set_field_conversion_by_NetCDF(field_hdl, conversion_by_NetCDF) BIND(C) 234 USE ISO_C_BINDING 235 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 236 LOGICAL (KIND=C_BOOL) , VALUE :: conversion_by_NetCDF 237 END SUBROUTINE cxios_set_field_conversion_by_NetCDF 238 239 SUBROUTINE cxios_get_field_conversion_by_NetCDF(field_hdl, conversion_by_NetCDF) BIND(C) 240 USE ISO_C_BINDING 241 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 242 LOGICAL (KIND=C_BOOL) :: conversion_by_NetCDF 243 END SUBROUTINE cxios_get_field_conversion_by_NetCDF 244 245 FUNCTION cxios_is_defined_field_conversion_by_NetCDF(field_hdl) BIND(C) 246 USE ISO_C_BINDING 247 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_conversion_by_NetCDF 248 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 249 END FUNCTION cxios_is_defined_field_conversion_by_NetCDF 250 251 172 252 SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) 173 253 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.