source: XIOS/dev/dev_olga/src/interface/fortran_attr/zoom_axis_interface_attr.F90 @ 1201

Last change on this file since 1201 was 1201, checked in by oabramkina, 7 years ago

Two server levels: merging trunk r1200 (except for non-contiguous zoom) into dev. Tested on Curie. Todo: non-contiguous zoom.

File size: 2.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE zoom_axis_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_zoom_axis_begin(zoom_axis_hdl, begin) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl
15      INTEGER (KIND=C_INT)      , VALUE :: begin
16    END SUBROUTINE cxios_set_zoom_axis_begin
17
18    SUBROUTINE cxios_get_zoom_axis_begin(zoom_axis_hdl, begin) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl
21      INTEGER (KIND=C_INT)             :: begin
22    END SUBROUTINE cxios_get_zoom_axis_begin
23
24    FUNCTION cxios_is_defined_zoom_axis_begin(zoom_axis_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_axis_begin
27      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl
28    END FUNCTION cxios_is_defined_zoom_axis_begin
29
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
52    SUBROUTINE cxios_set_zoom_axis_n(zoom_axis_hdl, n) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl
55      INTEGER (KIND=C_INT)      , VALUE :: n
56    END SUBROUTINE cxios_set_zoom_axis_n
57
58    SUBROUTINE cxios_get_zoom_axis_n(zoom_axis_hdl, n) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl
61      INTEGER (KIND=C_INT)             :: n
62    END SUBROUTINE cxios_get_zoom_axis_n
63
64    FUNCTION cxios_is_defined_zoom_axis_n(zoom_axis_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_axis_n
67      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_axis_hdl
68    END FUNCTION cxios_is_defined_zoom_axis_n
69
70  END INTERFACE
71
72END MODULE zoom_axis_interface_attr
Note: See TracBrowser for help on using the repository browser.