Ignore:
Timestamp:
09/24/20 12:16:22 (4 years ago)
Author:
ymipsl
Message:

XIOS coupling : Update fortran interface
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/scalar_interface_attr.F90

    r1492 r1941  
    136136 
    137137 
     138    SUBROUTINE cxios_set_scalar_mask(scalar_hdl, mask) BIND(C) 
     139      USE ISO_C_BINDING 
     140      INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 
     141      LOGICAL (KIND=C_BOOL)      , VALUE :: mask 
     142    END SUBROUTINE cxios_set_scalar_mask 
     143 
     144    SUBROUTINE cxios_get_scalar_mask(scalar_hdl, mask) BIND(C) 
     145      USE ISO_C_BINDING 
     146      INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 
     147      LOGICAL (KIND=C_BOOL)             :: mask 
     148    END SUBROUTINE cxios_get_scalar_mask 
     149 
     150    FUNCTION cxios_is_defined_scalar_mask(scalar_hdl) BIND(C) 
     151      USE ISO_C_BINDING 
     152      LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_mask 
     153      INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 
     154    END FUNCTION cxios_is_defined_scalar_mask 
     155 
     156 
    138157    SUBROUTINE cxios_set_scalar_name(scalar_hdl, name, name_size) BIND(C) 
    139158      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.