source: XIOS3/trunk/src/interface/fortran_attr/ivariablegroup_attr.F90 @ 2622

Last change on this file since 2622 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.
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 8.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ivariablegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ivariable
9  USE variablegroup_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_variablegroup_attr)  &
15    ( variablegroup_id, group_ref, name, ts_target, type )
16
17    IMPLICIT NONE
18      TYPE(txios(variablegroup))  :: variablegroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
24
25      CALL xios(get_variablegroup_handle) &
26      (variablegroup_id,variablegroup_hdl)
27      CALL xios(set_variablegroup_attr_hdl_)   &
28      ( variablegroup_hdl, group_ref, name, ts_target, type )
29
30  END SUBROUTINE xios(set_variablegroup_attr)
31
32  SUBROUTINE xios(set_variablegroup_attr_hdl)  &
33    ( variablegroup_hdl, group_ref, name, ts_target, type )
34
35    IMPLICIT NONE
36      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
41
42      CALL xios(set_variablegroup_attr_hdl_)  &
43      ( variablegroup_hdl, group_ref, name, ts_target, type )
44
45  END SUBROUTINE xios(set_variablegroup_attr_hdl)
46
47  SUBROUTINE xios(set_variablegroup_attr_hdl_)   &
48    ( variablegroup_hdl, group_ref_, name_, ts_target_, type_ )
49
50    IMPLICIT NONE
51      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_target_
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
56
57      IF (PRESENT(group_ref_)) THEN
58        CALL cxios_set_variablegroup_group_ref &
59      (variablegroup_hdl%daddr, group_ref_, len(group_ref_))
60      ENDIF
61
62      IF (PRESENT(name_)) THEN
63        CALL cxios_set_variablegroup_name &
64      (variablegroup_hdl%daddr, name_, len(name_))
65      ENDIF
66
67      IF (PRESENT(ts_target_)) THEN
68        CALL cxios_set_variablegroup_ts_target &
69      (variablegroup_hdl%daddr, ts_target_, len(ts_target_))
70      ENDIF
71
72      IF (PRESENT(type_)) THEN
73        CALL cxios_set_variablegroup_type &
74      (variablegroup_hdl%daddr, type_, len(type_))
75      ENDIF
76
77  END SUBROUTINE xios(set_variablegroup_attr_hdl_)
78
79  SUBROUTINE xios(get_variablegroup_attr)  &
80    ( variablegroup_id, group_ref, name, ts_target, type )
81
82    IMPLICIT NONE
83      TYPE(txios(variablegroup))  :: variablegroup_hdl
84      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
85      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
86      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
87      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target
88      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
89
90      CALL xios(get_variablegroup_handle) &
91      (variablegroup_id,variablegroup_hdl)
92      CALL xios(get_variablegroup_attr_hdl_)   &
93      ( variablegroup_hdl, group_ref, name, ts_target, type )
94
95  END SUBROUTINE xios(get_variablegroup_attr)
96
97  SUBROUTINE xios(get_variablegroup_attr_hdl)  &
98    ( variablegroup_hdl, group_ref, name, ts_target, type )
99
100    IMPLICIT NONE
101      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
102      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
103      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target
105      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
106
107      CALL xios(get_variablegroup_attr_hdl_)  &
108      ( variablegroup_hdl, group_ref, name, ts_target, type )
109
110  END SUBROUTINE xios(get_variablegroup_attr_hdl)
111
112  SUBROUTINE xios(get_variablegroup_attr_hdl_)   &
113    ( variablegroup_hdl, group_ref_, name_, ts_target_, type_ )
114
115    IMPLICIT NONE
116      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
117      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
118      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
119      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_target_
120      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
121
122      IF (PRESENT(group_ref_)) THEN
123        CALL cxios_get_variablegroup_group_ref &
124      (variablegroup_hdl%daddr, group_ref_, len(group_ref_))
125      ENDIF
126
127      IF (PRESENT(name_)) THEN
128        CALL cxios_get_variablegroup_name &
129      (variablegroup_hdl%daddr, name_, len(name_))
130      ENDIF
131
132      IF (PRESENT(ts_target_)) THEN
133        CALL cxios_get_variablegroup_ts_target &
134      (variablegroup_hdl%daddr, ts_target_, len(ts_target_))
135      ENDIF
136
137      IF (PRESENT(type_)) THEN
138        CALL cxios_get_variablegroup_type &
139      (variablegroup_hdl%daddr, type_, len(type_))
140      ENDIF
141
142  END SUBROUTINE xios(get_variablegroup_attr_hdl_)
143
144  SUBROUTINE xios(is_defined_variablegroup_attr)  &
145    ( variablegroup_id, group_ref, name, ts_target, type )
146
147    IMPLICIT NONE
148      TYPE(txios(variablegroup))  :: variablegroup_hdl
149      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
150      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
151      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
152      LOGICAL, OPTIONAL, INTENT(OUT) :: name
153      LOGICAL(KIND=C_BOOL) :: name_tmp
154      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target
155      LOGICAL(KIND=C_BOOL) :: ts_target_tmp
156      LOGICAL, OPTIONAL, INTENT(OUT) :: type
157      LOGICAL(KIND=C_BOOL) :: type_tmp
158
159      CALL xios(get_variablegroup_handle) &
160      (variablegroup_id,variablegroup_hdl)
161      CALL xios(is_defined_variablegroup_attr_hdl_)   &
162      ( variablegroup_hdl, group_ref, name, ts_target, type )
163
164  END SUBROUTINE xios(is_defined_variablegroup_attr)
165
166  SUBROUTINE xios(is_defined_variablegroup_attr_hdl)  &
167    ( variablegroup_hdl, group_ref, name, ts_target, type )
168
169    IMPLICIT NONE
170      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
171      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
172      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
173      LOGICAL, OPTIONAL, INTENT(OUT) :: name
174      LOGICAL(KIND=C_BOOL) :: name_tmp
175      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target
176      LOGICAL(KIND=C_BOOL) :: ts_target_tmp
177      LOGICAL, OPTIONAL, INTENT(OUT) :: type
178      LOGICAL(KIND=C_BOOL) :: type_tmp
179
180      CALL xios(is_defined_variablegroup_attr_hdl_)  &
181      ( variablegroup_hdl, group_ref, name, ts_target, type )
182
183  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl)
184
185  SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)   &
186    ( variablegroup_hdl, group_ref_, name_, ts_target_, type_ )
187
188    IMPLICIT NONE
189      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
190      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
191      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
192      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
193      LOGICAL(KIND=C_BOOL) :: name__tmp
194      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_target_
195      LOGICAL(KIND=C_BOOL) :: ts_target__tmp
196      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
197      LOGICAL(KIND=C_BOOL) :: type__tmp
198
199      IF (PRESENT(group_ref_)) THEN
200        group_ref__tmp = cxios_is_defined_variablegroup_group_ref &
201      (variablegroup_hdl%daddr)
202        group_ref_ = group_ref__tmp
203      ENDIF
204
205      IF (PRESENT(name_)) THEN
206        name__tmp = cxios_is_defined_variablegroup_name &
207      (variablegroup_hdl%daddr)
208        name_ = name__tmp
209      ENDIF
210
211      IF (PRESENT(ts_target_)) THEN
212        ts_target__tmp = cxios_is_defined_variablegroup_ts_target &
213      (variablegroup_hdl%daddr)
214        ts_target_ = ts_target__tmp
215      ENDIF
216
217      IF (PRESENT(type_)) THEN
218        type__tmp = cxios_is_defined_variablegroup_type &
219      (variablegroup_hdl%daddr)
220        type_ = type__tmp
221      ENDIF
222
223  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)
224
225END MODULE ivariablegroup_attr
Note: See TracBrowser for help on using the repository browser.