source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/izoom_axis_attr.F90 @ 1205

Last change on this file since 1205 was 1205, checked in by yushan, 7 years ago

branch merged with trunk @1200
File size: 5.9 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)  &
[1205]14    ( zoom_axis_id, begin, index, 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
[1205]20      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
[787]21      INTEGER  , OPTIONAL, INTENT(IN) :: n
[784]22
[966]23      CALL xios(get_zoom_axis_handle) &
24      (zoom_axis_id,zoom_axis_hdl)
[784]25      CALL xios(set_zoom_axis_attr_hdl_)   &
[1205]26      ( zoom_axis_hdl, begin, index, n )
[784]27
28  END SUBROUTINE xios(set_zoom_axis_attr)
29
30  SUBROUTINE xios(set_zoom_axis_attr_hdl)  &
[1205]31    ( zoom_axis_hdl, begin, index, n )
[784]32
33    IMPLICIT NONE
34      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]35      INTEGER  , OPTIONAL, INTENT(IN) :: begin
[1205]36      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
[787]37      INTEGER  , OPTIONAL, INTENT(IN) :: n
[784]38
39      CALL xios(set_zoom_axis_attr_hdl_)  &
[1205]40      ( zoom_axis_hdl, begin, index, n )
[784]41
42  END SUBROUTINE xios(set_zoom_axis_attr_hdl)
43
44  SUBROUTINE xios(set_zoom_axis_attr_hdl_)   &
[1205]45    ( zoom_axis_hdl, begin_, index_, n_ )
[784]46
47    IMPLICIT NONE
48      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]49      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
[1205]50      INTEGER  , OPTIONAL, INTENT(IN) :: index_(:)
[787]51      INTEGER  , OPTIONAL, INTENT(IN) :: n_
[784]52
[787]53      IF (PRESENT(begin_)) THEN
[966]54        CALL cxios_set_zoom_axis_begin &
55      (zoom_axis_hdl%daddr, begin_)
[784]56      ENDIF
57
[1205]58      IF (PRESENT(index_)) THEN
59        CALL cxios_set_zoom_axis_index &
60      (zoom_axis_hdl%daddr, index_, SHAPE(index_))
61      ENDIF
62
[787]63      IF (PRESENT(n_)) THEN
[966]64        CALL cxios_set_zoom_axis_n &
65      (zoom_axis_hdl%daddr, n_)
[784]66      ENDIF
67
68  END SUBROUTINE xios(set_zoom_axis_attr_hdl_)
69
70  SUBROUTINE xios(get_zoom_axis_attr)  &
[1205]71    ( zoom_axis_id, begin, index, n )
[784]72
73    IMPLICIT NONE
74      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
75      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
[787]76      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
[1205]77      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
[787]78      INTEGER  , OPTIONAL, INTENT(OUT) :: n
[784]79
[966]80      CALL xios(get_zoom_axis_handle) &
81      (zoom_axis_id,zoom_axis_hdl)
[784]82      CALL xios(get_zoom_axis_attr_hdl_)   &
[1205]83      ( zoom_axis_hdl, begin, index, n )
[784]84
85  END SUBROUTINE xios(get_zoom_axis_attr)
86
87  SUBROUTINE xios(get_zoom_axis_attr_hdl)  &
[1205]88    ( zoom_axis_hdl, begin, index, n )
[784]89
90    IMPLICIT NONE
91      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]92      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
[1205]93      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
[787]94      INTEGER  , OPTIONAL, INTENT(OUT) :: n
[784]95
96      CALL xios(get_zoom_axis_attr_hdl_)  &
[1205]97      ( zoom_axis_hdl, begin, index, n )
[784]98
99  END SUBROUTINE xios(get_zoom_axis_attr_hdl)
100
101  SUBROUTINE xios(get_zoom_axis_attr_hdl_)   &
[1205]102    ( zoom_axis_hdl, begin_, index_, n_ )
[784]103
104    IMPLICIT NONE
105      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]106      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
[1205]107      INTEGER  , OPTIONAL, INTENT(OUT) :: index_(:)
[787]108      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
[784]109
[787]110      IF (PRESENT(begin_)) THEN
[966]111        CALL cxios_get_zoom_axis_begin &
112      (zoom_axis_hdl%daddr, begin_)
[784]113      ENDIF
114
[1205]115      IF (PRESENT(index_)) THEN
116        CALL cxios_get_zoom_axis_index &
117      (zoom_axis_hdl%daddr, index_, SHAPE(index_))
118      ENDIF
119
[787]120      IF (PRESENT(n_)) THEN
[966]121        CALL cxios_get_zoom_axis_n &
122      (zoom_axis_hdl%daddr, n_)
[784]123      ENDIF
124
125  END SUBROUTINE xios(get_zoom_axis_attr_hdl_)
126
127  SUBROUTINE xios(is_defined_zoom_axis_attr)  &
[1205]128    ( zoom_axis_id, begin, index, n )
[784]129
130    IMPLICIT NONE
131      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
132      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
[787]133      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
134      LOGICAL(KIND=C_BOOL) :: begin_tmp
[1205]135      LOGICAL, OPTIONAL, INTENT(OUT) :: index
136      LOGICAL(KIND=C_BOOL) :: index_tmp
[787]137      LOGICAL, OPTIONAL, INTENT(OUT) :: n
138      LOGICAL(KIND=C_BOOL) :: n_tmp
[784]139
[966]140      CALL xios(get_zoom_axis_handle) &
141      (zoom_axis_id,zoom_axis_hdl)
[784]142      CALL xios(is_defined_zoom_axis_attr_hdl_)   &
[1205]143      ( zoom_axis_hdl, begin, index, n )
[784]144
145  END SUBROUTINE xios(is_defined_zoom_axis_attr)
146
147  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)  &
[1205]148    ( zoom_axis_hdl, begin, index, n )
[784]149
150    IMPLICIT NONE
151      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]152      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
153      LOGICAL(KIND=C_BOOL) :: begin_tmp
[1205]154      LOGICAL, OPTIONAL, INTENT(OUT) :: index
155      LOGICAL(KIND=C_BOOL) :: index_tmp
[787]156      LOGICAL, OPTIONAL, INTENT(OUT) :: n
157      LOGICAL(KIND=C_BOOL) :: n_tmp
[784]158
159      CALL xios(is_defined_zoom_axis_attr_hdl_)  &
[1205]160      ( zoom_axis_hdl, begin, index, n )
[784]161
162  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)
163
164  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)   &
[1205]165    ( zoom_axis_hdl, begin_, index_, n_ )
[784]166
167    IMPLICIT NONE
168      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]169      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
170      LOGICAL(KIND=C_BOOL) :: begin__tmp
[1205]171      LOGICAL, OPTIONAL, INTENT(OUT) :: index_
172      LOGICAL(KIND=C_BOOL) :: index__tmp
[787]173      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
174      LOGICAL(KIND=C_BOOL) :: n__tmp
[784]175
[787]176      IF (PRESENT(begin_)) THEN
[966]177        begin__tmp = cxios_is_defined_zoom_axis_begin &
178      (zoom_axis_hdl%daddr)
[787]179        begin_ = begin__tmp
[784]180      ENDIF
181
[1205]182      IF (PRESENT(index_)) THEN
183        index__tmp = cxios_is_defined_zoom_axis_index &
184      (zoom_axis_hdl%daddr)
185        index_ = index__tmp
186      ENDIF
187
[787]188      IF (PRESENT(n_)) THEN
[966]189        n__tmp = cxios_is_defined_zoom_axis_n &
190      (zoom_axis_hdl%daddr)
[787]191        n_ = n__tmp
[784]192      ENDIF
193
194  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)
195
196END MODULE izoom_axis_attr
Note: See TracBrowser for help on using the repository browser.