Ignore:
Timestamp:
03/19/24 14:23:16 (4 months ago)
Author:
jderouillat
Message:

Add XIOS3 fortran interfaces (resources management, chunking, compression)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS3/trunk/src/interface/fortran_attr/ifilegroup_attr.F90

    r1492 r2616  
    1313  SUBROUTINE xios(set_filegroup_attr)  & 
    1414    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    15     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    16     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    17     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    18     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     15    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     16    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     17    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     18    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     19    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    3334      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    3435      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 
     36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 
    3537      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
    3638      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits 
    … …  
    4143      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    4244      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 
     46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 
     47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 
    4348      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
    4449      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 
    4551      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
    4652      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    … …  
    5864      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    5965      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     66      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2 
     67      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    6068      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
    6169      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
     70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 
    6271 
    6372      CALL xios(get_filegroup_handle) & 
    … …  
    6574      CALL xios(set_filegroup_attr_hdl_)   & 
    6675      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    67       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    68       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    69       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    70       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     76      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     77      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     78      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     79      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     80      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    7181 
    7282  END SUBROUTINE xios(set_filegroup_attr) 
    … …  
    7484  SUBROUTINE xios(set_filegroup_attr_hdl)  & 
    7585    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    76     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    77     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    78     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    79     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     86    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     87    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     88    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     89    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     90    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    8091 
    8192    IMPLICIT NONE 
    … …  
    93104      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    94105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format 
     106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer 
    95107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
    96108      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits 
    … …  
    101113      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
    102114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 
     115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer 
     116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader 
     117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer 
    103118      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par 
    104119      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     120      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader 
    105121      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset 
    106122      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset 
    … …  
    118134      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    119135      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     136      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2 
     137      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    120138      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
    121139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
     140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer 
    122141 
    123142      CALL xios(set_filegroup_attr_hdl_)  & 
    124143      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    125       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    126       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    127       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    128       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     144      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     145      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     146      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     147      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     148      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    129149 
    130150  END SUBROUTINE xios(set_filegroup_attr_hdl) 
    … …  
    132152  SUBROUTINE xios(set_filegroup_attr_hdl_)   & 
    133153    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  & 
    134     , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_  & 
    135     , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_  & 
    136     , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_  & 
    137     , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    138     , uuid_name_ ) 
     154    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  & 
     155    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  & 
     156    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
     157    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
     158    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  & 
     159     ) 
    139160 
    140161    IMPLICIT NONE 
    … …  
    152173      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
    153174      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_ 
     175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer_ 
    154176      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 
    155177      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_ 
    … …  
    160182      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_ 
    161183      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 
     184      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer_ 
     185      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader_ 
     186      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer_ 
    162187      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par_ 
    163188      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
     189      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader_ 
    164190      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_ 
    165191      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset_ 
    … …  
    177203      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 
    178204      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
     205      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2_ 
     206      LOGICAL (KIND=C_BOOL) :: using_server2__tmp 
    179207      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 
    180208      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 
     209      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer_ 
    181210 
    182211      IF (PRESENT(append_)) THEN 
    … …  
    228257      ENDIF 
    229258 
     259      IF (PRESENT(gatherer_)) THEN 
     260        CALL cxios_set_filegroup_gatherer & 
     261      (filegroup_hdl%daddr, gatherer_, len(gatherer_)) 
     262      ENDIF 
     263 
    230264      IF (PRESENT(group_ref_)) THEN 
    231265        CALL cxios_set_filegroup_group_ref & 
    … …  
    266300        CALL cxios_set_filegroup_par_access & 
    267301      (filegroup_hdl%daddr, par_access_, len(par_access_)) 
     302      ENDIF 
     303 
     304      IF (PRESENT(pool_gatherer_)) THEN 
     305        CALL cxios_set_filegroup_pool_gatherer & 
     306      (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 
     307      ENDIF 
     308 
     309      IF (PRESENT(pool_reader_)) THEN 
     310        CALL cxios_set_filegroup_pool_reader & 
     311      (filegroup_hdl%daddr, pool_reader_, len(pool_reader_)) 
     312      ENDIF 
     313 
     314      IF (PRESENT(pool_writer_)) THEN 
     315        CALL cxios_set_filegroup_pool_writer & 
     316      (filegroup_hdl%daddr, pool_writer_, len(pool_writer_)) 
    268317      ENDIF 
    269318 
    … …  
    274323      ENDIF 
    275324 
     325      IF (PRESENT(reader_)) THEN 
     326        CALL cxios_set_filegroup_reader & 
     327      (filegroup_hdl%daddr, reader_, len(reader_)) 
     328      ENDIF 
     329 
    276330      IF (PRESENT(record_offset_)) THEN 
    277331        CALL cxios_set_filegroup_record_offset & 
    … …  
    349403      ENDIF 
    350404 
     405      IF (PRESENT(using_server2_)) THEN 
     406        using_server2__tmp = using_server2_ 
     407        CALL cxios_set_filegroup_using_server2 & 
     408      (filegroup_hdl%daddr, using_server2__tmp) 
     409      ENDIF 
     410 
    351411      IF (PRESENT(uuid_format_)) THEN 
    352412        CALL cxios_set_filegroup_uuid_format & 
    … …  
    359419      ENDIF 
    360420 
     421      IF (PRESENT(writer_)) THEN 
     422        CALL cxios_set_filegroup_writer & 
     423      (filegroup_hdl%daddr, writer_, len(writer_)) 
     424      ENDIF 
     425 
    361426  END SUBROUTINE xios(set_filegroup_attr_hdl_) 
    362427 
    363428  SUBROUTINE xios(get_filegroup_attr)  & 
    364429    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    365     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    366     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    367     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    368     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     430    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     431    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     432    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     433    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     434    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    369435 
    370436    IMPLICIT NONE 
    … …  
    383449      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    384450      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 
     451      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 
    385452      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
    386453      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits 
    … …  
    391458      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    392459      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     460      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 
     461      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 
     462      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 
    393463      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
    394464      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     465      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 
    395466      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
    396467      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    … …  
    408479      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    409480      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     481      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2 
     482      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    410483      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
    411484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
     485      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 
    412486 
    413487      CALL xios(get_filegroup_handle) & 
    … …  
    415489      CALL xios(get_filegroup_attr_hdl_)   & 
    416490      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    417       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    418       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    419       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    420       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     491      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     492      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     493      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     494      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     495      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    421496 
    422497  END SUBROUTINE xios(get_filegroup_attr) 
    … …  
    424499  SUBROUTINE xios(get_filegroup_attr_hdl)  & 
    425500    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    426     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    427     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    428     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    429     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     501    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     502    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     503    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     504    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     505    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    430506 
    431507    IMPLICIT NONE 
    … …  
    443519      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    444520      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format 
     521      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer 
    445522      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
    446523      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits 
    … …  
    451528      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
    452529      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 
     530      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer 
     531      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader 
     532      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer 
    453533      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par 
    454534      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp 
     535      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader 
    455536      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset 
    456537      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset 
    … …  
    468549      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    469550      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     551      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2 
     552      LOGICAL (KIND=C_BOOL) :: using_server2_tmp 
    470553      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
    471554      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
     555      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer 
    472556 
    473557      CALL xios(get_filegroup_attr_hdl_)  & 
    474558      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    475       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    476       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    477       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    478       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     559      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     560      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     561      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     562      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     563      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    479564 
    480565  END SUBROUTINE xios(get_filegroup_attr_hdl) 
    … …  
    482567  SUBROUTINE xios(get_filegroup_attr_hdl_)   & 
    483568    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  & 
    484     , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_  & 
    485     , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_  & 
    486     , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_  & 
    487     , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    488     , uuid_name_ ) 
     569    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  & 
     570    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  & 
     571    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
     572    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
     573    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  & 
     574     ) 
    489575 
    490576    IMPLICIT NONE 
    … …  
    502588      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
    503589      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_ 
     590      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer_ 
    504591      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 
    505592      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_ 
    … …  
    510597      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_ 
    511598      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 
     599      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer_ 
     600      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader_ 
     601      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer_ 
    512602      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
    513603      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp 
     604      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader_ 
    514605      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_ 
    515606      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset_ 
    … …  
    527618      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 
    528619      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
     620      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2_ 
     621      LOGICAL (KIND=C_BOOL) :: using_server2__tmp 
    529622      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 
    530623      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 
     624      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer_ 
    531625 
    532626      IF (PRESENT(append_)) THEN 
    … …  
    578672      ENDIF 
    579673 
     674      IF (PRESENT(gatherer_)) THEN 
     675        CALL cxios_get_filegroup_gatherer & 
     676      (filegroup_hdl%daddr, gatherer_, len(gatherer_)) 
     677      ENDIF 
     678 
    580679      IF (PRESENT(group_ref_)) THEN 
    581680        CALL cxios_get_filegroup_group_ref & 
    … …  
    616715        CALL cxios_get_filegroup_par_access & 
    617716      (filegroup_hdl%daddr, par_access_, len(par_access_)) 
     717      ENDIF 
     718 
     719      IF (PRESENT(pool_gatherer_)) THEN 
     720        CALL cxios_get_filegroup_pool_gatherer & 
     721      (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_)) 
     722      ENDIF 
     723 
     724      IF (PRESENT(pool_reader_)) THEN 
     725        CALL cxios_get_filegroup_pool_reader & 
     726      (filegroup_hdl%daddr, pool_reader_, len(pool_reader_)) 
     727      ENDIF 
     728 
     729      IF (PRESENT(pool_writer_)) THEN 
     730        CALL cxios_get_filegroup_pool_writer & 
     731      (filegroup_hdl%daddr, pool_writer_, len(pool_writer_)) 
    618732      ENDIF 
    619733 
    … …  
    624738      ENDIF 
    625739 
     740      IF (PRESENT(reader_)) THEN 
     741        CALL cxios_get_filegroup_reader & 
     742      (filegroup_hdl%daddr, reader_, len(reader_)) 
     743      ENDIF 
     744 
    626745      IF (PRESENT(record_offset_)) THEN 
    627746        CALL cxios_get_filegroup_record_offset & 
    … …  
    699818      ENDIF 
    700819 
     820      IF (PRESENT(using_server2_)) THEN 
     821        CALL cxios_get_filegroup_using_server2 & 
     822      (filegroup_hdl%daddr, using_server2__tmp) 
     823        using_server2_ = using_server2__tmp 
     824      ENDIF 
     825 
    701826      IF (PRESENT(uuid_format_)) THEN 
    702827        CALL cxios_get_filegroup_uuid_format & 
    … …  
    709834      ENDIF 
    710835 
     836      IF (PRESENT(writer_)) THEN 
     837        CALL cxios_get_filegroup_writer & 
     838      (filegroup_hdl%daddr, writer_, len(writer_)) 
     839      ENDIF 
     840 
    711841  END SUBROUTINE xios(get_filegroup_attr_hdl_) 
    712842 
    713843  SUBROUTINE xios(is_defined_filegroup_attr)  & 
    714844    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    715     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    716     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    717     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    718     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     845    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     846    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     847    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     848    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     849    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    719850 
    720851    IMPLICIT NONE 
    … …  
    739870      LOGICAL, OPTIONAL, INTENT(OUT) :: format 
    740871      LOGICAL(KIND=C_BOOL) :: format_tmp 
     872      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 
     873      LOGICAL(KIND=C_BOOL) :: gatherer_tmp 
    741874      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    742875      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
    … …  
    755888      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    756889      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     890      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 
     891      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 
     892      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 
     893      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 
     894      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 
     895      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 
    757896      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
    758897      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
     898      LOGICAL, OPTIONAL, INTENT(OUT) :: reader 
     899      LOGICAL(KIND=C_BOOL) :: reader_tmp 
    759900      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    760901      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
    … …  
    787928      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    788929      LOGICAL(KIND=C_BOOL) :: type_tmp 
     930      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 
     931      LOGICAL(KIND=C_BOOL) :: using_server2_tmp 
    789932      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
    790933      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
    791934      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
    792935      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
     936      LOGICAL, OPTIONAL, INTENT(OUT) :: writer 
     937      LOGICAL(KIND=C_BOOL) :: writer_tmp 
    793938 
    794939      CALL xios(get_filegroup_handle) & 
    … …  
    796941      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    797942      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    798       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    799       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    800       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    801       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     943      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     944      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     945      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     946      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     947      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    802948 
    803949  END SUBROUTINE xios(is_defined_filegroup_attr) 
    … …  
    805951  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  & 
    806952    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    807     , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    808     , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    809     , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    810     , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     953    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     954    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     955    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     956    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     957    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    811958 
    812959    IMPLICIT NONE 
    … …  
    830977      LOGICAL, OPTIONAL, INTENT(OUT) :: format 
    831978      LOGICAL(KIND=C_BOOL) :: format_tmp 
     979      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer 
     980      LOGICAL(KIND=C_BOOL) :: gatherer_tmp 
    832981      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    833982      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
    … …  
    846995      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access 
    847996      LOGICAL(KIND=C_BOOL) :: par_access_tmp 
     997      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer 
     998      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp 
     999      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader 
     1000      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp 
     1001      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer 
     1002      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp 
    8481003      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par 
    8491004      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp 
     1005      LOGICAL, OPTIONAL, INTENT(OUT) :: reader 
     1006      LOGICAL(KIND=C_BOOL) :: reader_tmp 
    8501007      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset 
    8511008      LOGICAL(KIND=C_BOOL) :: record_offset_tmp 
    … …  
    8781035      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    8791036      LOGICAL(KIND=C_BOOL) :: type_tmp 
     1037      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2 
     1038      LOGICAL(KIND=C_BOOL) :: using_server2_tmp 
    8801039      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
    8811040      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
    8821041      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
    8831042      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
     1043      LOGICAL, OPTIONAL, INTENT(OUT) :: writer 
     1044      LOGICAL(KIND=C_BOOL) :: writer_tmp 
    8841045 
    8851046      CALL xios(is_defined_filegroup_attr_hdl_)  & 
    8861047      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  & 
    887       , enabled, format, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
    888       , par_access, read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format  & 
    889       , split_last_date, split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
    890       , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
     1048      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  & 
     1049      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  & 
     1050      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  & 
     1051      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  & 
     1052      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer ) 
    8911053 
    8921054  END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 
    … …  
    8941056  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   & 
    8951057    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  & 
    896     , description_, enabled_, format_, group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_  & 
    897     , output_level_, par_access_, read_metadata_par_, record_offset_, split_end_offset_, split_freq_  & 
    898     , split_freq_format_, split_last_date_, split_start_offset_, sync_freq_, time_counter_, time_counter_name_  & 
    899     , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
    900     , uuid_name_ ) 
     1058    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  & 
     1059    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  & 
     1060    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  & 
     1061    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  & 
     1062    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  & 
     1063     ) 
    9011064 
    9021065    IMPLICIT NONE 
    … …  
    9201083      LOGICAL, OPTIONAL, INTENT(OUT) :: format_ 
    9211084      LOGICAL(KIND=C_BOOL) :: format__tmp 
     1085      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer_ 
     1086      LOGICAL(KIND=C_BOOL) :: gatherer__tmp 
    9221087      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 
    9231088      LOGICAL(KIND=C_BOOL) :: group_ref__tmp 
    … …  
    9361101      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_ 
    9371102      LOGICAL(KIND=C_BOOL) :: par_access__tmp 
     1103      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer_ 
     1104      LOGICAL(KIND=C_BOOL) :: pool_gatherer__tmp 
     1105      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader_ 
     1106      LOGICAL(KIND=C_BOOL) :: pool_reader__tmp 
     1107      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer_ 
     1108      LOGICAL(KIND=C_BOOL) :: pool_writer__tmp 
    9381109      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_ 
    9391110      LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp 
     1111      LOGICAL, OPTIONAL, INTENT(OUT) :: reader_ 
     1112      LOGICAL(KIND=C_BOOL) :: reader__tmp 
    9401113      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_ 
    9411114      LOGICAL(KIND=C_BOOL) :: record_offset__tmp 
    … …  
    9681141      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    9691142      LOGICAL(KIND=C_BOOL) :: type__tmp 
     1143      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2_ 
     1144      LOGICAL(KIND=C_BOOL) :: using_server2__tmp 
    9701145      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 
    9711146      LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 
    9721147      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 
    9731148      LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 
     1149      LOGICAL, OPTIONAL, INTENT(OUT) :: writer_ 
     1150      LOGICAL(KIND=C_BOOL) :: writer__tmp 
    9741151 
    9751152      IF (PRESENT(append_)) THEN 
    … …  
    10271204      ENDIF 
    10281205 
     1206      IF (PRESENT(gatherer_)) THEN 
     1207        gatherer__tmp = cxios_is_defined_filegroup_gatherer & 
     1208      (filegroup_hdl%daddr) 
     1209        gatherer_ = gatherer__tmp 
     1210      ENDIF 
     1211 
    10291212      IF (PRESENT(group_ref_)) THEN 
    10301213        group_ref__tmp = cxios_is_defined_filegroup_group_ref & 
    … …  
    10751258      ENDIF 
    10761259 
     1260      IF (PRESENT(pool_gatherer_)) THEN 
     1261        pool_gatherer__tmp = cxios_is_defined_filegroup_pool_gatherer & 
     1262      (filegroup_hdl%daddr) 
     1263        pool_gatherer_ = pool_gatherer__tmp 
     1264      ENDIF 
     1265 
     1266      IF (PRESENT(pool_reader_)) THEN 
     1267        pool_reader__tmp = cxios_is_defined_filegroup_pool_reader & 
     1268      (filegroup_hdl%daddr) 
     1269        pool_reader_ = pool_reader__tmp 
     1270      ENDIF 
     1271 
     1272      IF (PRESENT(pool_writer_)) THEN 
     1273        pool_writer__tmp = cxios_is_defined_filegroup_pool_writer & 
     1274      (filegroup_hdl%daddr) 
     1275        pool_writer_ = pool_writer__tmp 
     1276      ENDIF 
     1277 
    10771278      IF (PRESENT(read_metadata_par_)) THEN 
    10781279        read_metadata_par__tmp = cxios_is_defined_filegroup_read_metadata_par & 
    … …  
    10811282      ENDIF 
    10821283 
     1284      IF (PRESENT(reader_)) THEN 
     1285        reader__tmp = cxios_is_defined_filegroup_reader & 
     1286      (filegroup_hdl%daddr) 
     1287        reader_ = reader__tmp 
     1288      ENDIF 
     1289 
    10831290      IF (PRESENT(record_offset_)) THEN 
    10841291        record_offset__tmp = cxios_is_defined_filegroup_record_offset & 
    … …  
    11711378      ENDIF 
    11721379 
     1380      IF (PRESENT(using_server2_)) THEN 
     1381        using_server2__tmp = cxios_is_defined_filegroup_using_server2 & 
     1382      (filegroup_hdl%daddr) 
     1383        using_server2_ = using_server2__tmp 
     1384      ENDIF 
     1385 
    11731386      IF (PRESENT(uuid_format_)) THEN 
    11741387        uuid_format__tmp = cxios_is_defined_filegroup_uuid_format & 
    … …  
    11831396      ENDIF 
    11841397 
     1398      IF (PRESENT(writer_)) THEN 
     1399        writer__tmp = cxios_is_defined_filegroup_writer & 
     1400      (filegroup_hdl%daddr) 
     1401        writer_ = writer__tmp 
     1402      ENDIF 
     1403 
    11851404  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) 
    11861405 
Note: See TracChangeset for help on using the changeset viewer.