Ignore:
Timestamp:
11/04/15 17:05:07 (8 years ago)
Author:
rlacroix
Message:

Domain: Remove an unused attribute.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r712 r781  
    252252 
    253253 
    254     SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 
    255       USE ISO_C_BINDING 
    256       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    257       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    258       INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    259     END SUBROUTINE cxios_set_domain_domain_group_ref 
    260  
    261     SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 
    262       USE ISO_C_BINDING 
    263       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    264       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    265       INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    266     END SUBROUTINE cxios_get_domain_domain_group_ref 
    267  
    268     FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl) BIND(C) 
    269       USE ISO_C_BINDING 
    270       LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref 
    271       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    272     END FUNCTION cxios_is_defined_domain_domain_group_ref 
    273  
    274  
    275254    SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C) 
    276255      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.