Changeset 608 for XIOS/branchs


Ignore:
Timestamp:
06/05/15 15:42:02 (8 years ago)
Author:
rlacroix
Message:

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

Location:
XIOS/branchs/xios-1.0/src/interface
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • XIOS/branchs/xios-1.0/src/interface/c_attr/icfield_attr.cpp

    r581 r608  
    6868   
    6969   
     70  void cxios_set_field_compression_level(field_Ptr field_hdl, int compression_level) 
     71  { 
     72     CTimer::get("XIOS").resume(); 
     73    field_hdl->compression_level.setValue(compression_level); 
     74    field_hdl->sendAttributToServer(field_hdl->compression_level); 
     75     CTimer::get("XIOS").suspend(); 
     76  } 
     77   
     78  void cxios_get_field_compression_level(field_Ptr field_hdl, int* compression_level) 
     79  { 
     80    *compression_level = field_hdl->compression_level.getInheritedValue(); 
     81  } 
     82   
     83  bool cxios_is_defined_field_compression_level(field_Ptr field_hdl ) 
     84  { 
     85    CTimer::get("XIOS").resume(); 
     86    bool isDefined = field_hdl->compression_level.hasInheritedValue(); 
     87    CTimer::get("XIOS").suspend(); 
     88    return isDefined; 
     89  } 
     90   
     91   
     92   
    7093  void cxios_set_field_default_value(field_Ptr field_hdl, double default_value) 
    7194  { 

  • XIOS/branchs/xios-1.0/src/interface/c_attr/icfieldgroup_attr.cpp

    r581 r608  
    6868   
    6969   
     70  void cxios_set_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl, int compression_level) 
     71  { 
     72     CTimer::get("XIOS").resume(); 
     73    fieldgroup_hdl->compression_level.setValue(compression_level); 
     74    fieldgroup_hdl->sendAttributToServer(fieldgroup_hdl->compression_level); 
     75     CTimer::get("XIOS").suspend(); 
     76  } 
     77   
     78  void cxios_get_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl, int* compression_level) 
     79  { 
     80    *compression_level = fieldgroup_hdl->compression_level.getInheritedValue(); 
     81  } 
     82   
     83  bool cxios_is_defined_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl ) 
     84  { 
     85    CTimer::get("XIOS").resume(); 
     86    bool isDefined = fieldgroup_hdl->compression_level.hasInheritedValue(); 
     87    CTimer::get("XIOS").suspend(); 
     88    return isDefined; 
     89  } 
     90   
     91   
     92   
    7093  void cxios_set_fieldgroup_default_value(fieldgroup_Ptr fieldgroup_hdl, double default_value) 
    7194  { 

  • XIOS/branchs/xios-1.0/src/interface/c_attr/icfile_attr.cpp

    r581 r608  
    1717  typedef xios::CFile*  file_Ptr; 
    1818   
     19  void cxios_set_file_compression_level(file_Ptr file_hdl, int compression_level) 
     20  { 
     21     CTimer::get("XIOS").resume(); 
     22    file_hdl->compression_level.setValue(compression_level); 
     23    file_hdl->sendAttributToServer(file_hdl->compression_level); 
     24     CTimer::get("XIOS").suspend(); 
     25  } 
     26   
     27  void cxios_get_file_compression_level(file_Ptr file_hdl, int* compression_level) 
     28  { 
     29    *compression_level = file_hdl->compression_level.getInheritedValue(); 
     30  } 
     31   
     32  bool cxios_is_defined_file_compression_level(file_Ptr file_hdl ) 
     33  { 
     34    CTimer::get("XIOS").resume(); 
     35    bool isDefined = file_hdl->compression_level.hasInheritedValue(); 
     36    CTimer::get("XIOS").suspend(); 
     37    return isDefined; 
     38  } 
     39   
     40   
     41   
    1942  void cxios_set_file_description(file_Ptr file_hdl, const char * description, int description_size) 
    2043  { 

  • XIOS/branchs/xios-1.0/src/interface/c_attr/icfilegroup_attr.cpp

    r581 r608  
    1717  typedef xios::CFileGroup*  filegroup_Ptr; 
    1818   
     19  void cxios_set_filegroup_compression_level(filegroup_Ptr filegroup_hdl, int compression_level) 
     20  { 
     21     CTimer::get("XIOS").resume(); 
     22    filegroup_hdl->compression_level.setValue(compression_level); 
     23    filegroup_hdl->sendAttributToServer(filegroup_hdl->compression_level); 
     24     CTimer::get("XIOS").suspend(); 
     25  } 
     26   
     27  void cxios_get_filegroup_compression_level(filegroup_Ptr filegroup_hdl, int* compression_level) 
     28  { 
     29    *compression_level = filegroup_hdl->compression_level.getInheritedValue(); 
     30  } 
     31   
     32  bool cxios_is_defined_filegroup_compression_level(filegroup_Ptr filegroup_hdl ) 
     33  { 
     34    CTimer::get("XIOS").resume(); 
     35    bool isDefined = filegroup_hdl->compression_level.hasInheritedValue(); 
     36    CTimer::get("XIOS").suspend(); 
     37    return isDefined; 
     38  } 
     39   
     40   
     41   
    1942  void cxios_set_filegroup_description(filegroup_Ptr filegroup_hdl, const char * description, int description_size) 
    2043  { 

  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/field_interface_attr.f90

    r501 r608  
    4949     
    5050     
     51    SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C) 
     52      USE ISO_C_BINDING 
     53      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     54      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     55    END SUBROUTINE cxios_set_field_compression_level 
     56     
     57    SUBROUTINE cxios_get_field_compression_level(field_hdl, compression_level) BIND(C) 
     58      USE ISO_C_BINDING 
     59      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     60      INTEGER (KIND=C_INT)             :: compression_level 
     61    END SUBROUTINE cxios_get_field_compression_level 
     62     
     63    FUNCTION cxios_is_defined_field_compression_level(field_hdl ) BIND(C) 
     64      USE ISO_C_BINDING 
     65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_level 
     66      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     67    END FUNCTION cxios_is_defined_field_compression_level 
     68     
     69     
    5170    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) 
    5271      USE ISO_C_BINDING 

  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/fieldgroup_interface_attr.f90

    r501 r608  
    4949     
    5050     
     51    SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 
     52      USE ISO_C_BINDING 
     53      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     54      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     55    END SUBROUTINE cxios_set_fieldgroup_compression_level 
     56     
     57    SUBROUTINE cxios_get_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 
     58      USE ISO_C_BINDING 
     59      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     60      INTEGER (KIND=C_INT)             :: compression_level 
     61    END SUBROUTINE cxios_get_fieldgroup_compression_level 
     62     
     63    FUNCTION cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl ) BIND(C) 
     64      USE ISO_C_BINDING 
     65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_level 
     66      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     67    END FUNCTION cxios_is_defined_fieldgroup_compression_level 
     68     
     69     
    5170    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 
    5271      USE ISO_C_BINDING 

  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/file_interface_attr.f90

    r501 r608  
    99     
    1010     
     11    SUBROUTINE cxios_set_file_compression_level(file_hdl, compression_level) BIND(C) 
     12      USE ISO_C_BINDING 
     13      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     14      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     15    END SUBROUTINE cxios_set_file_compression_level 
     16     
     17    SUBROUTINE cxios_get_file_compression_level(file_hdl, compression_level) BIND(C) 
     18      USE ISO_C_BINDING 
     19      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     20      INTEGER (KIND=C_INT)             :: compression_level 
     21    END SUBROUTINE cxios_get_file_compression_level 
     22     
     23    FUNCTION cxios_is_defined_file_compression_level(file_hdl ) BIND(C) 
     24      USE ISO_C_BINDING 
     25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_compression_level 
     26      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     27    END FUNCTION cxios_is_defined_file_compression_level 
     28     
     29     
    1130    SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C) 
    1231      USE ISO_C_BINDING 

  • XIOS/branchs/xios-1.0/src/interface/fortran_attr/filegroup_interface_attr.f90

    r501 r608  
    99     
    1010     
     11    SUBROUTINE cxios_set_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C) 
     12      USE ISO_C_BINDING 
     13      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     14      INTEGER (KIND=C_INT)      , VALUE :: compression_level 
     15    END SUBROUTINE cxios_set_filegroup_compression_level 
     16     
     17    SUBROUTINE cxios_get_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C) 
     18      USE ISO_C_BINDING 
     19      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     20      INTEGER (KIND=C_INT)             :: compression_level 
     21    END SUBROUTINE cxios_get_filegroup_compression_level 
     22     
     23    FUNCTION cxios_is_defined_filegroup_compression_level(filegroup_hdl ) BIND(C) 
     24      USE ISO_C_BINDING 
     25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_compression_level 
     26      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     27    END FUNCTION cxios_is_defined_filegroup_compression_level 
     28     
     29     
    1130    SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C) 
    1231      USE ISO_C_BINDING 

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

    r501 r608  
    1212   
    1313  SUBROUTINE xios(set_field_attr)  & 
    14     ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref  & 
    15     , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor, standard_name  & 
    16     , unit, valid_max, valid_min ) 
     14    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     15    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     16    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    1717     
    1818    IMPLICIT NONE 
    … …  
    2121      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    2222      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     23      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2324      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    2425      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    4445      CALL xios(get_field_handle)(field_id,field_hdl) 
    4546      CALL xios(set_field_attr_hdl_)   & 
    46       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    47       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    48       , standard_name, unit, valid_max, valid_min ) 
     47      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     48      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     49      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    4950     
    5051  END SUBROUTINE xios(set_field_attr) 
    5152   
    5253  SUBROUTINE xios(set_field_attr_hdl)  & 
    53     ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    54     , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    55     , standard_name, unit, valid_max, valid_min ) 
     54    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     55    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     56    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    5657     
    5758    IMPLICIT NONE 
    … …  
    5960      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    6061      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     62      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    6163      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    6264      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    8183       
    8284      CALL xios(set_field_attr_hdl_)  & 
    83       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    84       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    85       , standard_name, unit, valid_max, valid_min ) 
     85      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     86      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     87      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    8688     
    8789  END SUBROUTINE xios(set_field_attr_hdl) 
    8890   
    8991  SUBROUTINE xios(set_field_attr_hdl_)   & 
    90     ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    91     , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_  & 
    92     , scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     92    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     93    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  & 
     94    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    9395     
    9496    IMPLICIT NONE 
    … …  
    9698      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    9799      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     100      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    98101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    99102      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_ 
    … …  
    125128      ENDIF 
    126129       
     130      IF (PRESENT(compression_level_)) THEN 
     131        CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_) 
     132      ENDIF 
     133       
    127134      IF (PRESENT(default_value_)) THEN 
    128135        CALL cxios_set_field_default_value(field_hdl%daddr, default_value_) 
    … …  
    204211   
    205212  SUBROUTINE xios(get_field_attr)  & 
    206     ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref  & 
    207     , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor, standard_name  & 
    208     , unit, valid_max, valid_min ) 
     213    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     214    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     215    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    209216     
    210217    IMPLICIT NONE 
    … …  
    213220      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    214221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     222      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    215223      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    216224      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    236244      CALL xios(get_field_handle)(field_id,field_hdl) 
    237245      CALL xios(get_field_attr_hdl_)   & 
    238       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    239       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    240       , standard_name, unit, valid_max, valid_min ) 
     246      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     247      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     248      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    241249     
    242250  END SUBROUTINE xios(get_field_attr) 
    243251   
    244252  SUBROUTINE xios(get_field_attr_hdl)  & 
    245     ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    246     , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    247     , standard_name, unit, valid_max, valid_min ) 
     253    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     254    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     255    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    248256     
    249257    IMPLICIT NONE 
    … …  
    251259      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    252260      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     261      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    253262      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    254263      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    273282       
    274283      CALL xios(get_field_attr_hdl_)  & 
    275       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    276       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    277       , standard_name, unit, valid_max, valid_min ) 
     284      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     285      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     286      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    278287     
    279288  END SUBROUTINE xios(get_field_attr_hdl) 
    280289   
    281290  SUBROUTINE xios(get_field_attr_hdl_)   & 
    282     ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    283     , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_  & 
    284     , scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     291    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     292    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  & 
     293    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    285294     
    286295    IMPLICIT NONE 
    … …  
    288297      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    289298      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     299      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    290300      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    291301      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_ 
    … …  
    317327      ENDIF 
    318328       
     329      IF (PRESENT(compression_level_)) THEN 
     330        CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_) 
     331      ENDIF 
     332       
    319333      IF (PRESENT(default_value_)) THEN 
    320334        CALL cxios_get_field_default_value(field_hdl%daddr, default_value_) 
    … …  
    396410   
    397411  SUBROUTINE xios(is_defined_field_attr)  & 
    398     ( field_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled, field_ref  & 
    399     , freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor, standard_name  & 
    400     , unit, valid_max, valid_min ) 
     412    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     413    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     414    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    401415     
    402416    IMPLICIT NONE 
    … …  
    407421      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    408422      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     423      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     424      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    409425      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    410426      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    446462      CALL xios(get_field_handle)(field_id,field_hdl) 
    447463      CALL xios(is_defined_field_attr_hdl_)   & 
    448       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    449       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    450       , standard_name, unit, valid_max, valid_min ) 
     464      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     465      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     466      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    451467     
    452468  END SUBROUTINE xios(is_defined_field_attr) 
    453469   
    454470  SUBROUTINE xios(is_defined_field_attr_hdl)  & 
    455     ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    456     , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    457     , standard_name, unit, valid_max, valid_min ) 
     471    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     472    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     473    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    458474     
    459475    IMPLICIT NONE 
    … …  
    463479      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    464480      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     481      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     482      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    465483      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    466484      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    501519       
    502520      CALL xios(is_defined_field_attr_hdl_)  & 
    503       ( field_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    504       , field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec, scale_factor  & 
    505       , standard_name, unit, valid_max, valid_min ) 
     521      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
     522      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  & 
     523      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    506524     
    507525  END SUBROUTINE xios(is_defined_field_attr_hdl) 
    508526   
    509527  SUBROUTINE xios(is_defined_field_attr_hdl_)   & 
    510     ( field_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    511     , field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_, operation_, prec_  & 
    512     , scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     528    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     529    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  & 
     530    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    513531     
    514532    IMPLICIT NONE 
    … …  
    518536      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    519537      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     538      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     539      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    520540      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 
    521541      LOGICAL(KIND=C_BOOL) :: default_value__tmp 
    … …  
    565585      ENDIF 
    566586       
     587      IF (PRESENT(compression_level_)) THEN 
     588        compression_level__tmp=cxios_is_defined_field_compression_level(field_hdl%daddr) 
     589        compression_level_=compression_level__tmp 
     590      ENDIF 
     591       
    567592      IF (PRESENT(default_value_)) THEN 
    568593        default_value__tmp=cxios_is_defined_field_default_value(field_hdl%daddr) 

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

    r501 r608  
    1212   
    1313  SUBROUTINE xios(set_fieldgroup_attr)  & 
    14     ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    15     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    16     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     14    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     15    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     16    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    1717     
    1818    IMPLICIT NONE 
    … …  
    2121      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    2222      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     23      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2324      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    2425      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    4546      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    4647      CALL xios(set_fieldgroup_attr_hdl_)   & 
    47       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    48       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    49       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     48      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     49      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     50      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    5051     
    5152  END SUBROUTINE xios(set_fieldgroup_attr) 
    5253   
    5354  SUBROUTINE xios(set_fieldgroup_attr_hdl)  & 
    54     ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    55     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    56     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     55    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     56    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     57    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    5758     
    5859    IMPLICIT NONE 
    … …  
    6061      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    6162      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     63      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    6264      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    6365      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value 
    … …  
    8385       
    8486      CALL xios(set_fieldgroup_attr_hdl_)  & 
    85       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    86       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    87       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     87      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     88      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     89      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    8890     
    8991  END SUBROUTINE xios(set_fieldgroup_attr_hdl) 
    9092   
    9193  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   & 
    92     ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    93     , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    94     , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     94    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     95    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  & 
     96    , name_, operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    9597     
    9698    IMPLICIT NONE 
    … …  
    98100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    99101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     102      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    100103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    101104      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_ 
    … …  
    128131      ENDIF 
    129132       
     133      IF (PRESENT(compression_level_)) THEN 
     134        CALL cxios_set_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     135      ENDIF 
     136       
    130137      IF (PRESENT(default_value_)) THEN 
    131138        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
    … …  
    211218   
    212219  SUBROUTINE xios(get_fieldgroup_attr)  & 
    213     ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    214     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    215     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     220    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     221    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     222    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    216223     
    217224    IMPLICIT NONE 
    … …  
    220227      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    221228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     229      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    222230      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    223231      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    244252      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    245253      CALL xios(get_fieldgroup_attr_hdl_)   & 
    246       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    247       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    248       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     254      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     255      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     256      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    249257     
    250258  END SUBROUTINE xios(get_fieldgroup_attr) 
    251259   
    252260  SUBROUTINE xios(get_fieldgroup_attr_hdl)  & 
    253     ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    254     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    255     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     261    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     262    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     263    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    256264     
    257265    IMPLICIT NONE 
    … …  
    259267      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    260268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     269      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    261270      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    262271      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value 
    … …  
    282291       
    283292      CALL xios(get_fieldgroup_attr_hdl_)  & 
    284       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    285       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    286       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     293      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     294      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     295      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    287296     
    288297  END SUBROUTINE xios(get_fieldgroup_attr_hdl) 
    289298   
    290299  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   & 
    291     ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    292     , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    293     , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     300    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     301    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  & 
     302    , name_, operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    294303     
    295304    IMPLICIT NONE 
    … …  
    297306      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    298307      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     308      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    299309      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    300310      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_ 
    … …  
    327337      ENDIF 
    328338       
     339      IF (PRESENT(compression_level_)) THEN 
     340        CALL cxios_get_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     341      ENDIF 
     342       
    329343      IF (PRESENT(default_value_)) THEN 
    330344        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
    … …  
    410424   
    411425  SUBROUTINE xios(is_defined_fieldgroup_attr)  & 
    412     ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    413     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    414     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     426    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     427    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     428    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    415429     
    416430    IMPLICIT NONE 
    … …  
    421435      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    422436      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     437      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     438      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    423439      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    424440      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    462478      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    463479      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    464       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    465       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    466       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     480      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     481      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     482      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    467483     
    468484  END SUBROUTINE xios(is_defined_fieldgroup_attr) 
    469485   
    470486  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  & 
    471     ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    472     , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    473     , scale_factor, standard_name, unit, valid_max, valid_min ) 
     487    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     488    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     489    , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    474490     
    475491    IMPLICIT NONE 
    … …  
    479495      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    480496      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     497      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     498      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    481499      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value 
    482500      LOGICAL(KIND=C_BOOL) :: default_value_tmp 
    … …  
    519537       
    520538      CALL xios(is_defined_fieldgroup_attr_hdl_)  & 
    521       ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    522       , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    523       , scale_factor, standard_name, unit, valid_max, valid_min ) 
     539      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
     540      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  & 
     541      , name, operation, prec, scale_factor, standard_name, unit, valid_max, valid_min ) 
    524542     
    525543  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 
    526544   
    527545  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   & 
    528     ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    529     , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    530     , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
     546    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
     547    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  & 
     548    , name_, operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    531549     
    532550    IMPLICIT NONE 
    … …  
    536554      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    537555      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     556      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     557      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    538558      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_ 
    539559      LOGICAL(KIND=C_BOOL) :: default_value__tmp 
    … …  
    585605      ENDIF 
    586606       
     607      IF (PRESENT(compression_level_)) THEN 
     608        compression_level__tmp=cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl%daddr) 
     609        compression_level_=compression_level__tmp 
     610      ENDIF 
     611       
    587612      IF (PRESENT(default_value_)) THEN 
    588613        default_value__tmp=cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 

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

    r501 r608  
    1212   
    1313  SUBROUTINE xios(set_file_attr)  & 
    14     ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    15     , split_freq, split_freq_format, sync_freq, type ) 
     14    ( file_id, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     15    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    1616     
    1717    IMPLICIT NONE 
    1818      TYPE(txios(file))  :: file_hdl 
    1919      CHARACTER(LEN=*), INTENT(IN) ::file_id 
     20      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2021      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    2122      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    3435      CALL xios(get_file_handle)(file_id,file_hdl) 
    3536      CALL xios(set_file_attr_hdl_)   & 
    36       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    37       , split_freq, split_freq_format, sync_freq, type ) 
     37      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     38      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    3839     
    3940  END SUBROUTINE xios(set_file_attr) 
    4041   
    4142  SUBROUTINE xios(set_file_attr_hdl)  & 
    42     ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    43     , split_freq, split_freq_format, sync_freq, type ) 
    44      
    45     IMPLICIT NONE 
    46       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     43    ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     44    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     45     
     46    IMPLICIT NONE 
     47      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     48      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    4749      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    4850      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    6062       
    6163      CALL xios(set_file_attr_hdl_)  & 
    62       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    63       , split_freq, split_freq_format, sync_freq, type ) 
     64      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     65      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    6466     
    6567  END SUBROUTINE xios(set_file_attr_hdl) 
    6668   
    6769  SUBROUTINE xios(set_file_attr_hdl_)   & 
    68     ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  & 
    69     , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    70      
    71     IMPLICIT NONE 
    72       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     70    ( file_hdl, compression_level_, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_  & 
     71    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
     72     
     73    IMPLICIT NONE 
     74      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     75      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    7376      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 
    7477      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_ 
    … …  
    8588      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    8689       
     90      IF (PRESENT(compression_level_)) THEN 
     91        CALL cxios_set_file_compression_level(file_hdl%daddr, compression_level_) 
     92      ENDIF 
     93       
    8794      IF (PRESENT(description_)) THEN 
    8895        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_)) 
    … …  
    139146   
    140147  SUBROUTINE xios(get_file_attr)  & 
    141     ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    142     , split_freq, split_freq_format, sync_freq, type ) 
     148    ( file_id, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     149    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    143150     
    144151    IMPLICIT NONE 
    145152      TYPE(txios(file))  :: file_hdl 
    146153      CHARACTER(LEN=*), INTENT(IN) ::file_id 
     154      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    147155      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    148156      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    161169      CALL xios(get_file_handle)(file_id,file_hdl) 
    162170      CALL xios(get_file_attr_hdl_)   & 
    163       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    164       , split_freq, split_freq_format, sync_freq, type ) 
     171      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     172      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    165173     
    166174  END SUBROUTINE xios(get_file_attr) 
    167175   
    168176  SUBROUTINE xios(get_file_attr_hdl)  & 
    169     ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    170     , split_freq, split_freq_format, sync_freq, type ) 
    171      
    172     IMPLICIT NONE 
    173       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     177    ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     178    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     179     
     180    IMPLICIT NONE 
     181      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     182      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    174183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    175184      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    187196       
    188197      CALL xios(get_file_attr_hdl_)  & 
    189       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    190       , split_freq, split_freq_format, sync_freq, type ) 
     198      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     199      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    191200     
    192201  END SUBROUTINE xios(get_file_attr_hdl) 
    193202   
    194203  SUBROUTINE xios(get_file_attr_hdl_)   & 
    195     ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  & 
    196     , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    197      
    198     IMPLICIT NONE 
    199       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     204    ( file_hdl, compression_level_, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_  & 
     205    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
     206     
     207    IMPLICIT NONE 
     208      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     209      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    200210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 
    201211      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_ 
    … …  
    212222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    213223       
     224      IF (PRESENT(compression_level_)) THEN 
     225        CALL cxios_get_file_compression_level(file_hdl%daddr, compression_level_) 
     226      ENDIF 
     227       
    214228      IF (PRESENT(description_)) THEN 
    215229        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_)) 
    … …  
    266280   
    267281  SUBROUTINE xios(is_defined_file_attr)  & 
    268     ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    269     , split_freq, split_freq_format, sync_freq, type ) 
     282    ( file_id, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     283    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    270284     
    271285    IMPLICIT NONE 
    272286      TYPE(txios(file))  :: file_hdl 
    273287      CHARACTER(LEN=*), INTENT(IN) ::file_id 
     288      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     289      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    274290      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    275291      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    299315      CALL xios(get_file_handle)(file_id,file_hdl) 
    300316      CALL xios(is_defined_file_attr_hdl_)   & 
    301       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    302       , split_freq, split_freq_format, sync_freq, type ) 
     317      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     318      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    303319     
    304320  END SUBROUTINE xios(is_defined_file_attr) 
    305321   
    306322  SUBROUTINE xios(is_defined_file_attr_hdl)  & 
    307     ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    308     , split_freq, split_freq_format, sync_freq, type ) 
    309      
    310     IMPLICIT NONE 
    311       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     323    ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     324    , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     325     
     326    IMPLICIT NONE 
     327      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     328      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     329      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    312330      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    313331      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    336354       
    337355      CALL xios(is_defined_file_attr_hdl_)  & 
    338       ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
    339       , split_freq, split_freq_format, sync_freq, type ) 
     356      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  & 
     357      , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    340358     
    341359  END SUBROUTINE xios(is_defined_file_attr_hdl) 
    342360   
    343361  SUBROUTINE xios(is_defined_file_attr_hdl_)   & 
    344     ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  & 
    345     , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    346      
    347     IMPLICIT NONE 
    348       TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     362    ( file_hdl, compression_level_, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_  & 
     363    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
     364     
     365    IMPLICIT NONE 
     366      TYPE(txios(file)) , INTENT(IN) :: file_hdl 
     367      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     368      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    349369      LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 
    350370      LOGICAL(KIND=C_BOOL) :: description__tmp 
    … …  
    372392      LOGICAL(KIND=C_BOOL) :: type__tmp 
    373393       
     394      IF (PRESENT(compression_level_)) THEN 
     395        compression_level__tmp=cxios_is_defined_file_compression_level(file_hdl%daddr) 
     396        compression_level_=compression_level__tmp 
     397      ENDIF 
     398       
    374399      IF (PRESENT(description_)) THEN 
    375400        description__tmp=cxios_is_defined_file_description(file_hdl%daddr) 

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

    r501 r608  
    1212   
    1313  SUBROUTINE xios(set_filegroup_attr)  & 
    14     ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    15     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     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, type ) 
    1616     
    1717    IMPLICIT NONE 
    1818      TYPE(txios(filegroup))  :: filegroup_hdl 
    1919      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 
     20      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2021      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    2122      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    3536      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    3637      CALL xios(set_filegroup_attr_hdl_)   & 
    37       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    38       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     38      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     39      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    3940     
    4041  END SUBROUTINE xios(set_filegroup_attr) 
    4142   
    4243  SUBROUTINE xios(set_filegroup_attr_hdl)  & 
    43     ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    44     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    45      
    46     IMPLICIT NONE 
    47       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     44    ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     45    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     46     
     47    IMPLICIT NONE 
     48      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     49      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    4850      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    4951      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    6264       
    6365      CALL xios(set_filegroup_attr_hdl_)  & 
    64       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    65       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     66      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     67      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    6668     
    6769  END SUBROUTINE xios(set_filegroup_attr_hdl) 
    6870   
    6971  SUBROUTINE xios(set_filegroup_attr_hdl_)   & 
    70     ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_  & 
    71     , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    72      
    73     IMPLICIT NONE 
    74       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     72    ( filegroup_hdl, compression_level_, description_, enabled_, group_ref_, min_digits_, name_  & 
     73    , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
     74    , type_ ) 
     75     
     76    IMPLICIT NONE 
     77      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     78      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    7579      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 
    7680      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_ 
    … …  
    8892      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    8993       
     94      IF (PRESENT(compression_level_)) THEN 
     95        CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     96      ENDIF 
     97       
    9098      IF (PRESENT(description_)) THEN 
    9199        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
    … …  
    146154   
    147155  SUBROUTINE xios(get_filegroup_attr)  & 
    148     ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    149     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     156    ( filegroup_id, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     157    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    150158     
    151159    IMPLICIT NONE 
    152160      TYPE(txios(filegroup))  :: filegroup_hdl 
    153161      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 
     162      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    154163      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    155164      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    169178      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    170179      CALL xios(get_filegroup_attr_hdl_)   & 
    171       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    172       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     180      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     181      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    173182     
    174183  END SUBROUTINE xios(get_filegroup_attr) 
    175184   
    176185  SUBROUTINE xios(get_filegroup_attr_hdl)  & 
    177     ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    178     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    179      
    180     IMPLICIT NONE 
    181       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     186    ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     187    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     188     
     189    IMPLICIT NONE 
     190      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     191      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    182192      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    183193      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    196206       
    197207      CALL xios(get_filegroup_attr_hdl_)  & 
    198       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    199       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     208      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     209      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    200210     
    201211  END SUBROUTINE xios(get_filegroup_attr_hdl) 
    202212   
    203213  SUBROUTINE xios(get_filegroup_attr_hdl_)   & 
    204     ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_  & 
    205     , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    206      
    207     IMPLICIT NONE 
    208       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     214    ( filegroup_hdl, compression_level_, description_, enabled_, group_ref_, min_digits_, name_  & 
     215    , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
     216    , type_ ) 
     217     
     218    IMPLICIT NONE 
     219      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     220      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    209221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 
    210222      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_ 
    … …  
    222234      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    223235       
     236      IF (PRESENT(compression_level_)) THEN 
     237        CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     238      ENDIF 
     239       
    224240      IF (PRESENT(description_)) THEN 
    225241        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
    … …  
    280296   
    281297  SUBROUTINE xios(is_defined_filegroup_attr)  & 
    282     ( filegroup_id, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    283     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     298    ( filegroup_id, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     299    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    284300     
    285301    IMPLICIT NONE 
    286302      TYPE(txios(filegroup))  :: filegroup_hdl 
    287303      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id 
     304      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     305      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    288306      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    289307      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    315333      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    316334      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    317       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    318       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     335      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     336      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    319337     
    320338  END SUBROUTINE xios(is_defined_filegroup_attr) 
    321339   
    322340  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  & 
    323     ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    324     , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    325      
    326     IMPLICIT NONE 
    327       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     341    ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     342    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     343     
     344    IMPLICIT NONE 
     345      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     346      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
     347      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    328348      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    329349      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    354374       
    355375      CALL xios(is_defined_filegroup_attr_hdl_)  & 
    356       ( filegroup_hdl, description, enabled, group_ref, min_digits, name, name_suffix, output_freq  & 
    357       , output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
     376      ( filegroup_hdl, compression_level, description, enabled, group_ref, min_digits, name, name_suffix  & 
     377      , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, type ) 
    358378     
    359379  END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 
    360380   
    361381  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   & 
    362     ( filegroup_hdl, description_, enabled_, group_ref_, min_digits_, name_, name_suffix_, output_freq_  & 
    363     , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ ) 
    364      
    365     IMPLICIT NONE 
    366       TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     382    ( filegroup_hdl, compression_level_, description_, enabled_, group_ref_, min_digits_, name_  & 
     383    , name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_  & 
     384    , type_ ) 
     385     
     386    IMPLICIT NONE 
     387      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl 
     388      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
     389      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    367390      LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 
    368391      LOGICAL(KIND=C_BOOL) :: description__tmp 
    … …  
    392415      LOGICAL(KIND=C_BOOL) :: type__tmp 
    393416       
     417      IF (PRESENT(compression_level_)) THEN 
     418        compression_level__tmp=cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr) 
     419        compression_level_=compression_level__tmp 
     420      ENDIF 
     421       
    394422      IF (PRESENT(description_)) THEN 
    395423        description__tmp=cxios_is_defined_filegroup_description(filegroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.