- Timestamp:
- 07/07/17 18:17:49 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/zoom_axis_interface_attr.F90
r787 r1201 29 29 30 30 31 SUBROUTINE cxios_set_zoom_axis_index(zoom_axis_hdl, index, extent) BIND(C) 32 USE ISO_C_BINDING 33 INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 34 INTEGER (KIND=C_INT) , DIMENSION(*) :: index 35 INTEGER (kind = C_INT), DIMENSION(*) :: extent 36 END SUBROUTINE cxios_set_zoom_axis_index 37 38 SUBROUTINE cxios_get_zoom_axis_index(zoom_axis_hdl, index, extent) BIND(C) 39 USE ISO_C_BINDING 40 INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 41 INTEGER (KIND=C_INT) , DIMENSION(*) :: index 42 INTEGER (kind = C_INT), DIMENSION(*) :: extent 43 END SUBROUTINE cxios_get_zoom_axis_index 44 45 FUNCTION cxios_is_defined_zoom_axis_index(zoom_axis_hdl) BIND(C) 46 USE ISO_C_BINDING 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_axis_index 48 INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl 49 END FUNCTION cxios_is_defined_zoom_axis_index 50 51 31 52 SUBROUTINE cxios_set_zoom_axis_n(zoom_axis_hdl, n) BIND(C) 32 53 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.