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