Ignore:
Timestamp:
06/06/17 17:58:16 (7 years ago)
Author:
oabramkina
Message:

Two server levels: merging with trunk r1137.
There are bugs.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_olga/src/interface/fortran_attr/domaingroup_interface_attr.F90

    r789 r1158  
    637637 
    638638 
     639    SUBROUTINE cxios_set_domaingroup_prec(domaingroup_hdl, prec) BIND(C) 
     640      USE ISO_C_BINDING 
     641      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     642      INTEGER (KIND=C_INT)      , VALUE :: prec 
     643    END SUBROUTINE cxios_set_domaingroup_prec 
     644 
     645    SUBROUTINE cxios_get_domaingroup_prec(domaingroup_hdl, prec) BIND(C) 
     646      USE ISO_C_BINDING 
     647      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     648      INTEGER (KIND=C_INT)             :: prec 
     649    END SUBROUTINE cxios_get_domaingroup_prec 
     650 
     651    FUNCTION cxios_is_defined_domaingroup_prec(domaingroup_hdl) BIND(C) 
     652      USE ISO_C_BINDING 
     653      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_prec 
     654      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     655    END FUNCTION cxios_is_defined_domaingroup_prec 
     656 
     657 
    639658    SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) 
    640659      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.