Ignore:
Timestamp:
02/14/12 15:36:14 (12 years ago)
Author:
ymipsl
Message:

suppress old fortran interface

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/fortran/domain_interface.f90

    r286 r312  
    142142      END SUBROUTINE cxios_set_domain_zoom_jbegin 
    143143 
    144       SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) 
    145          USE ISO_C_BINDING 
    146          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    147          INTEGER (kind = C_INT)     , VALUE :: zoom_ni_loc 
    148       END SUBROUTINE cxios_set_domain_zoom_ni_loc 
    149  
    150       SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) 
    151          USE ISO_C_BINDING 
    152          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    153          INTEGER (kind = C_INT)     , VALUE :: zoom_nj_loc 
    154       END SUBROUTINE cxios_set_domain_zoom_nj_loc 
    155  
    156       SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) 
    157          USE ISO_C_BINDING 
    158          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    159          INTEGER (kind = C_INT)     , VALUE :: zoom_ibegin_loc 
    160       END SUBROUTINE cxios_set_domain_zoom_ibegin_loc 
    161  
    162       SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) 
    163          USE ISO_C_BINDING 
    164          INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    165          INTEGER (kind = C_INT)     , VALUE :: zoom_jbegin_loc 
    166       END SUBROUTINE cxios_set_domain_zoom_jbegin_loc 
    167  
    168144      SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C) 
    169145         USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.