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

Last change on this file since 787 was 787, checked in by mhnguyen, 8 years ago

Changing name of attributes of zoom

Test
+) test_client and test_complete are correct
File size: 4.7 KB
RevLine 
[784]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)  &
[787]14    ( zoom_axis_id, begin, n )
[784]15
16    IMPLICIT NONE
17      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
[787]19      INTEGER  , OPTIONAL, INTENT(IN) :: begin
20      INTEGER  , OPTIONAL, INTENT(IN) :: n
[784]21
22      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl)
23      CALL xios(set_zoom_axis_attr_hdl_)   &
[787]24      ( zoom_axis_hdl, begin, n )
[784]25
26  END SUBROUTINE xios(set_zoom_axis_attr)
27
28  SUBROUTINE xios(set_zoom_axis_attr_hdl)  &
[787]29    ( zoom_axis_hdl, begin, n )
[784]30
31    IMPLICIT NONE
32      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]33      INTEGER  , OPTIONAL, INTENT(IN) :: begin
34      INTEGER  , OPTIONAL, INTENT(IN) :: n
[784]35
36      CALL xios(set_zoom_axis_attr_hdl_)  &
[787]37      ( zoom_axis_hdl, begin, n )
[784]38
39  END SUBROUTINE xios(set_zoom_axis_attr_hdl)
40
41  SUBROUTINE xios(set_zoom_axis_attr_hdl_)   &
[787]42    ( zoom_axis_hdl, begin_, n_ )
[784]43
44    IMPLICIT NONE
45      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]46      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
47      INTEGER  , OPTIONAL, INTENT(IN) :: n_
[784]48
[787]49      IF (PRESENT(begin_)) THEN
50        CALL cxios_set_zoom_axis_begin(zoom_axis_hdl%daddr, begin_)
[784]51      ENDIF
52
[787]53      IF (PRESENT(n_)) THEN
54        CALL cxios_set_zoom_axis_n(zoom_axis_hdl%daddr, n_)
[784]55      ENDIF
56
57  END SUBROUTINE xios(set_zoom_axis_attr_hdl_)
58
59  SUBROUTINE xios(get_zoom_axis_attr)  &
[787]60    ( zoom_axis_id, begin, n )
[784]61
62    IMPLICIT NONE
63      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
64      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
[787]65      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
66      INTEGER  , OPTIONAL, INTENT(OUT) :: n
[784]67
68      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl)
69      CALL xios(get_zoom_axis_attr_hdl_)   &
[787]70      ( zoom_axis_hdl, begin, n )
[784]71
72  END SUBROUTINE xios(get_zoom_axis_attr)
73
74  SUBROUTINE xios(get_zoom_axis_attr_hdl)  &
[787]75    ( zoom_axis_hdl, begin, n )
[784]76
77    IMPLICIT NONE
78      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]79      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
80      INTEGER  , OPTIONAL, INTENT(OUT) :: n
[784]81
82      CALL xios(get_zoom_axis_attr_hdl_)  &
[787]83      ( zoom_axis_hdl, begin, n )
[784]84
85  END SUBROUTINE xios(get_zoom_axis_attr_hdl)
86
87  SUBROUTINE xios(get_zoom_axis_attr_hdl_)   &
[787]88    ( zoom_axis_hdl, begin_, n_ )
[784]89
90    IMPLICIT NONE
91      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]92      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
93      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
[784]94
[787]95      IF (PRESENT(begin_)) THEN
96        CALL cxios_get_zoom_axis_begin(zoom_axis_hdl%daddr, begin_)
[784]97      ENDIF
98
[787]99      IF (PRESENT(n_)) THEN
100        CALL cxios_get_zoom_axis_n(zoom_axis_hdl%daddr, n_)
[784]101      ENDIF
102
103  END SUBROUTINE xios(get_zoom_axis_attr_hdl_)
104
105  SUBROUTINE xios(is_defined_zoom_axis_attr)  &
[787]106    ( zoom_axis_id, begin, n )
[784]107
108    IMPLICIT NONE
109      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
110      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
[787]111      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
112      LOGICAL(KIND=C_BOOL) :: begin_tmp
113      LOGICAL, OPTIONAL, INTENT(OUT) :: n
114      LOGICAL(KIND=C_BOOL) :: n_tmp
[784]115
116      CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl)
117      CALL xios(is_defined_zoom_axis_attr_hdl_)   &
[787]118      ( zoom_axis_hdl, begin, n )
[784]119
120  END SUBROUTINE xios(is_defined_zoom_axis_attr)
121
122  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)  &
[787]123    ( zoom_axis_hdl, begin, n )
[784]124
125    IMPLICIT NONE
126      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]127      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
128      LOGICAL(KIND=C_BOOL) :: begin_tmp
129      LOGICAL, OPTIONAL, INTENT(OUT) :: n
130      LOGICAL(KIND=C_BOOL) :: n_tmp
[784]131
132      CALL xios(is_defined_zoom_axis_attr_hdl_)  &
[787]133      ( zoom_axis_hdl, begin, n )
[784]134
135  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)
136
137  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)   &
[787]138    ( zoom_axis_hdl, begin_, n_ )
[784]139
140    IMPLICIT NONE
141      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]142      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
143      LOGICAL(KIND=C_BOOL) :: begin__tmp
144      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
145      LOGICAL(KIND=C_BOOL) :: n__tmp
[784]146
[787]147      IF (PRESENT(begin_)) THEN
148        begin__tmp = cxios_is_defined_zoom_axis_begin(zoom_axis_hdl%daddr)
149        begin_ = begin__tmp
[784]150      ENDIF
151
[787]152      IF (PRESENT(n_)) THEN
153        n__tmp = cxios_is_defined_zoom_axis_n(zoom_axis_hdl%daddr)
154        n_ = n__tmp
[784]155      ENDIF
156
157  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)
158
159END MODULE izoom_axis_attr
Note: See TracBrowser for help on using the repository browser.