Ignore:
Timestamp:
11/16/15 16:21:45 (8 years ago)
Author:
rlacroix
Message:

Domain: Remove the domain_src attribute.

It was added but was never used.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90

    r781 r789  
    273273 
    274274 
    275     SUBROUTINE cxios_set_domain_domain_src(domain_hdl, domain_src, domain_src_size) BIND(C) 
    276       USE ISO_C_BINDING 
    277       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    278       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_src 
    279       INTEGER  (kind = C_INT)     , VALUE        :: domain_src_size 
    280     END SUBROUTINE cxios_set_domain_domain_src 
    281  
    282     SUBROUTINE cxios_get_domain_domain_src(domain_hdl, domain_src, domain_src_size) BIND(C) 
    283       USE ISO_C_BINDING 
    284       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    285       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_src 
    286       INTEGER  (kind = C_INT)     , VALUE        :: domain_src_size 
    287     END SUBROUTINE cxios_get_domain_domain_src 
    288  
    289     FUNCTION cxios_is_defined_domain_domain_src(domain_hdl) BIND(C) 
    290       USE ISO_C_BINDING 
    291       LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_src 
    292       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    293     END FUNCTION cxios_is_defined_domain_domain_src 
    294  
    295  
    296275    SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent) BIND(C) 
    297276      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.