Changeset 545 for XIOS/trunk/src/interface/fortran_attr
- Timestamp:
- 12/17/14 11:14:05 (10 years ago)
- Location:
- XIOS/trunk/src/interface/fortran_attr
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/context_interface_attr.F90
r537 r545 96 96 SUBROUTINE cxios_set_context_timestep(context_hdl, timestep) BIND(C) 97 97 USE ISO_C_BINDING 98 USE ID ATE98 USE IDURATION 99 99 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 100 100 TYPE(txios(duration)), VALUE :: timestep … … 103 103 SUBROUTINE cxios_get_context_timestep(context_hdl, timestep) BIND(C) 104 104 USE ISO_C_BINDING 105 USE ID ATE105 USE IDURATION 106 106 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 107 107 TYPE(txios(duration)) :: timestep -
XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90
r538 r545 151 151 SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset) BIND(C) 152 152 USE ISO_C_BINDING 153 USE ID ATE153 USE IDURATION 154 154 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 155 155 TYPE(txios(duration)), VALUE :: freq_offset … … 158 158 SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset) BIND(C) 159 159 USE ISO_C_BINDING 160 USE ID ATE160 USE IDURATION 161 161 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 162 162 TYPE(txios(duration)) :: freq_offset … … 172 172 SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op) BIND(C) 173 173 USE ISO_C_BINDING 174 USE ID ATE174 USE IDURATION 175 175 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 176 176 TYPE(txios(duration)), VALUE :: freq_op … … 179 179 SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op) BIND(C) 180 180 USE ISO_C_BINDING 181 USE ID ATE181 USE IDURATION 182 182 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 183 183 TYPE(txios(duration)) :: freq_op -
XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r538 r545 151 151 SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C) 152 152 USE ISO_C_BINDING 153 USE ID ATE153 USE IDURATION 154 154 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 155 155 TYPE(txios(duration)), VALUE :: freq_offset … … 158 158 SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C) 159 159 USE ISO_C_BINDING 160 USE ID ATE160 USE IDURATION 161 161 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 162 162 TYPE(txios(duration)) :: freq_offset … … 172 172 SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C) 173 173 USE ISO_C_BINDING 174 USE ID ATE174 USE IDURATION 175 175 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 176 176 TYPE(txios(duration)), VALUE :: freq_op … … 179 179 SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C) 180 180 USE ISO_C_BINDING 181 USE ID ATE181 USE IDURATION 182 182 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 183 183 TYPE(txios(duration)) :: freq_op -
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 -
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r538 r545 174 174 SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C) 175 175 USE ISO_C_BINDING 176 USE ID ATE176 USE IDURATION 177 177 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 178 178 TYPE(txios(duration)), VALUE :: output_freq … … 181 181 SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C) 182 182 USE ISO_C_BINDING 183 USE ID ATE183 USE IDURATION 184 184 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 185 185 TYPE(txios(duration)) :: output_freq … … 235 235 SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C) 236 236 USE ISO_C_BINDING 237 USE ID ATE237 USE IDURATION 238 238 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 239 239 TYPE(txios(duration)), VALUE :: split_freq … … 242 242 SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C) 243 243 USE ISO_C_BINDING 244 USE ID ATE244 USE IDURATION 245 245 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 246 246 TYPE(txios(duration)) :: split_freq … … 277 277 SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C) 278 278 USE ISO_C_BINDING 279 USE ID ATE279 USE IDURATION 280 280 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 281 281 TYPE(txios(duration)), VALUE :: sync_freq … … 284 284 SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C) 285 285 USE ISO_C_BINDING 286 USE ID ATE286 USE IDURATION 287 287 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 288 288 TYPE(txios(duration)) :: sync_freq
Note: See TracChangeset
for help on using the changeset viewer.