source: XIOS/trunk/src/interface/fortran_attr/zoom_domain_interface_attr.F90 @ 787

Last change on this file since 787 was 787, checked in by mhnguyen, 5 years ago

Changing name of attributes of zoom

Test
+) test_client and test_complete are correct

File size: 3.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE zoom_domain_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_domain_ibegin(zoom_domain_hdl, ibegin) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
15      INTEGER (KIND=C_INT)      , VALUE :: ibegin
16    END SUBROUTINE cxios_set_zoom_domain_ibegin
17
18    SUBROUTINE cxios_get_zoom_domain_ibegin(zoom_domain_hdl, ibegin) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
21      INTEGER (KIND=C_INT)             :: ibegin
22    END SUBROUTINE cxios_get_zoom_domain_ibegin
23
24    FUNCTION cxios_is_defined_zoom_domain_ibegin(zoom_domain_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_ibegin
27      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
28    END FUNCTION cxios_is_defined_zoom_domain_ibegin
29
30
31    SUBROUTINE cxios_set_zoom_domain_jbegin(zoom_domain_hdl, jbegin) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
34      INTEGER (KIND=C_INT)      , VALUE :: jbegin
35    END SUBROUTINE cxios_set_zoom_domain_jbegin
36
37    SUBROUTINE cxios_get_zoom_domain_jbegin(zoom_domain_hdl, jbegin) BIND(C)
38      USE ISO_C_BINDING
39      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
40      INTEGER (KIND=C_INT)             :: jbegin
41    END SUBROUTINE cxios_get_zoom_domain_jbegin
42
43    FUNCTION cxios_is_defined_zoom_domain_jbegin(zoom_domain_hdl) BIND(C)
44      USE ISO_C_BINDING
45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_jbegin
46      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
47    END FUNCTION cxios_is_defined_zoom_domain_jbegin
48
49
50    SUBROUTINE cxios_set_zoom_domain_ni(zoom_domain_hdl, ni) BIND(C)
51      USE ISO_C_BINDING
52      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
53      INTEGER (KIND=C_INT)      , VALUE :: ni
54    END SUBROUTINE cxios_set_zoom_domain_ni
55
56    SUBROUTINE cxios_get_zoom_domain_ni(zoom_domain_hdl, ni) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
59      INTEGER (KIND=C_INT)             :: ni
60    END SUBROUTINE cxios_get_zoom_domain_ni
61
62    FUNCTION cxios_is_defined_zoom_domain_ni(zoom_domain_hdl) BIND(C)
63      USE ISO_C_BINDING
64      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_ni
65      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
66    END FUNCTION cxios_is_defined_zoom_domain_ni
67
68
69    SUBROUTINE cxios_set_zoom_domain_nj(zoom_domain_hdl, nj) BIND(C)
70      USE ISO_C_BINDING
71      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
72      INTEGER (KIND=C_INT)      , VALUE :: nj
73    END SUBROUTINE cxios_set_zoom_domain_nj
74
75    SUBROUTINE cxios_get_zoom_domain_nj(zoom_domain_hdl, nj) BIND(C)
76      USE ISO_C_BINDING
77      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
78      INTEGER (KIND=C_INT)             :: nj
79    END SUBROUTINE cxios_get_zoom_domain_nj
80
81    FUNCTION cxios_is_defined_zoom_domain_nj(zoom_domain_hdl) BIND(C)
82      USE ISO_C_BINDING
83      LOGICAL(kind=C_BOOL) :: cxios_is_defined_zoom_domain_nj
84      INTEGER (kind = C_INTPTR_T), VALUE :: zoom_domain_hdl
85    END FUNCTION cxios_is_defined_zoom_domain_nj
86
87  END INTERFACE
88
89END MODULE zoom_domain_interface_attr
Note: See TracBrowser for help on using the repository browser.