source: XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90 @ 802

Last change on this file since 802 was 786, checked in by mhnguyen, 9 years ago

Generating interface for transformations

+) Update Fortran interface for other transformations
+) Remove some redundant files
+) Update test to new interface

Test
+) On Curie
+) test_client and test_complete are correct
File size: 5.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iinterpolate_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iinterpolate_domain
9  USE interpolate_domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_interpolate_domain_attr)  &
14    ( interpolate_domain_id, file, order )
15
16    IMPLICIT NONE
17      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file
20      INTEGER  , OPTIONAL, INTENT(IN) :: order
21
22      CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl)
23      CALL xios(set_interpolate_domain_attr_hdl_)   &
24      ( interpolate_domain_hdl, file, order )
25
26  END SUBROUTINE xios(set_interpolate_domain_attr)
27
28  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
29    ( interpolate_domain_hdl, file, order )
30
31    IMPLICIT NONE
32      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file
34      INTEGER  , OPTIONAL, INTENT(IN) :: order
35
36      CALL xios(set_interpolate_domain_attr_hdl_)  &
37      ( interpolate_domain_hdl, file, order )
38
39  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
40
41  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
42    ( interpolate_domain_hdl, file_, order_ )
43
44    IMPLICIT NONE
45      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file_
47      INTEGER  , OPTIONAL, INTENT(IN) :: order_
48
49      IF (PRESENT(file_)) THEN
50        CALL cxios_set_interpolate_domain_file(interpolate_domain_hdl%daddr, file_, len(file_))
51      ENDIF
52
53      IF (PRESENT(order_)) THEN
54        CALL cxios_set_interpolate_domain_order(interpolate_domain_hdl%daddr, order_)
55      ENDIF
56
57  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
58
59  SUBROUTINE xios(get_interpolate_domain_attr)  &
60    ( interpolate_domain_id, file, order )
61
62    IMPLICIT NONE
63      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
64      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
65      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
66      INTEGER  , OPTIONAL, INTENT(OUT) :: order
67
68      CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl)
69      CALL xios(get_interpolate_domain_attr_hdl_)   &
70      ( interpolate_domain_hdl, file, order )
71
72  END SUBROUTINE xios(get_interpolate_domain_attr)
73
74  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
75    ( interpolate_domain_hdl, file, order )
76
77    IMPLICIT NONE
78      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
79      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
80      INTEGER  , OPTIONAL, INTENT(OUT) :: order
81
82      CALL xios(get_interpolate_domain_attr_hdl_)  &
83      ( interpolate_domain_hdl, file, order )
84
85  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
86
87  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
88    ( interpolate_domain_hdl, file_, order_ )
89
90    IMPLICIT NONE
91      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
92      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file_
93      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
94
95      IF (PRESENT(file_)) THEN
96        CALL cxios_get_interpolate_domain_file(interpolate_domain_hdl%daddr, file_, len(file_))
97      ENDIF
98
99      IF (PRESENT(order_)) THEN
100        CALL cxios_get_interpolate_domain_order(interpolate_domain_hdl%daddr, order_)
101      ENDIF
102
103  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
104
105  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
106    ( interpolate_domain_id, file, order )
107
108    IMPLICIT NONE
109      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
110      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
111      LOGICAL, OPTIONAL, INTENT(OUT) :: file
112      LOGICAL(KIND=C_BOOL) :: file_tmp
113      LOGICAL, OPTIONAL, INTENT(OUT) :: order
114      LOGICAL(KIND=C_BOOL) :: order_tmp
115
116      CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl)
117      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
118      ( interpolate_domain_hdl, file, order )
119
120  END SUBROUTINE xios(is_defined_interpolate_domain_attr)
121
122  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
123    ( interpolate_domain_hdl, file, order )
124
125    IMPLICIT NONE
126      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
127      LOGICAL, OPTIONAL, INTENT(OUT) :: file
128      LOGICAL(KIND=C_BOOL) :: file_tmp
129      LOGICAL, OPTIONAL, INTENT(OUT) :: order
130      LOGICAL(KIND=C_BOOL) :: order_tmp
131
132      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
133      ( interpolate_domain_hdl, file, order )
134
135  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
136
137  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
138    ( interpolate_domain_hdl, file_, order_ )
139
140    IMPLICIT NONE
141      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
142      LOGICAL, OPTIONAL, INTENT(OUT) :: file_
143      LOGICAL(KIND=C_BOOL) :: file__tmp
144      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
145      LOGICAL(KIND=C_BOOL) :: order__tmp
146
147      IF (PRESENT(file_)) THEN
148        file__tmp = cxios_is_defined_interpolate_domain_file(interpolate_domain_hdl%daddr)
149        file_ = file__tmp
150      ENDIF
151
152      IF (PRESENT(order_)) THEN
153        order__tmp = cxios_is_defined_interpolate_domain_order(interpolate_domain_hdl%daddr)
154        order_ = order__tmp
155      ENDIF
156
157  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
158
159END MODULE iinterpolate_domain_attr
Note: See TracBrowser for help on using the repository browser.