Changeset 312 for XIOS/trunk/src/fortran/domain_interface.f90
- Timestamp:
- 02/14/12 15:36:14 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/fortran/domain_interface.f90
r286 r312 142 142 END SUBROUTINE cxios_set_domain_zoom_jbegin 143 143 144 SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C)145 USE ISO_C_BINDING146 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl147 INTEGER (kind = C_INT) , VALUE :: zoom_ni_loc148 END SUBROUTINE cxios_set_domain_zoom_ni_loc149 150 SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C)151 USE ISO_C_BINDING152 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl153 INTEGER (kind = C_INT) , VALUE :: zoom_nj_loc154 END SUBROUTINE cxios_set_domain_zoom_nj_loc155 156 SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C)157 USE ISO_C_BINDING158 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl159 INTEGER (kind = C_INT) , VALUE :: zoom_ibegin_loc160 END SUBROUTINE cxios_set_domain_zoom_ibegin_loc161 162 SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C)163 USE ISO_C_BINDING164 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl165 INTEGER (kind = C_INT) , VALUE :: zoom_jbegin_loc166 END SUBROUTINE cxios_set_domain_zoom_jbegin_loc167 168 144 SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C) 169 145 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.