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, 8 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
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
[966]22      CALL xios(get_zoom_axis_handle) &
23      (zoom_axis_id,zoom_axis_hdl)
[784]24      CALL xios(set_zoom_axis_attr_hdl_)   &
[787]25      ( zoom_axis_hdl, begin, n )
[784]26
27  END SUBROUTINE xios(set_zoom_axis_attr)
28
29  SUBROUTINE xios(set_zoom_axis_attr_hdl)  &
[787]30    ( zoom_axis_hdl, begin, n )
[784]31
32    IMPLICIT NONE
33      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]34      INTEGER  , OPTIONAL, INTENT(IN) :: begin
35      INTEGER  , OPTIONAL, INTENT(IN) :: n
[784]36
37      CALL xios(set_zoom_axis_attr_hdl_)  &
[787]38      ( zoom_axis_hdl, begin, n )
[784]39
40  END SUBROUTINE xios(set_zoom_axis_attr_hdl)
41
42  SUBROUTINE xios(set_zoom_axis_attr_hdl_)   &
[787]43    ( zoom_axis_hdl, begin_, n_ )
[784]44
45    IMPLICIT NONE
46      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]47      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
48      INTEGER  , OPTIONAL, INTENT(IN) :: n_
[784]49
[787]50      IF (PRESENT(begin_)) THEN
[966]51        CALL cxios_set_zoom_axis_begin &
52      (zoom_axis_hdl%daddr, begin_)
[784]53      ENDIF
54
[787]55      IF (PRESENT(n_)) THEN
[966]56        CALL cxios_set_zoom_axis_n &
57      (zoom_axis_hdl%daddr, n_)
[784]58      ENDIF
59
60  END SUBROUTINE xios(set_zoom_axis_attr_hdl_)
61
62  SUBROUTINE xios(get_zoom_axis_attr)  &
[787]63    ( zoom_axis_id, begin, n )
[784]64
65    IMPLICIT NONE
66      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
67      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
[787]68      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
69      INTEGER  , OPTIONAL, INTENT(OUT) :: n
[784]70
[966]71      CALL xios(get_zoom_axis_handle) &
72      (zoom_axis_id,zoom_axis_hdl)
[784]73      CALL xios(get_zoom_axis_attr_hdl_)   &
[787]74      ( zoom_axis_hdl, begin, n )
[784]75
76  END SUBROUTINE xios(get_zoom_axis_attr)
77
78  SUBROUTINE xios(get_zoom_axis_attr_hdl)  &
[787]79    ( zoom_axis_hdl, begin, n )
[784]80
81    IMPLICIT NONE
82      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]83      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
84      INTEGER  , OPTIONAL, INTENT(OUT) :: n
[784]85
86      CALL xios(get_zoom_axis_attr_hdl_)  &
[787]87      ( zoom_axis_hdl, begin, n )
[784]88
89  END SUBROUTINE xios(get_zoom_axis_attr_hdl)
90
91  SUBROUTINE xios(get_zoom_axis_attr_hdl_)   &
[787]92    ( zoom_axis_hdl, begin_, n_ )
[784]93
94    IMPLICIT NONE
95      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]96      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
97      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
[784]98
[787]99      IF (PRESENT(begin_)) THEN
[966]100        CALL cxios_get_zoom_axis_begin &
101      (zoom_axis_hdl%daddr, begin_)
[784]102      ENDIF
103
[787]104      IF (PRESENT(n_)) THEN
[966]105        CALL cxios_get_zoom_axis_n &
106      (zoom_axis_hdl%daddr, n_)
[784]107      ENDIF
108
109  END SUBROUTINE xios(get_zoom_axis_attr_hdl_)
110
111  SUBROUTINE xios(is_defined_zoom_axis_attr)  &
[787]112    ( zoom_axis_id, begin, n )
[784]113
114    IMPLICIT NONE
115      TYPE(txios(zoom_axis))  :: zoom_axis_hdl
116      CHARACTER(LEN=*), INTENT(IN) ::zoom_axis_id
[787]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
[784]121
[966]122      CALL xios(get_zoom_axis_handle) &
123      (zoom_axis_id,zoom_axis_hdl)
[784]124      CALL xios(is_defined_zoom_axis_attr_hdl_)   &
[787]125      ( zoom_axis_hdl, begin, n )
[784]126
127  END SUBROUTINE xios(is_defined_zoom_axis_attr)
128
129  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)  &
[787]130    ( zoom_axis_hdl, begin, n )
[784]131
132    IMPLICIT NONE
133      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]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
[784]138
139      CALL xios(is_defined_zoom_axis_attr_hdl_)  &
[787]140      ( zoom_axis_hdl, begin, n )
[784]141
142  END SUBROUTINE xios(is_defined_zoom_axis_attr_hdl)
143
144  SUBROUTINE xios(is_defined_zoom_axis_attr_hdl_)   &
[787]145    ( zoom_axis_hdl, begin_, n_ )
[784]146
147    IMPLICIT NONE
148      TYPE(txios(zoom_axis)) , INTENT(IN) :: zoom_axis_hdl
[787]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
[784]153
[787]154      IF (PRESENT(begin_)) THEN
[966]155        begin__tmp = cxios_is_defined_zoom_axis_begin &
156      (zoom_axis_hdl%daddr)
[787]157        begin_ = begin__tmp
[784]158      ENDIF
159
[787]160      IF (PRESENT(n_)) THEN
[966]161        n__tmp = cxios_is_defined_zoom_axis_n &
162      (zoom_axis_hdl%daddr)
[787]163        n_ = n__tmp
[784]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.