source: XIOS/trunk/src/interface/fortran_attr/iextract_axis_to_scalar_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: 5.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iextract_axis_to_scalar_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iextract_axis_to_scalar
9  USE extract_axis_to_scalar_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_extract_axis_to_scalar_attr)  &
14    ( extract_axis_to_scalar_id, position )
15
16    IMPLICIT NONE
17      TYPE(txios(extract_axis_to_scalar))  :: extract_axis_to_scalar_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::extract_axis_to_scalar_id
19      INTEGER  , OPTIONAL, INTENT(IN) :: position
20
21      CALL xios(get_extract_axis_to_scalar_handle) &
22      (extract_axis_to_scalar_id,extract_axis_to_scalar_hdl)
23      CALL xios(set_extract_axis_to_scalar_attr_hdl_)   &
24      ( extract_axis_to_scalar_hdl, position )
25
26  END SUBROUTINE xios(set_extract_axis_to_scalar_attr)
27
28  SUBROUTINE xios(set_extract_axis_to_scalar_attr_hdl)  &
29    ( extract_axis_to_scalar_hdl, position )
30
31    IMPLICIT NONE
32      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
33      INTEGER  , OPTIONAL, INTENT(IN) :: position
34
35      CALL xios(set_extract_axis_to_scalar_attr_hdl_)  &
36      ( extract_axis_to_scalar_hdl, position )
37
38  END SUBROUTINE xios(set_extract_axis_to_scalar_attr_hdl)
39
40  SUBROUTINE xios(set_extract_axis_to_scalar_attr_hdl_)   &
41    ( extract_axis_to_scalar_hdl, position_ )
42
43    IMPLICIT NONE
44      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
45      INTEGER  , OPTIONAL, INTENT(IN) :: position_
46
47      IF (PRESENT(position_)) THEN
48        CALL cxios_set_extract_axis_to_scalar_position &
49      (extract_axis_to_scalar_hdl%daddr, position_)
50      ENDIF
51
52  END SUBROUTINE xios(set_extract_axis_to_scalar_attr_hdl_)
53
54  SUBROUTINE xios(get_extract_axis_to_scalar_attr)  &
55    ( extract_axis_to_scalar_id, position )
56
57    IMPLICIT NONE
58      TYPE(txios(extract_axis_to_scalar))  :: extract_axis_to_scalar_hdl
59      CHARACTER(LEN=*), INTENT(IN) ::extract_axis_to_scalar_id
60      INTEGER  , OPTIONAL, INTENT(OUT) :: position
61
62      CALL xios(get_extract_axis_to_scalar_handle) &
63      (extract_axis_to_scalar_id,extract_axis_to_scalar_hdl)
64      CALL xios(get_extract_axis_to_scalar_attr_hdl_)   &
65      ( extract_axis_to_scalar_hdl, position )
66
67  END SUBROUTINE xios(get_extract_axis_to_scalar_attr)
68
69  SUBROUTINE xios(get_extract_axis_to_scalar_attr_hdl)  &
70    ( extract_axis_to_scalar_hdl, position )
71
72    IMPLICIT NONE
73      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
74      INTEGER  , OPTIONAL, INTENT(OUT) :: position
75
76      CALL xios(get_extract_axis_to_scalar_attr_hdl_)  &
77      ( extract_axis_to_scalar_hdl, position )
78
79  END SUBROUTINE xios(get_extract_axis_to_scalar_attr_hdl)
80
81  SUBROUTINE xios(get_extract_axis_to_scalar_attr_hdl_)   &
82    ( extract_axis_to_scalar_hdl, position_ )
83
84    IMPLICIT NONE
85      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
86      INTEGER  , OPTIONAL, INTENT(OUT) :: position_
87
88      IF (PRESENT(position_)) THEN
89        CALL cxios_get_extract_axis_to_scalar_position &
90      (extract_axis_to_scalar_hdl%daddr, position_)
91      ENDIF
92
93  END SUBROUTINE xios(get_extract_axis_to_scalar_attr_hdl_)
94
95  SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr)  &
96    ( extract_axis_to_scalar_id, position )
97
98    IMPLICIT NONE
99      TYPE(txios(extract_axis_to_scalar))  :: extract_axis_to_scalar_hdl
100      CHARACTER(LEN=*), INTENT(IN) ::extract_axis_to_scalar_id
101      LOGICAL, OPTIONAL, INTENT(OUT) :: position
102      LOGICAL(KIND=C_BOOL) :: position_tmp
103
104      CALL xios(get_extract_axis_to_scalar_handle) &
105      (extract_axis_to_scalar_id,extract_axis_to_scalar_hdl)
106      CALL xios(is_defined_extract_axis_to_scalar_attr_hdl_)   &
107      ( extract_axis_to_scalar_hdl, position )
108
109  END SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr)
110
111  SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr_hdl)  &
112    ( extract_axis_to_scalar_hdl, position )
113
114    IMPLICIT NONE
115      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
116      LOGICAL, OPTIONAL, INTENT(OUT) :: position
117      LOGICAL(KIND=C_BOOL) :: position_tmp
118
119      CALL xios(is_defined_extract_axis_to_scalar_attr_hdl_)  &
120      ( extract_axis_to_scalar_hdl, position )
121
122  END SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr_hdl)
123
124  SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr_hdl_)   &
125    ( extract_axis_to_scalar_hdl, position_ )
126
127    IMPLICIT NONE
128      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
129      LOGICAL, OPTIONAL, INTENT(OUT) :: position_
130      LOGICAL(KIND=C_BOOL) :: position__tmp
131
132      IF (PRESENT(position_)) THEN
133        position__tmp = cxios_is_defined_extract_axis_to_scalar_position &
134      (extract_axis_to_scalar_hdl%daddr)
135        position_ = position__tmp
136      ENDIF
137
138  END SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr_hdl_)
139
140END MODULE iextract_axis_to_scalar_attr
Note: See TracBrowser for help on using the repository browser.