source: XIOS/trunk/src/interface/fortran_attr/ivariable_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: 5.0 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) &
23      (variable_id,variable_hdl)
24      CALL xios(set_variable_attr_hdl_)   &
25      ( variable_hdl, name, type )
26
27  END SUBROUTINE xios(set_variable_attr)
28
29  SUBROUTINE xios(set_variable_attr_hdl)  &
30    ( variable_hdl, name, type )
31
32    IMPLICIT NONE
33      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
36
37      CALL xios(set_variable_attr_hdl_)  &
38      ( variable_hdl, name, type )
39
40  END SUBROUTINE xios(set_variable_attr_hdl)
41
42  SUBROUTINE xios(set_variable_attr_hdl_)   &
43    ( variable_hdl, name_, type_ )
44
45    IMPLICIT NONE
46      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
49
50      IF (PRESENT(name_)) THEN
51        CALL cxios_set_variable_name &
52      (variable_hdl%daddr, name_, len(name_))
53      ENDIF
54
55      IF (PRESENT(type_)) THEN
56        CALL cxios_set_variable_type &
57      (variable_hdl%daddr, type_, len(type_))
58      ENDIF
59
60  END SUBROUTINE xios(set_variable_attr_hdl_)
61
62  SUBROUTINE xios(get_variable_attr)  &
63    ( variable_id, name, type )
64
65    IMPLICIT NONE
66      TYPE(txios(variable))  :: variable_hdl
67      CHARACTER(LEN=*), INTENT(IN) ::variable_id
68      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
69      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
70
71      CALL xios(get_variable_handle) &
72      (variable_id,variable_hdl)
73      CALL xios(get_variable_attr_hdl_)   &
74      ( variable_hdl, name, type )
75
76  END SUBROUTINE xios(get_variable_attr)
77
78  SUBROUTINE xios(get_variable_attr_hdl)  &
79    ( variable_hdl, name, type )
80
81    IMPLICIT NONE
82      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
84      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
85
86      CALL xios(get_variable_attr_hdl_)  &
87      ( variable_hdl, name, type )
88
89  END SUBROUTINE xios(get_variable_attr_hdl)
90
91  SUBROUTINE xios(get_variable_attr_hdl_)   &
92    ( variable_hdl, name_, type_ )
93
94    IMPLICIT NONE
95      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
96      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
97      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
98
99      IF (PRESENT(name_)) THEN
100        CALL cxios_get_variable_name &
101      (variable_hdl%daddr, name_, len(name_))
102      ENDIF
103
104      IF (PRESENT(type_)) THEN
105        CALL cxios_get_variable_type &
106      (variable_hdl%daddr, type_, len(type_))
107      ENDIF
108
109  END SUBROUTINE xios(get_variable_attr_hdl_)
110
111  SUBROUTINE xios(is_defined_variable_attr)  &
112    ( variable_id, name, type )
113
114    IMPLICIT NONE
115      TYPE(txios(variable))  :: variable_hdl
116      CHARACTER(LEN=*), INTENT(IN) ::variable_id
117      LOGICAL, OPTIONAL, INTENT(OUT) :: name
118      LOGICAL(KIND=C_BOOL) :: name_tmp
119      LOGICAL, OPTIONAL, INTENT(OUT) :: type
120      LOGICAL(KIND=C_BOOL) :: type_tmp
121
122      CALL xios(get_variable_handle) &
123      (variable_id,variable_hdl)
124      CALL xios(is_defined_variable_attr_hdl_)   &
125      ( variable_hdl, name, type )
126
127  END SUBROUTINE xios(is_defined_variable_attr)
128
129  SUBROUTINE xios(is_defined_variable_attr_hdl)  &
130    ( variable_hdl, name, type )
131
132    IMPLICIT NONE
133      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
134      LOGICAL, OPTIONAL, INTENT(OUT) :: name
135      LOGICAL(KIND=C_BOOL) :: name_tmp
136      LOGICAL, OPTIONAL, INTENT(OUT) :: type
137      LOGICAL(KIND=C_BOOL) :: type_tmp
138
139      CALL xios(is_defined_variable_attr_hdl_)  &
140      ( variable_hdl, name, type )
141
142  END SUBROUTINE xios(is_defined_variable_attr_hdl)
143
144  SUBROUTINE xios(is_defined_variable_attr_hdl_)   &
145    ( variable_hdl, name_, type_ )
146
147    IMPLICIT NONE
148      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
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      IF (PRESENT(name_)) THEN
155        name__tmp = cxios_is_defined_variable_name &
156      (variable_hdl%daddr)
157        name_ = name__tmp
158      ENDIF
159
160      IF (PRESENT(type_)) THEN
161        type__tmp = cxios_is_defined_variable_type &
162      (variable_hdl%daddr)
163        type_ = type__tmp
164      ENDIF
165
166  END SUBROUTINE xios(is_defined_variable_attr_hdl_)
167
168END MODULE ivariable_attr
Note: See TracBrowser for help on using the repository browser.