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

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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 
Note: See TracChangeset for help on using the changeset viewer.