Changeset 779 for XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
- Timestamp:
- 11/04/15 15:50:20 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
r711 r779 13 13 SUBROUTINE xios(set_filegroup_attr) & 14 14 ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits & 15 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&16 , s ync_freq, time_counter, timeseries, ts_prefix, type )15 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 16 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 17 17 18 18 IMPLICIT NONE … … 34 34 INTEGER , OPTIONAL, INTENT(IN) :: output_level 35 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 36 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 36 37 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq 37 38 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format … … 45 46 CALL xios(set_filegroup_attr_hdl_) & 46 47 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 47 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&48 , s ync_freq, time_counter, timeseries, ts_prefix, type )48 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 49 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 49 50 50 51 END SUBROUTINE xios(set_filegroup_attr) … … 52 53 SUBROUTINE xios(set_filegroup_attr_hdl) & 53 54 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 54 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&55 , s ync_freq, time_counter, timeseries, ts_prefix, type )55 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 56 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 56 57 57 58 IMPLICIT NONE … … 72 73 INTEGER , OPTIONAL, INTENT(IN) :: output_level 73 74 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 75 INTEGER , OPTIONAL, INTENT(IN) :: record_offset 74 76 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq 75 77 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format … … 82 84 CALL xios(set_filegroup_attr_hdl_) & 83 85 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 84 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&85 , s ync_freq, time_counter, timeseries, ts_prefix, type )86 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 87 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 86 88 87 89 END SUBROUTINE xios(set_filegroup_attr_hdl) … … 89 91 SUBROUTINE xios(set_filegroup_attr_hdl_) & 90 92 ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_ & 91 , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_ &92 , s ync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )93 , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ & 94 , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ ) 93 95 94 96 IMPLICIT NONE … … 109 111 INTEGER , OPTIONAL, INTENT(IN) :: output_level_ 110 112 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 113 INTEGER , OPTIONAL, INTENT(IN) :: record_offset_ 111 114 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: split_freq_ 112 115 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_ … … 171 174 ENDIF 172 175 176 IF (PRESENT(record_offset_)) THEN 177 CALL cxios_set_filegroup_record_offset(filegroup_hdl%daddr, record_offset_) 178 ENDIF 179 173 180 IF (PRESENT(split_freq_)) THEN 174 181 CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) … … 203 210 SUBROUTINE xios(get_filegroup_attr) & 204 211 ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits & 205 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&206 , s ync_freq, time_counter, timeseries, ts_prefix, type )212 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 213 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 207 214 208 215 IMPLICIT NONE … … 224 231 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 225 232 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 233 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 226 234 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq 227 235 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format … … 235 243 CALL xios(get_filegroup_attr_hdl_) & 236 244 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 237 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&238 , s ync_freq, time_counter, timeseries, ts_prefix, type )245 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 246 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 239 247 240 248 END SUBROUTINE xios(get_filegroup_attr) … … 242 250 SUBROUTINE xios(get_filegroup_attr_hdl) & 243 251 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 244 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&245 , s ync_freq, time_counter, timeseries, ts_prefix, type )252 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 253 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 246 254 247 255 IMPLICIT NONE … … 262 270 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 263 271 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 272 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset 264 273 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq 265 274 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format … … 272 281 CALL xios(get_filegroup_attr_hdl_) & 273 282 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 274 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&275 , s ync_freq, time_counter, timeseries, ts_prefix, type )283 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 284 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 276 285 277 286 END SUBROUTINE xios(get_filegroup_attr_hdl) … … 279 288 SUBROUTINE xios(get_filegroup_attr_hdl_) & 280 289 ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_ & 281 , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_ &282 , s ync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )290 , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ & 291 , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ ) 283 292 284 293 IMPLICIT NONE … … 299 308 INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ 300 309 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 310 INTEGER , OPTIONAL, INTENT(OUT) :: record_offset_ 301 311 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: split_freq_ 302 312 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_ … … 361 371 ENDIF 362 372 373 IF (PRESENT(record_offset_)) THEN 374 CALL cxios_get_filegroup_record_offset(filegroup_hdl%daddr, record_offset_) 375 ENDIF 376 363 377 IF (PRESENT(split_freq_)) THEN 364 378 CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) … … 393 407 SUBROUTINE xios(is_defined_filegroup_attr) & 394 408 ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits & 395 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&396 , s ync_freq, time_counter, timeseries, ts_prefix, type )409 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 410 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 397 411 398 412 IMPLICIT NONE … … 425 439 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 426 440 LOGICAL(KIND=C_BOOL) :: par_access_tmp 441 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 442 LOGICAL(KIND=C_BOOL) :: record_offset_tmp 427 443 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 428 444 LOGICAL(KIND=C_BOOL) :: split_freq_tmp … … 443 459 CALL xios(is_defined_filegroup_attr_hdl_) & 444 460 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 445 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&446 , s ync_freq, time_counter, timeseries, ts_prefix, type )461 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 462 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 447 463 448 464 END SUBROUTINE xios(is_defined_filegroup_attr) … … 450 466 SUBROUTINE xios(is_defined_filegroup_attr_hdl) & 451 467 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 452 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&453 , s ync_freq, time_counter, timeseries, ts_prefix, type )468 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 469 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 454 470 455 471 IMPLICIT NONE … … 481 497 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 482 498 LOGICAL(KIND=C_BOOL) :: par_access_tmp 499 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 500 LOGICAL(KIND=C_BOOL) :: record_offset_tmp 483 501 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq 484 502 LOGICAL(KIND=C_BOOL) :: split_freq_tmp … … 498 516 CALL xios(is_defined_filegroup_attr_hdl_) & 499 517 ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits & 500 , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format&501 , s ync_freq, time_counter, timeseries, ts_prefix, type )518 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 519 , split_freq_format, sync_freq, time_counter, timeseries, ts_prefix, type ) 502 520 503 521 END SUBROUTINE xios(is_defined_filegroup_attr_hdl) … … 505 523 SUBROUTINE xios(is_defined_filegroup_attr_hdl_) & 506 524 ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_ & 507 , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_ &508 , s ync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )525 , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_ & 526 , split_freq_format_, sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ ) 509 527 510 528 IMPLICIT NONE … … 536 554 LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 537 555 LOGICAL(KIND=C_BOOL) :: par_access__tmp 556 LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 557 LOGICAL(KIND=C_BOOL) :: record_offset__tmp 538 558 LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_ 539 559 LOGICAL(KIND=C_BOOL) :: split_freq__tmp … … 616 636 ENDIF 617 637 638 IF (PRESENT(record_offset_)) THEN 639 record_offset__tmp = cxios_is_defined_filegroup_record_offset(filegroup_hdl%daddr) 640 record_offset_ = record_offset__tmp 641 ENDIF 642 618 643 IF (PRESENT(split_freq_)) THEN 619 644 split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.