Ignore:
Timestamp:
11/27/15 09:55:05 (9 years ago)
Author:
rlacroix
Message:

Append mode

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/ifilegroup_attr.F90

    r703 r798  
    1212   
    1313  SUBROUTINE xios(set_filegroup_attr)  & 
    14     ( filegroup_id, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    15     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    16     , type ) 
     14    ( filegroup_id, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     15    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     16    , time_counter, type ) 
    1717     
    1818    IMPLICIT NONE 
    1919      TYPE(txios(filegroup))  :: filegroup_hdl 
    2020      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 
     21      LOGICAL  , OPTIONAL, INTENT(IN) :: append 
     22      LOGICAL (KIND=C_BOOL) :: append_tmp 
    2123      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2224      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    … …  
    3840      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    3941      CALL xios(set_filegroup_attr_hdl_)   & 
    40       ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    41       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    42       , type ) 
     42      ( filegroup_hdl, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     43      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     44      , time_counter, type ) 
    4345     
    4446  END SUBROUTINE xios(set_filegroup_attr) 
    4547   
    4648  SUBROUTINE xios(set_filegroup_attr_hdl)  & 
    47     ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    48     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    49     , type ) 
     49    ( filegroup_hdl, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     50    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     51    , time_counter, type ) 
    5052     
    5153    IMPLICIT NONE 
    5254      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     55      LOGICAL  , OPTIONAL, INTENT(IN) :: append 
     56      LOGICAL (KIND=C_BOOL) :: append_tmp 
    5357      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    5458      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    … …  
    6973       
    7074      CALL xios(set_filegroup_attr_hdl_)  & 
    71       ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    72       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    73       , type ) 
     75      ( filegroup_hdl, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     76      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     77      , time_counter, type ) 
    7478     
    7579  END SUBROUTINE xios(set_filegroup_attr_hdl) 
    7680   
    7781  SUBROUTINE xios(set_filegroup_attr_hdl_)   & 
    78     ( filegroup_hdl, compression_level_, description_, enabled_, group_ref_, min_digits_, name_  & 
    79     , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
    80     , time_counter_, type_ ) 
     82    ( filegroup_hdl, append_, compression_level_, description_, enabled_, group_ref_, min_digits_  & 
     83    , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  & 
     84    , sync_freq_, time_counter_, type_ ) 
    8185     
    8286    IMPLICIT NONE 
    8387      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     88      LOGICAL  , OPTIONAL, INTENT(IN) :: append_ 
     89      LOGICAL (KIND=C_BOOL) :: append__tmp 
    8490      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    8591      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 
    … …  
    99105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    100106       
     107      IF (PRESENT(append_)) THEN 
     108        append__tmp=append_ 
     109        CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp) 
     110      ENDIF 
     111       
    101112      IF (PRESENT(compression_level_)) THEN 
    102113        CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
    … …  
    165176   
    166177  SUBROUTINE xios(get_filegroup_attr)  & 
    167     ( filegroup_id, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    168     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    169     , type ) 
     178    ( filegroup_id, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     179    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     180    , time_counter, type ) 
    170181     
    171182    IMPLICIT NONE 
    172183      TYPE(txios(filegroup))  :: filegroup_hdl 
    173184      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 
     185      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
     186      LOGICAL (KIND=C_BOOL) :: append_tmp 
    174187      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    175188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    … …  
    191204      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    192205      CALL xios(get_filegroup_attr_hdl_)   & 
    193       ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    194       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    195       , type ) 
     206      ( filegroup_hdl, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     207      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     208      , time_counter, type ) 
    196209     
    197210  END SUBROUTINE xios(get_filegroup_attr) 
    198211   
    199212  SUBROUTINE xios(get_filegroup_attr_hdl)  & 
    200     ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    201     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    202     , type ) 
     213    ( filegroup_hdl, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     214    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     215    , time_counter, type ) 
    203216     
    204217    IMPLICIT NONE 
    205218      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     219      LOGICAL  , OPTIONAL, INTENT(OUT) :: append 
     220      LOGICAL (KIND=C_BOOL) :: append_tmp 
    206221      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    207222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    … …  
    222237       
    223238      CALL xios(get_filegroup_attr_hdl_)  & 
    224       ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    225       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    226       , type ) 
     239      ( filegroup_hdl, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     240      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     241      , time_counter, type ) 
    227242     
    228243  END SUBROUTINE xios(get_filegroup_attr_hdl) 
    229244   
    230245  SUBROUTINE xios(get_filegroup_attr_hdl_)   & 
    231     ( filegroup_hdl, compression_level_, description_, enabled_, group_ref_, min_digits_, name_  & 
    232     , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
    233     , time_counter_, type_ ) 
     246    ( filegroup_hdl, append_, compression_level_, description_, enabled_, group_ref_, min_digits_  & 
     247    , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  & 
     248    , sync_freq_, time_counter_, type_ ) 
    234249     
    235250    IMPLICIT NONE 
    236251      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     252      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_ 
     253      LOGICAL (KIND=C_BOOL) :: append__tmp 
    237254      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    238255      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 
    … …  
    252269      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    253270       
     271      IF (PRESENT(append_)) THEN 
     272        CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp) 
     273        append_=append__tmp 
     274      ENDIF 
     275       
    254276      IF (PRESENT(compression_level_)) THEN 
    255277        CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
    … …  
    318340   
    319341  SUBROUTINE xios(is_defined_filegroup_attr)  & 
    320     ( filegroup_id, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    321     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    322     , type ) 
     342    ( filegroup_id, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     343    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     344    , time_counter, type ) 
    323345     
    324346    IMPLICIT NONE 
    325347      TYPE(txios(filegroup))  :: filegroup_hdl 
    326348      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 
     349      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
     350      LOGICAL(KIND=C_BOOL) :: append_tmp 
    327351      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    328352      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    358382      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    359383      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    360       ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    361       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    362       , type ) 
     384      ( filegroup_hdl, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     385      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     386      , time_counter, type ) 
    363387     
    364388  END SUBROUTINE xios(is_defined_filegroup_attr) 
    365389   
    366390  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  & 
    367     ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    368     , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    369     , type ) 
     391    ( filegroup_hdl, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     392    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     393    , time_counter, type ) 
    370394     
    371395    IMPLICIT NONE 
    372396      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     397      LOGICAL, OPTIONAL, INTENT(OUT) :: append 
     398      LOGICAL(KIND=C_BOOL) :: append_tmp 
    373399      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    374400      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    403429       
    404430      CALL xios(is_defined_filegroup_attr_hdl_)  & 
    405       ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
    406       , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  & 
    407       , type ) 
     431      ( filegroup_hdl, append, compression_level, description, enabled, group_ref, min_digits, name  & 
     432      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  & 
     433      , time_counter, type ) 
    408434     
    409435  END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 
    410436   
    411437  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   & 
    412     ( filegroup_hdl, compression_level_, description_, enabled_, group_ref_, min_digits_, name_  & 
    413     , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
    414     , time_counter_, type_ ) 
     438    ( filegroup_hdl, append_, compression_level_, description_, enabled_, group_ref_, min_digits_  & 
     439    , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  & 
     440    , sync_freq_, time_counter_, type_ ) 
    415441     
    416442    IMPLICIT NONE 
    417443      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     444      LOGICAL, OPTIONAL, INTENT(OUT) :: append_ 
     445      LOGICAL(KIND=C_BOOL) :: append__tmp 
    418446      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
    419447      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    … …  
    447475      LOGICAL(KIND=C_BOOL) :: type__tmp 
    448476       
     477      IF (PRESENT(append_)) THEN 
     478        append__tmp=cxios_is_defined_filegroup_append(filegroup_hdl%daddr) 
     479        append_=append__tmp 
     480      ENDIF 
     481       
    449482      IF (PRESENT(compression_level_)) THEN 
    450483        compression_level__tmp=cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.