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

Last change on this file since 966 was 966, checked in by mhnguyen, 6 years ago

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

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