source: XIOS/trunk/src/interface/fortran_attr/ivariable_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: 5.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ivariable_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ivariable
9  USE variable_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_variable_attr)  &
14    ( variable_id, name, type )
15   
16    IMPLICIT NONE
17      TYPE(txios(variable))  :: variable_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::variable_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
21     
22      CALL xios(get_variable_handle)(variable_id,variable_hdl)
23      CALL xios(set_variable_attr_hdl_)   &
24      ( variable_hdl, name, type )
25   
26  END SUBROUTINE xios(set_variable_attr)
27 
28  SUBROUTINE xios(set_variable_attr_hdl)  &
29    ( variable_hdl, name, type )
30   
31    IMPLICIT NONE
32      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
35     
36      CALL xios(set_variable_attr_hdl_)  &
37      ( variable_hdl, name, type )
38   
39  END SUBROUTINE xios(set_variable_attr_hdl)
40 
41  SUBROUTINE xios(set_variable_attr_hdl_)   &
42    ( variable_hdl, name_, type_ )
43   
44    IMPLICIT NONE
45      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
48     
49      IF (PRESENT(name_)) THEN
50        CALL cxios_set_variable_name(variable_hdl%daddr, name_, len(name_))
51      ENDIF
52     
53      IF (PRESENT(type_)) THEN
54        CALL cxios_set_variable_type(variable_hdl%daddr, type_, len(type_))
55      ENDIF
56     
57     
58   
59  END SUBROUTINE xios(set_variable_attr_hdl_)
60 
61  SUBROUTINE xios(get_variable_attr)  &
62    ( variable_id, name, type )
63   
64    IMPLICIT NONE
65      TYPE(txios(variable))  :: variable_hdl
66      CHARACTER(LEN=*), INTENT(IN) ::variable_id
67      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
68      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
69     
70      CALL xios(get_variable_handle)(variable_id,variable_hdl)
71      CALL xios(get_variable_attr_hdl_)   &
72      ( variable_hdl, name, type )
73   
74  END SUBROUTINE xios(get_variable_attr)
75 
76  SUBROUTINE xios(get_variable_attr_hdl)  &
77    ( variable_hdl, name, type )
78   
79    IMPLICIT NONE
80      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
81      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
82      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
83     
84      CALL xios(get_variable_attr_hdl_)  &
85      ( variable_hdl, name, type )
86   
87  END SUBROUTINE xios(get_variable_attr_hdl)
88 
89  SUBROUTINE xios(get_variable_attr_hdl_)   &
90    ( variable_hdl, name_, type_ )
91   
92    IMPLICIT NONE
93      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
94      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
95      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
96     
97      IF (PRESENT(name_)) THEN
98        CALL cxios_get_variable_name(variable_hdl%daddr, name_, len(name_))
99      ENDIF
100     
101      IF (PRESENT(type_)) THEN
102        CALL cxios_get_variable_type(variable_hdl%daddr, type_, len(type_))
103      ENDIF
104     
105     
106   
107  END SUBROUTINE xios(get_variable_attr_hdl_)
108 
109  SUBROUTINE xios(is_defined_variable_attr)  &
110    ( variable_id, name, type )
111   
112    IMPLICIT NONE
113      TYPE(txios(variable))  :: variable_hdl
114      CHARACTER(LEN=*), INTENT(IN) ::variable_id
115      LOGICAL, OPTIONAL, INTENT(OUT) :: name
116      LOGICAL(KIND=C_BOOL) :: name_tmp
117      LOGICAL, OPTIONAL, INTENT(OUT) :: type
118      LOGICAL(KIND=C_BOOL) :: type_tmp
119     
120      CALL xios(get_variable_handle)(variable_id,variable_hdl)
121      CALL xios(is_defined_variable_attr_hdl_)   &
122      ( variable_hdl, name, type )
123   
124  END SUBROUTINE xios(is_defined_variable_attr)
125 
126  SUBROUTINE xios(is_defined_variable_attr_hdl)  &
127    ( variable_hdl, name, type )
128   
129    IMPLICIT NONE
130      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
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(is_defined_variable_attr_hdl_)  &
137      ( variable_hdl, name, type )
138   
139  END SUBROUTINE xios(is_defined_variable_attr_hdl)
140 
141  SUBROUTINE xios(is_defined_variable_attr_hdl_)   &
142    ( variable_hdl, name_, type_ )
143   
144    IMPLICIT NONE
145      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
146      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
147      LOGICAL(KIND=C_BOOL) :: name__tmp
148      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
149      LOGICAL(KIND=C_BOOL) :: type__tmp
150     
151      IF (PRESENT(name_)) THEN
152        name__tmp=cxios_is_defined_variable_name(variable_hdl%daddr)
153        name_=name__tmp
154      ENDIF
155     
156      IF (PRESENT(type_)) THEN
157        type__tmp=cxios_is_defined_variable_type(variable_hdl%daddr)
158        type_=type__tmp
159      ENDIF
160     
161     
162   
163  END SUBROUTINE xios(is_defined_variable_attr_hdl_)
164 
165END MODULE ivariable_attr
Note: See TracBrowser for help on using the repository browser.