source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/ireduce_domain_to_axis_attr.F90 @ 1205

Last change on this file since 1205 was 981, checked in by mhnguyen, 7 years ago

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File size: 6.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ireduce_domain_to_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ireduce_domain_to_axis
9  USE reduce_domain_to_axis_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_reduce_domain_to_axis_attr)  &
14    ( reduce_domain_to_axis_id, direction, operation )
15
16    IMPLICIT NONE
17      TYPE(txios(reduce_domain_to_axis))  :: reduce_domain_to_axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
21
22      CALL xios(get_reduce_domain_to_axis_handle) &
23      (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl)
24      CALL xios(set_reduce_domain_to_axis_attr_hdl_)   &
25      ( reduce_domain_to_axis_hdl, direction, operation )
26
27  END SUBROUTINE xios(set_reduce_domain_to_axis_attr)
28
29  SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl)  &
30    ( reduce_domain_to_axis_hdl, direction, operation )
31
32    IMPLICIT NONE
33      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
36
37      CALL xios(set_reduce_domain_to_axis_attr_hdl_)  &
38      ( reduce_domain_to_axis_hdl, direction, operation )
39
40  END SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl)
41
42  SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl_)   &
43    ( reduce_domain_to_axis_hdl, direction_, operation_ )
44
45    IMPLICIT NONE
46      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction_
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
49
50      IF (PRESENT(direction_)) THEN
51        CALL cxios_set_reduce_domain_to_axis_direction &
52      (reduce_domain_to_axis_hdl%daddr, direction_, len(direction_))
53      ENDIF
54
55      IF (PRESENT(operation_)) THEN
56        CALL cxios_set_reduce_domain_to_axis_operation &
57      (reduce_domain_to_axis_hdl%daddr, operation_, len(operation_))
58      ENDIF
59
60  END SUBROUTINE xios(set_reduce_domain_to_axis_attr_hdl_)
61
62  SUBROUTINE xios(get_reduce_domain_to_axis_attr)  &
63    ( reduce_domain_to_axis_id, direction, operation )
64
65    IMPLICIT NONE
66      TYPE(txios(reduce_domain_to_axis))  :: reduce_domain_to_axis_hdl
67      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id
68      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction
69      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
70
71      CALL xios(get_reduce_domain_to_axis_handle) &
72      (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl)
73      CALL xios(get_reduce_domain_to_axis_attr_hdl_)   &
74      ( reduce_domain_to_axis_hdl, direction, operation )
75
76  END SUBROUTINE xios(get_reduce_domain_to_axis_attr)
77
78  SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl)  &
79    ( reduce_domain_to_axis_hdl, direction, operation )
80
81    IMPLICIT NONE
82      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction
84      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
85
86      CALL xios(get_reduce_domain_to_axis_attr_hdl_)  &
87      ( reduce_domain_to_axis_hdl, direction, operation )
88
89  END SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl)
90
91  SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl_)   &
92    ( reduce_domain_to_axis_hdl, direction_, operation_ )
93
94    IMPLICIT NONE
95      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
96      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction_
97      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
98
99      IF (PRESENT(direction_)) THEN
100        CALL cxios_get_reduce_domain_to_axis_direction &
101      (reduce_domain_to_axis_hdl%daddr, direction_, len(direction_))
102      ENDIF
103
104      IF (PRESENT(operation_)) THEN
105        CALL cxios_get_reduce_domain_to_axis_operation &
106      (reduce_domain_to_axis_hdl%daddr, operation_, len(operation_))
107      ENDIF
108
109  END SUBROUTINE xios(get_reduce_domain_to_axis_attr_hdl_)
110
111  SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr)  &
112    ( reduce_domain_to_axis_id, direction, operation )
113
114    IMPLICIT NONE
115      TYPE(txios(reduce_domain_to_axis))  :: reduce_domain_to_axis_hdl
116      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_axis_id
117      LOGICAL, OPTIONAL, INTENT(OUT) :: direction
118      LOGICAL(KIND=C_BOOL) :: direction_tmp
119      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
120      LOGICAL(KIND=C_BOOL) :: operation_tmp
121
122      CALL xios(get_reduce_domain_to_axis_handle) &
123      (reduce_domain_to_axis_id,reduce_domain_to_axis_hdl)
124      CALL xios(is_defined_reduce_domain_to_axis_attr_hdl_)   &
125      ( reduce_domain_to_axis_hdl, direction, operation )
126
127  END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr)
128
129  SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl)  &
130    ( reduce_domain_to_axis_hdl, direction, operation )
131
132    IMPLICIT NONE
133      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
134      LOGICAL, OPTIONAL, INTENT(OUT) :: direction
135      LOGICAL(KIND=C_BOOL) :: direction_tmp
136      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
137      LOGICAL(KIND=C_BOOL) :: operation_tmp
138
139      CALL xios(is_defined_reduce_domain_to_axis_attr_hdl_)  &
140      ( reduce_domain_to_axis_hdl, direction, operation )
141
142  END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl)
143
144  SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl_)   &
145    ( reduce_domain_to_axis_hdl, direction_, operation_ )
146
147    IMPLICIT NONE
148      TYPE(txios(reduce_domain_to_axis)) , INTENT(IN) :: reduce_domain_to_axis_hdl
149      LOGICAL, OPTIONAL, INTENT(OUT) :: direction_
150      LOGICAL(KIND=C_BOOL) :: direction__tmp
151      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
152      LOGICAL(KIND=C_BOOL) :: operation__tmp
153
154      IF (PRESENT(direction_)) THEN
155        direction__tmp = cxios_is_defined_reduce_domain_to_axis_direction &
156      (reduce_domain_to_axis_hdl%daddr)
157        direction_ = direction__tmp
158      ENDIF
159
160      IF (PRESENT(operation_)) THEN
161        operation__tmp = cxios_is_defined_reduce_domain_to_axis_operation &
162      (reduce_domain_to_axis_hdl%daddr)
163        operation_ = operation__tmp
164      ENDIF
165
166  END SUBROUTINE xios(is_defined_reduce_domain_to_axis_attr_hdl_)
167
168END MODULE ireduce_domain_to_axis_attr
Note: See TracBrowser for help on using the repository browser.