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

Last change on this file since 966 was 966, checked in by mhnguyen, 4 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

File size: 4.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE izoom_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE izoom_axis
9  USE zoom_axis_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_zoom_axis_attr)  &
14    ( zoom_axis_id, begin, n )
15
16    IMPLICIT NONE
17      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
19      INTEGER  , OPTIONAL, INTENT(IN) :: begin
20      INTEGER  , OPTIONAL, INTENT(IN) :: n
21
22      CALL xios(get_zoom_axis_handle) &
23      (zoom_axis_id,zoom_axis_hdl)
24      CALL xios(set_zoom_axis_attr_hdl_)   &
25      ( zoom_axis_hdl, begin, n )
26
27  END SUBROUTINE xios(set_zoom_axis_attr)
28
29  SUBROUTINE xios(set_zoom_axis_attr_hdl)  &
30    ( zoom_axis_hdl, begin, n )
31
32    IMPLICIT NONE
33      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
34      INTEGER  , OPTIONAL, INTENT(IN) :: begin
35      INTEGER  , OPTIONAL, INTENT(IN) :: n
36
37      CALL xios(set_zoom_axis_attr_hdl_)  &
38      ( zoom_axis_hdl, begin, n )
39
40  END SUBROUTINE xios(set_zoom_axis_attr_hdl)
41
42  SUBROUTINE xios(set_zoom_axis_attr_hdl_)   &
43    ( zoom_axis_hdl, begin_, n_ )
44
45    IMPLICIT NONE
46      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
47      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
48      INTEGER  , OPTIONAL, INTENT(IN) :: n_
49
50      IF (PRESENT(begin_)) THEN
51        CALL cxios_set_zoom_axis_begin &
52      (zoom_axis_hdl%daddr, begin_)
53      ENDIF
54
55      IF (PRESENT(n_)) THEN
56        CALL cxios_set_zoom_axis_n &
57      (zoom_axis_hdl%daddr, n_)
58      ENDIF
59
60  END SUBROUTINE xios(set_zoom_axis_attr_hdl_)
61
62  SUBROUTINE xios(get_zoom_axis_attr)  &
63    ( zoom_axis_id, begin, n )
64
65    IMPLICIT NONE
66      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
67      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
68      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
69      INTEGER  , OPTIONAL, INTENT(OUT) :: n
70
71      CALL xios(get_zoom_axis_handle) &
72      (zoom_axis_id,zoom_axis_hdl)
73      CALL xios(get_zoom_axis_attr_hdl_)   &
74      ( zoom_axis_hdl, begin, n )
75
76  END SUBROUTINE xios(get_zoom_axis_attr)
77
78  SUBROUTINE xios(get_zoom_axis_attr_hdl)  &
79    ( zoom_axis_hdl, begin, n )
80
81    IMPLICIT NONE
82      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
83      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
84      INTEGER  , OPTIONAL, INTENT(OUT) :: n
85
86      CALL xios(get_zoom_axis_attr_hdl_)  &
87      ( zoom_axis_hdl, begin, n )
88
89  END SUBROUTINE xios(get_zoom_axis_attr_hdl)
90
91  SUBROUTINE xios(get_zoom_axis_attr_hdl_)   &
92    ( zoom_axis_hdl, begin_, n_ )
93
94    IMPLICIT NONE
95      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
96      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
97      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
98
99      IF (PRESENT(begin_)) THEN
100        CALL cxios_get_zoom_axis_begin &
101      (zoom_axis_hdl%daddr, begin_)
102      ENDIF
103
104      IF (PRESENT(n_)) THEN
105        CALL cxios_get_zoom_axis_n &
106      (zoom_axis_hdl%daddr, n_)
107      ENDIF
108
109  END SUBROUTINE xios(get_zoom_axis_attr_hdl_)
110
111  SUBROUTINE xios(is_defined_zoom_axis_attr)  &
112    ( zoom_axis_id, begin, n )
113
114    IMPLICIT NONE
115      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
116      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
117      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
118      LOGICAL(KIND=C_BOOL) :: begin_tmp
119      LOGICAL, OPTIONAL, INTENT(OUT) :: n
120      LOGICAL(KIND=C_BOOL) :: n_tmp
121
122      CALL xios(get_zoom_axis_handle) &
123      (zoom_axis_id,zoom_axis_hdl)
124      CALL xios(is_defined_zoom_axis_attr_hdl_)   &
125      ( zoom_axis_hdl, begin, n )
126
127  END SUBROUTINE xios(is_defined_zoom_axis_attr)
128
129  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)  &
130    ( zoom_axis_hdl, begin, n )
131
132    IMPLICIT NONE
133      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
134      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
135      LOGICAL(KIND=C_BOOL) :: begin_tmp
136      LOGICAL, OPTIONAL, INTENT(OUT) :: n
137      LOGICAL(KIND=C_BOOL) :: n_tmp
138
139      CALL xios(is_defined_zoom_axis_attr_hdl_)  &
140      ( zoom_axis_hdl, begin, n )
141
142  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)
143
144  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)   &
145    ( zoom_axis_hdl, begin_, n_ )
146
147    IMPLICIT NONE
148      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
149      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
150      LOGICAL(KIND=C_BOOL) :: begin__tmp
151      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
152      LOGICAL(KIND=C_BOOL) :: n__tmp
153
154      IF (PRESENT(begin_)) THEN
155        begin__tmp = cxios_is_defined_zoom_axis_begin &
156      (zoom_axis_hdl%daddr)
157        begin_ = begin__tmp
158      ENDIF
159
160      IF (PRESENT(n_)) THEN
161        n__tmp = cxios_is_defined_zoom_axis_n &
162      (zoom_axis_hdl%daddr)
163        n_ = n__tmp
164      ENDIF
165
166  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)
167
168END MODULE izoom_axis_attr
Note: See TracBrowser for help on using the repository browser.