source: XIOS/trunk/src/interface/fortran_attr/interpolate_domain_interface_attr.F90 @ 1040

Last change on this file since 1040 was 1040, checked in by rlacroix, 5 years ago

Update the Fortran interface (some files were forgotten in r1014).

File size: 5.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE interpolate_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_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
15      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
16      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
17    END SUBROUTINE cxios_set_interpolate_domain_mode
18
19    SUBROUTINE cxios_get_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
22      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
23      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
24    END SUBROUTINE cxios_get_interpolate_domain_mode
25
26    FUNCTION cxios_is_defined_interpolate_domain_mode(interpolate_domain_hdl) BIND(C)
27      USE ISO_C_BINDING
28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_mode
29      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
30    END FUNCTION cxios_is_defined_interpolate_domain_mode
31
32
33    SUBROUTINE cxios_set_interpolate_domain_order(interpolate_domain_hdl, order) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
36      INTEGER (KIND=C_INT)      , VALUE :: order
37    END SUBROUTINE cxios_set_interpolate_domain_order
38
39    SUBROUTINE cxios_get_interpolate_domain_order(interpolate_domain_hdl, order) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
42      INTEGER (KIND=C_INT)             :: order
43    END SUBROUTINE cxios_get_interpolate_domain_order
44
45    FUNCTION cxios_is_defined_interpolate_domain_order(interpolate_domain_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_order
48      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
49    END FUNCTION cxios_is_defined_interpolate_domain_order
50
51
52    SUBROUTINE cxios_set_interpolate_domain_renormalize(interpolate_domain_hdl, renormalize) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
55      LOGICAL (KIND=C_BOOL)      , VALUE :: renormalize
56    END SUBROUTINE cxios_set_interpolate_domain_renormalize
57
58    SUBROUTINE cxios_get_interpolate_domain_renormalize(interpolate_domain_hdl, renormalize) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
61      LOGICAL (KIND=C_BOOL)             :: renormalize
62    END SUBROUTINE cxios_get_interpolate_domain_renormalize
63
64    FUNCTION cxios_is_defined_interpolate_domain_renormalize(interpolate_domain_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_renormalize
67      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
68    END FUNCTION cxios_is_defined_interpolate_domain_renormalize
69
70
71    SUBROUTINE cxios_set_interpolate_domain_weight_filename(interpolate_domain_hdl, weight_filename, weight_filename_size) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
74      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: weight_filename
75      INTEGER  (kind = C_INT)     , VALUE        :: weight_filename_size
76    END SUBROUTINE cxios_set_interpolate_domain_weight_filename
77
78    SUBROUTINE cxios_get_interpolate_domain_weight_filename(interpolate_domain_hdl, weight_filename, weight_filename_size) BIND(C)
79      USE ISO_C_BINDING
80      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
81      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: weight_filename
82      INTEGER  (kind = C_INT)     , VALUE        :: weight_filename_size
83    END SUBROUTINE cxios_get_interpolate_domain_weight_filename
84
85    FUNCTION cxios_is_defined_interpolate_domain_weight_filename(interpolate_domain_hdl) BIND(C)
86      USE ISO_C_BINDING
87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_weight_filename
88      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
89    END FUNCTION cxios_is_defined_interpolate_domain_weight_filename
90
91
92    SUBROUTINE cxios_set_interpolate_domain_write_weight(interpolate_domain_hdl, write_weight) BIND(C)
93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
95      LOGICAL (KIND=C_BOOL)      , VALUE :: write_weight
96    END SUBROUTINE cxios_set_interpolate_domain_write_weight
97
98    SUBROUTINE cxios_get_interpolate_domain_write_weight(interpolate_domain_hdl, write_weight) BIND(C)
99      USE ISO_C_BINDING
100      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
101      LOGICAL (KIND=C_BOOL)             :: write_weight
102    END SUBROUTINE cxios_get_interpolate_domain_write_weight
103
104    FUNCTION cxios_is_defined_interpolate_domain_write_weight(interpolate_domain_hdl) BIND(C)
105      USE ISO_C_BINDING
106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_write_weight
107      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl
108    END FUNCTION cxios_is_defined_interpolate_domain_write_weight
109
110  END INTERFACE
111
112END MODULE interpolate_domain_interface_attr
Note: See TracBrowser for help on using the repository browser.