source: XIOS/trunk/src/interface/fortran_attr/ivariablegroup_attr.F90 @ 878

Last change on this file since 878 was 581, checked in by rlacroix, 9 years ago

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.
  • 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: 6.6 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
11CONTAINS
12
13  SUBROUTINE xios(set_variablegroup_attr)  &
14    ( variablegroup_id, group_ref, name, type )
15
16    IMPLICIT NONE
17      TYPE(txios(variablegroup))  :: variablegroup_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
22
23      CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl)
24      CALL xios(set_variablegroup_attr_hdl_)   &
25      ( variablegroup_hdl, group_ref, name, type )
26
27  END SUBROUTINE xios(set_variablegroup_attr)
28
29  SUBROUTINE xios(set_variablegroup_attr_hdl)  &
30    ( variablegroup_hdl, group_ref, name, type )
31
32    IMPLICIT NONE
33      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
37
38      CALL xios(set_variablegroup_attr_hdl_)  &
39      ( variablegroup_hdl, group_ref, name, type )
40
41  END SUBROUTINE xios(set_variablegroup_attr_hdl)
42
43  SUBROUTINE xios(set_variablegroup_attr_hdl_)   &
44    ( variablegroup_hdl, group_ref_, name_, type_ )
45
46    IMPLICIT NONE
47      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
51
52      IF (PRESENT(group_ref_)) THEN
53        CALL cxios_set_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_))
54      ENDIF
55
56      IF (PRESENT(name_)) THEN
57        CALL cxios_set_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_))
58      ENDIF
59
60      IF (PRESENT(type_)) THEN
61        CALL cxios_set_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_))
62      ENDIF
63
64  END SUBROUTINE xios(set_variablegroup_attr_hdl_)
65
66  SUBROUTINE xios(get_variablegroup_attr)  &
67    ( variablegroup_id, group_ref, name, type )
68
69    IMPLICIT NONE
70      TYPE(txios(variablegroup))  :: variablegroup_hdl
71      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
72      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
73      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
74      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
75
76      CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl)
77      CALL xios(get_variablegroup_attr_hdl_)   &
78      ( variablegroup_hdl, group_ref, name, type )
79
80  END SUBROUTINE xios(get_variablegroup_attr)
81
82  SUBROUTINE xios(get_variablegroup_attr_hdl)  &
83    ( variablegroup_hdl, group_ref, name, type )
84
85    IMPLICIT NONE
86      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
87      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
88      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
89      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
90
91      CALL xios(get_variablegroup_attr_hdl_)  &
92      ( variablegroup_hdl, group_ref, name, type )
93
94  END SUBROUTINE xios(get_variablegroup_attr_hdl)
95
96  SUBROUTINE xios(get_variablegroup_attr_hdl_)   &
97    ( variablegroup_hdl, group_ref_, name_, type_ )
98
99    IMPLICIT NONE
100      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
101      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
102      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
103      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
104
105      IF (PRESENT(group_ref_)) THEN
106        CALL cxios_get_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_))
107      ENDIF
108
109      IF (PRESENT(name_)) THEN
110        CALL cxios_get_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_))
111      ENDIF
112
113      IF (PRESENT(type_)) THEN
114        CALL cxios_get_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_))
115      ENDIF
116
117  END SUBROUTINE xios(get_variablegroup_attr_hdl_)
118
119  SUBROUTINE xios(is_defined_variablegroup_attr)  &
120    ( variablegroup_id, group_ref, name, type )
121
122    IMPLICIT NONE
123      TYPE(txios(variablegroup))  :: variablegroup_hdl
124      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
125      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
126      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
127      LOGICAL, OPTIONAL, INTENT(OUT) :: name
128      LOGICAL(KIND=C_BOOL) :: name_tmp
129      LOGICAL, OPTIONAL, INTENT(OUT) :: type
130      LOGICAL(KIND=C_BOOL) :: type_tmp
131
132      CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl)
133      CALL xios(is_defined_variablegroup_attr_hdl_)   &
134      ( variablegroup_hdl, group_ref, name, type )
135
136  END SUBROUTINE xios(is_defined_variablegroup_attr)
137
138  SUBROUTINE xios(is_defined_variablegroup_attr_hdl)  &
139    ( variablegroup_hdl, group_ref, name, type )
140
141    IMPLICIT NONE
142      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
143      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
144      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
145      LOGICAL, OPTIONAL, INTENT(OUT) :: name
146      LOGICAL(KIND=C_BOOL) :: name_tmp
147      LOGICAL, OPTIONAL, INTENT(OUT) :: type
148      LOGICAL(KIND=C_BOOL) :: type_tmp
149
150      CALL xios(is_defined_variablegroup_attr_hdl_)  &
151      ( variablegroup_hdl, group_ref, name, type )
152
153  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl)
154
155  SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)   &
156    ( variablegroup_hdl, group_ref_, name_, type_ )
157
158    IMPLICIT NONE
159      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
160      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
161      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
162      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
163      LOGICAL(KIND=C_BOOL) :: name__tmp
164      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
165      LOGICAL(KIND=C_BOOL) :: type__tmp
166
167      IF (PRESENT(group_ref_)) THEN
168        group_ref__tmp = cxios_is_defined_variablegroup_group_ref(variablegroup_hdl%daddr)
169        group_ref_ = group_ref__tmp
170      ENDIF
171
172      IF (PRESENT(name_)) THEN
173        name__tmp = cxios_is_defined_variablegroup_name(variablegroup_hdl%daddr)
174        name_ = name__tmp
175      ENDIF
176
177      IF (PRESENT(type_)) THEN
178        type__tmp = cxios_is_defined_variablegroup_type(variablegroup_hdl%daddr)
179        type_ = type__tmp
180      ENDIF
181
182  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)
183
184END MODULE ivariablegroup_attr
Note: See TracBrowser for help on using the repository browser.