- Timestamp:
- 12/17/14 11:14:05 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/file_interface_attr.F90
r538 r545 153 153 SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq) BIND(C) 154 154 USE ISO_C_BINDING 155 USE ID ATE155 USE IDURATION 156 156 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 157 157 TYPE(txios(duration)), VALUE :: output_freq … … 160 160 SUBROUTINE cxios_get_file_output_freq(file_hdl, output_freq) BIND(C) 161 161 USE ISO_C_BINDING 162 USE ID ATE162 USE IDURATION 163 163 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 164 164 TYPE(txios(duration)) :: output_freq … … 214 214 SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq) BIND(C) 215 215 USE ISO_C_BINDING 216 USE ID ATE216 USE IDURATION 217 217 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 218 218 TYPE(txios(duration)), VALUE :: split_freq … … 221 221 SUBROUTINE cxios_get_file_split_freq(file_hdl, split_freq) BIND(C) 222 222 USE ISO_C_BINDING 223 USE ID ATE223 USE IDURATION 224 224 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 225 225 TYPE(txios(duration)) :: split_freq … … 256 256 SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq) BIND(C) 257 257 USE ISO_C_BINDING 258 USE ID ATE258 USE IDURATION 259 259 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 260 260 TYPE(txios(duration)), VALUE :: sync_freq … … 263 263 SUBROUTINE cxios_get_file_sync_freq(file_hdl, sync_freq) BIND(C) 264 264 USE ISO_C_BINDING 265 USE ID ATE265 USE IDURATION 266 266 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 267 267 TYPE(txios(duration)) :: sync_freq
Note: See TracChangeset
for help on using the changeset viewer.