source: vendor/nemo/current/NEMOGCM/EXTERNAL/XIOS/src/interface/fortran_attr/iaxisgroup_attr.F90 @ 44

Last change on this file since 44 was 44, checked in by cholod, 12 years ago

Load NEMO_TMP into vendor/nemo/current.

File size: 7.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iaxisgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iaxis
9  USE axisgroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_axisgroup_attr)  &
14    ( axisgroup_id, group_ref, long_name, name, size, standard_name, unit, value )
15   
16    IMPLICIT NONE
17      TYPE(txios(axisgroup))  :: axisgroup_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
22      INTEGER  , OPTIONAL, INTENT(IN) :: size
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
26     
27      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
28      CALL xios(set_axisgroup_attr_hdl_)   &
29      ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value )
30   
31  END SUBROUTINE xios(set_axisgroup_attr)
32 
33  SUBROUTINE xios(set_axisgroup_attr_hdl)  &
34    ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value )
35   
36    IMPLICIT NONE
37      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
41      INTEGER  , OPTIONAL, INTENT(IN) :: size
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
44      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
45     
46      CALL xios(set_axisgroup_attr_hdl_)  &
47      ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value )
48   
49  END SUBROUTINE xios(set_axisgroup_attr_hdl)
50 
51  SUBROUTINE xios(set_axisgroup_attr_hdl_)   &
52    ( axisgroup_hdl, group_ref_, long_name_, name_, size_, standard_name_, unit_, value_ )
53   
54    IMPLICIT NONE
55      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
59      INTEGER  , OPTIONAL, INTENT(IN) :: size_
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
62      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
63     
64      IF (PRESENT(group_ref_)) THEN
65        CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
66      ENDIF
67     
68      IF (PRESENT(long_name_)) THEN
69        CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
70      ENDIF
71     
72      IF (PRESENT(name_)) THEN
73        CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
74      ENDIF
75     
76      IF (PRESENT(size_)) THEN
77        CALL cxios_set_axisgroup_size(axisgroup_hdl%daddr, size_)
78      ENDIF
79     
80      IF (PRESENT(standard_name_)) THEN
81        CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
82      ENDIF
83     
84      IF (PRESENT(unit_)) THEN
85        CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
86      ENDIF
87     
88      IF (PRESENT(value_)) THEN
89        CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
90      ENDIF
91     
92     
93   
94  END SUBROUTINE xios(set_axisgroup_attr_hdl_)
95 
96  SUBROUTINE xios(get_axisgroup_attr)  &
97    ( axisgroup_id, group_ref, long_name, name, size, standard_name, unit, value )
98   
99    IMPLICIT NONE
100      TYPE(txios(axisgroup))  :: axisgroup_hdl
101      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
102      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
103      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
105      INTEGER  , OPTIONAL, INTENT(OUT) :: size
106      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
107      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
108      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
109     
110      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
111      CALL xios(get_axisgroup_attr_hdl_)   &
112      ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value )
113   
114  END SUBROUTINE xios(get_axisgroup_attr)
115 
116  SUBROUTINE xios(get_axisgroup_attr_hdl)  &
117    ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value )
118   
119    IMPLICIT NONE
120      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
121      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
122      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
123      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
124      INTEGER  , OPTIONAL, INTENT(OUT) :: size
125      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
126      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
127      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
128     
129      CALL xios(get_axisgroup_attr_hdl_)  &
130      ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value )
131   
132  END SUBROUTINE xios(get_axisgroup_attr_hdl)
133 
134  SUBROUTINE xios(get_axisgroup_attr_hdl_)   &
135    ( axisgroup_hdl, group_ref_, long_name_, name_, size_, standard_name_, unit_, value_ )
136   
137    IMPLICIT NONE
138      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
139      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
140      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
141      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
142      INTEGER  , OPTIONAL, INTENT(OUT) :: size_
143      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
144      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
145      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
146     
147      IF (PRESENT(group_ref_)) THEN
148        CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
149      ENDIF
150     
151      IF (PRESENT(long_name_)) THEN
152        CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
153      ENDIF
154     
155      IF (PRESENT(name_)) THEN
156        CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
157      ENDIF
158     
159      IF (PRESENT(size_)) THEN
160        CALL cxios_get_axisgroup_size(axisgroup_hdl%daddr, size_)
161      ENDIF
162     
163      IF (PRESENT(standard_name_)) THEN
164        CALL cxios_get_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
165      ENDIF
166     
167      IF (PRESENT(unit_)) THEN
168        CALL cxios_get_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
169      ENDIF
170     
171      IF (PRESENT(value_)) THEN
172        CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
173      ENDIF
174     
175     
176   
177  END SUBROUTINE xios(get_axisgroup_attr_hdl_)
178 
179END MODULE iaxisgroup_attr
Note: See TracBrowser for help on using the repository browser.