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

Last change on this file since 501 was 501, checked in by ymipsl, 10 years ago

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

YM
  • 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.8 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     
65   
66  END SUBROUTINE xios(set_variablegroup_attr_hdl_)
67 
68  SUBROUTINE xios(get_variablegroup_attr)  &
69    ( variablegroup_id, group_ref, name, type )
70   
71    IMPLICIT NONE
72      TYPE(txios(variablegroup))  :: variablegroup_hdl
73      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
74      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
75      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
76      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
77     
78      CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl)
79      CALL xios(get_variablegroup_attr_hdl_)   &
80      ( variablegroup_hdl, group_ref, name, type )
81   
82  END SUBROUTINE xios(get_variablegroup_attr)
83 
84  SUBROUTINE xios(get_variablegroup_attr_hdl)  &
85    ( variablegroup_hdl, group_ref, name, type )
86   
87    IMPLICIT NONE
88      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
89      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
90      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
91      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
92     
93      CALL xios(get_variablegroup_attr_hdl_)  &
94      ( variablegroup_hdl, group_ref, name, type )
95   
96  END SUBROUTINE xios(get_variablegroup_attr_hdl)
97 
98  SUBROUTINE xios(get_variablegroup_attr_hdl_)   &
99    ( variablegroup_hdl, group_ref_, name_, type_ )
100   
101    IMPLICIT NONE
102      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
103      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
105      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
106     
107      IF (PRESENT(group_ref_)) THEN
108        CALL cxios_get_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_))
109      ENDIF
110     
111      IF (PRESENT(name_)) THEN
112        CALL cxios_get_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_))
113      ENDIF
114     
115      IF (PRESENT(type_)) THEN
116        CALL cxios_get_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_))
117      ENDIF
118     
119     
120   
121  END SUBROUTINE xios(get_variablegroup_attr_hdl_)
122 
123  SUBROUTINE xios(is_defined_variablegroup_attr)  &
124    ( variablegroup_id, group_ref, name, type )
125   
126    IMPLICIT NONE
127      TYPE(txios(variablegroup))  :: variablegroup_hdl
128      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
129      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
130      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
131      LOGICAL, OPTIONAL, INTENT(OUT) :: name
132      LOGICAL(KIND=C_BOOL) :: name_tmp
133      LOGICAL, OPTIONAL, INTENT(OUT) :: type
134      LOGICAL(KIND=C_BOOL) :: type_tmp
135     
136      CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl)
137      CALL xios(is_defined_variablegroup_attr_hdl_)   &
138      ( variablegroup_hdl, group_ref, name, type )
139   
140  END SUBROUTINE xios(is_defined_variablegroup_attr)
141 
142  SUBROUTINE xios(is_defined_variablegroup_attr_hdl)  &
143    ( variablegroup_hdl, group_ref, name, type )
144   
145    IMPLICIT NONE
146      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
147      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
148      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
149      LOGICAL, OPTIONAL, INTENT(OUT) :: name
150      LOGICAL(KIND=C_BOOL) :: name_tmp
151      LOGICAL, OPTIONAL, INTENT(OUT) :: type
152      LOGICAL(KIND=C_BOOL) :: type_tmp
153     
154      CALL xios(is_defined_variablegroup_attr_hdl_)  &
155      ( variablegroup_hdl, group_ref, name, type )
156   
157  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl)
158 
159  SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)   &
160    ( variablegroup_hdl, group_ref_, name_, type_ )
161   
162    IMPLICIT NONE
163      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
164      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
165      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
166      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
167      LOGICAL(KIND=C_BOOL) :: name__tmp
168      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
169      LOGICAL(KIND=C_BOOL) :: type__tmp
170     
171      IF (PRESENT(group_ref_)) THEN
172        group_ref__tmp=cxios_is_defined_variablegroup_group_ref(variablegroup_hdl%daddr)
173        group_ref_=group_ref__tmp
174      ENDIF
175     
176      IF (PRESENT(name_)) THEN
177        name__tmp=cxios_is_defined_variablegroup_name(variablegroup_hdl%daddr)
178        name_=name__tmp
179      ENDIF
180     
181      IF (PRESENT(type_)) THEN
182        type__tmp=cxios_is_defined_variablegroup_type(variablegroup_hdl%daddr)
183        type_=type__tmp
184      ENDIF
185     
186     
187   
188  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)
189 
190END MODULE ivariablegroup_attr
Note: See TracBrowser for help on using the repository browser.