source: XIOS3/trunk/src/interface/fortran_attr/iextract_axis_to_scalar_attr.F90

Last change on this file was 2620, checked in by jderouillat, 4 months ago

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
File size: 5.1 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  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_extract_axis_to_scalar_attr)  &
15    ( extract_axis_to_scalar_id, position )
16
17    IMPLICIT NONE
18      TYPE(txios(extract_axis_to_scalar))  :: extract_axis_to_scalar_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::extract_axis_to_scalar_id
20      INTEGER  , OPTIONAL, INTENT(IN) :: position
21
22      CALL xios(get_extract_axis_to_scalar_handle) &
23      (extract_axis_to_scalar_id,extract_axis_to_scalar_hdl)
24      CALL xios(set_extract_axis_to_scalar_attr_hdl_)   &
25      ( extract_axis_to_scalar_hdl, position )
26
27  END SUBROUTINE xios(set_extract_axis_to_scalar_attr)
28
29  SUBROUTINE xios(set_extract_axis_to_scalar_attr_hdl)  &
30    ( extract_axis_to_scalar_hdl, position )
31
32    IMPLICIT NONE
33      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
34      INTEGER  , OPTIONAL, INTENT(IN) :: position
35
36      CALL xios(set_extract_axis_to_scalar_attr_hdl_)  &
37      ( extract_axis_to_scalar_hdl, position )
38
39  END SUBROUTINE xios(set_extract_axis_to_scalar_attr_hdl)
40
41  SUBROUTINE xios(set_extract_axis_to_scalar_attr_hdl_)   &
42    ( extract_axis_to_scalar_hdl, position_ )
43
44    IMPLICIT NONE
45      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
46      INTEGER  , OPTIONAL, INTENT(IN) :: position_
47
48      IF (PRESENT(position_)) THEN
49        CALL cxios_set_extract_axis_to_scalar_position &
50      (extract_axis_to_scalar_hdl%daddr, position_)
51      ENDIF
52
53  END SUBROUTINE xios(set_extract_axis_to_scalar_attr_hdl_)
54
55  SUBROUTINE xios(get_extract_axis_to_scalar_attr)  &
56    ( extract_axis_to_scalar_id, position )
57
58    IMPLICIT NONE
59      TYPE(txios(extract_axis_to_scalar))  :: extract_axis_to_scalar_hdl
60      CHARACTER(LEN=*), INTENT(IN) ::extract_axis_to_scalar_id
61      INTEGER  , OPTIONAL, INTENT(OUT) :: position
62
63      CALL xios(get_extract_axis_to_scalar_handle) &
64      (extract_axis_to_scalar_id,extract_axis_to_scalar_hdl)
65      CALL xios(get_extract_axis_to_scalar_attr_hdl_)   &
66      ( extract_axis_to_scalar_hdl, position )
67
68  END SUBROUTINE xios(get_extract_axis_to_scalar_attr)
69
70  SUBROUTINE xios(get_extract_axis_to_scalar_attr_hdl)  &
71    ( extract_axis_to_scalar_hdl, position )
72
73    IMPLICIT NONE
74      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
75      INTEGER  , OPTIONAL, INTENT(OUT) :: position
76
77      CALL xios(get_extract_axis_to_scalar_attr_hdl_)  &
78      ( extract_axis_to_scalar_hdl, position )
79
80  END SUBROUTINE xios(get_extract_axis_to_scalar_attr_hdl)
81
82  SUBROUTINE xios(get_extract_axis_to_scalar_attr_hdl_)   &
83    ( extract_axis_to_scalar_hdl, position_ )
84
85    IMPLICIT NONE
86      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
87      INTEGER  , OPTIONAL, INTENT(OUT) :: position_
88
89      IF (PRESENT(position_)) THEN
90        CALL cxios_get_extract_axis_to_scalar_position &
91      (extract_axis_to_scalar_hdl%daddr, position_)
92      ENDIF
93
94  END SUBROUTINE xios(get_extract_axis_to_scalar_attr_hdl_)
95
96  SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr)  &
97    ( extract_axis_to_scalar_id, position )
98
99    IMPLICIT NONE
100      TYPE(txios(extract_axis_to_scalar))  :: extract_axis_to_scalar_hdl
101      CHARACTER(LEN=*), INTENT(IN) ::extract_axis_to_scalar_id
102      LOGICAL, OPTIONAL, INTENT(OUT) :: position
103      LOGICAL(KIND=C_BOOL) :: position_tmp
104
105      CALL xios(get_extract_axis_to_scalar_handle) &
106      (extract_axis_to_scalar_id,extract_axis_to_scalar_hdl)
107      CALL xios(is_defined_extract_axis_to_scalar_attr_hdl_)   &
108      ( extract_axis_to_scalar_hdl, position )
109
110  END SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr)
111
112  SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr_hdl)  &
113    ( extract_axis_to_scalar_hdl, position )
114
115    IMPLICIT NONE
116      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
117      LOGICAL, OPTIONAL, INTENT(OUT) :: position
118      LOGICAL(KIND=C_BOOL) :: position_tmp
119
120      CALL xios(is_defined_extract_axis_to_scalar_attr_hdl_)  &
121      ( extract_axis_to_scalar_hdl, position )
122
123  END SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr_hdl)
124
125  SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr_hdl_)   &
126    ( extract_axis_to_scalar_hdl, position_ )
127
128    IMPLICIT NONE
129      TYPE(txios(extract_axis_to_scalar)) , INTENT(IN) :: extract_axis_to_scalar_hdl
130      LOGICAL, OPTIONAL, INTENT(OUT) :: position_
131      LOGICAL(KIND=C_BOOL) :: position__tmp
132
133      IF (PRESENT(position_)) THEN
134        position__tmp = cxios_is_defined_extract_axis_to_scalar_position &
135      (extract_axis_to_scalar_hdl%daddr)
136        position_ = position__tmp
137      ENDIF
138
139  END SUBROUTINE xios(is_defined_extract_axis_to_scalar_attr_hdl_)
140
141END MODULE iextract_axis_to_scalar_attr
Note: See TracBrowser for help on using the repository browser.