source: XIOS/trunk/src/interface/fortran_attr/iextract_domain_to_axis_attr.F90 @ 981

Last change on this file since 981 was 981, checked in by mhnguyen, 5 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 iextract_domain_to_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iextract_domain_to_axis
9  USE extract_domain_to_axis_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_extract_domain_to_axis_attr)  &
14    ( extract_domain_to_axis_id, direction, position )
15
16    IMPLICIT NONE
17      TYPE(txios(extract_domain_to_axis))  :: extract_domain_to_axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::extract_domain_to_axis_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction
20      INTEGER  , OPTIONAL, INTENT(IN) :: position
21
22      CALL xios(get_extract_domain_to_axis_handle) &
23      (extract_domain_to_axis_id,extract_domain_to_axis_hdl)
24      CALL xios(set_extract_domain_to_axis_attr_hdl_)   &
25      ( extract_domain_to_axis_hdl, direction, position )
26
27  END SUBROUTINE xios(set_extract_domain_to_axis_attr)
28
29  SUBROUTINE xios(set_extract_domain_to_axis_attr_hdl)  &
30    ( extract_domain_to_axis_hdl, direction, position )
31
32    IMPLICIT NONE
33      TYPE(txios(extract_domain_to_axis)) , INTENT(IN) :: extract_domain_to_axis_hdl
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction
35      INTEGER  , OPTIONAL, INTENT(IN) :: position
36
37      CALL xios(set_extract_domain_to_axis_attr_hdl_)  &
38      ( extract_domain_to_axis_hdl, direction, position )
39
40  END SUBROUTINE xios(set_extract_domain_to_axis_attr_hdl)
41
42  SUBROUTINE xios(set_extract_domain_to_axis_attr_hdl_)   &
43    ( extract_domain_to_axis_hdl, direction_, position_ )
44
45    IMPLICIT NONE
46      TYPE(txios(extract_domain_to_axis)) , INTENT(IN) :: extract_domain_to_axis_hdl
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: direction_
48      INTEGER  , OPTIONAL, INTENT(IN) :: position_
49
50      IF (PRESENT(direction_)) THEN
51        CALL cxios_set_extract_domain_to_axis_direction &
52      (extract_domain_to_axis_hdl%daddr, direction_, len(direction_))
53      ENDIF
54
55      IF (PRESENT(position_)) THEN
56        CALL cxios_set_extract_domain_to_axis_position &
57      (extract_domain_to_axis_hdl%daddr, position_)
58      ENDIF
59
60  END SUBROUTINE xios(set_extract_domain_to_axis_attr_hdl_)
61
62  SUBROUTINE xios(get_extract_domain_to_axis_attr)  &
63    ( extract_domain_to_axis_id, direction, position )
64
65    IMPLICIT NONE
66      TYPE(txios(extract_domain_to_axis))  :: extract_domain_to_axis_hdl
67      CHARACTER(LEN=*), INTENT(IN) ::extract_domain_to_axis_id
68      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction
69      INTEGER  , OPTIONAL, INTENT(OUT) :: position
70
71      CALL xios(get_extract_domain_to_axis_handle) &
72      (extract_domain_to_axis_id,extract_domain_to_axis_hdl)
73      CALL xios(get_extract_domain_to_axis_attr_hdl_)   &
74      ( extract_domain_to_axis_hdl, direction, position )
75
76  END SUBROUTINE xios(get_extract_domain_to_axis_attr)
77
78  SUBROUTINE xios(get_extract_domain_to_axis_attr_hdl)  &
79    ( extract_domain_to_axis_hdl, direction, position )
80
81    IMPLICIT NONE
82      TYPE(txios(extract_domain_to_axis)) , INTENT(IN) :: extract_domain_to_axis_hdl
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction
84      INTEGER  , OPTIONAL, INTENT(OUT) :: position
85
86      CALL xios(get_extract_domain_to_axis_attr_hdl_)  &
87      ( extract_domain_to_axis_hdl, direction, position )
88
89  END SUBROUTINE xios(get_extract_domain_to_axis_attr_hdl)
90
91  SUBROUTINE xios(get_extract_domain_to_axis_attr_hdl_)   &
92    ( extract_domain_to_axis_hdl, direction_, position_ )
93
94    IMPLICIT NONE
95      TYPE(txios(extract_domain_to_axis)) , INTENT(IN) :: extract_domain_to_axis_hdl
96      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: direction_
97      INTEGER  , OPTIONAL, INTENT(OUT) :: position_
98
99      IF (PRESENT(direction_)) THEN
100        CALL cxios_get_extract_domain_to_axis_direction &
101      (extract_domain_to_axis_hdl%daddr, direction_, len(direction_))
102      ENDIF
103
104      IF (PRESENT(position_)) THEN
105        CALL cxios_get_extract_domain_to_axis_position &
106      (extract_domain_to_axis_hdl%daddr, position_)
107      ENDIF
108
109  END SUBROUTINE xios(get_extract_domain_to_axis_attr_hdl_)
110
111  SUBROUTINE xios(is_defined_extract_domain_to_axis_attr)  &
112    ( extract_domain_to_axis_id, direction, position )
113
114    IMPLICIT NONE
115      TYPE(txios(extract_domain_to_axis))  :: extract_domain_to_axis_hdl
116      CHARACTER(LEN=*), INTENT(IN) ::extract_domain_to_axis_id
117      LOGICAL, OPTIONAL, INTENT(OUT) :: direction
118      LOGICAL(KIND=C_BOOL) :: direction_tmp
119      LOGICAL, OPTIONAL, INTENT(OUT) :: position
120      LOGICAL(KIND=C_BOOL) :: position_tmp
121
122      CALL xios(get_extract_domain_to_axis_handle) &
123      (extract_domain_to_axis_id,extract_domain_to_axis_hdl)
124      CALL xios(is_defined_extract_domain_to_axis_attr_hdl_)   &
125      ( extract_domain_to_axis_hdl, direction, position )
126
127  END SUBROUTINE xios(is_defined_extract_domain_to_axis_attr)
128
129  SUBROUTINE xios(is_defined_extract_domain_to_axis_attr_hdl)  &
130    ( extract_domain_to_axis_hdl, direction, position )
131
132    IMPLICIT NONE
133      TYPE(txios(extract_domain_to_axis)) , INTENT(IN) :: extract_domain_to_axis_hdl
134      LOGICAL, OPTIONAL, INTENT(OUT) :: direction
135      LOGICAL(KIND=C_BOOL) :: direction_tmp
136      LOGICAL, OPTIONAL, INTENT(OUT) :: position
137      LOGICAL(KIND=C_BOOL) :: position_tmp
138
139      CALL xios(is_defined_extract_domain_to_axis_attr_hdl_)  &
140      ( extract_domain_to_axis_hdl, direction, position )
141
142  END SUBROUTINE xios(is_defined_extract_domain_to_axis_attr_hdl)
143
144  SUBROUTINE xios(is_defined_extract_domain_to_axis_attr_hdl_)   &
145    ( extract_domain_to_axis_hdl, direction_, position_ )
146
147    IMPLICIT NONE
148      TYPE(txios(extract_domain_to_axis)) , INTENT(IN) :: extract_domain_to_axis_hdl
149      LOGICAL, OPTIONAL, INTENT(OUT) :: direction_
150      LOGICAL(KIND=C_BOOL) :: direction__tmp
151      LOGICAL, OPTIONAL, INTENT(OUT) :: position_
152      LOGICAL(KIND=C_BOOL) :: position__tmp
153
154      IF (PRESENT(direction_)) THEN
155        direction__tmp = cxios_is_defined_extract_domain_to_axis_direction &
156      (extract_domain_to_axis_hdl%daddr)
157        direction_ = direction__tmp
158      ENDIF
159
160      IF (PRESENT(position_)) THEN
161        position__tmp = cxios_is_defined_extract_domain_to_axis_position &
162      (extract_domain_to_axis_hdl%daddr)
163        position_ = position__tmp
164      ENDIF
165
166  END SUBROUTINE xios(is_defined_extract_domain_to_axis_attr_hdl_)
167
168END MODULE iextract_domain_to_axis_attr
Note: See TracBrowser for help on using the repository browser.