source: XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_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: 7.4 KB
RevLine 
[786]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iinterpolate_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iinterpolate_domain
9  USE interpolate_domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_interpolate_domain_attr)  &
[891]14    ( interpolate_domain_id, file, order, renormalize )
[786]15
16    IMPLICIT NONE
17      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file
20      INTEGER  , OPTIONAL, INTENT(IN) :: order
[891]21      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
22      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[786]23
[966]24      CALL xios(get_interpolate_domain_handle) &
25      (interpolate_domain_id,interpolate_domain_hdl)
[786]26      CALL xios(set_interpolate_domain_attr_hdl_)   &
[891]27      ( interpolate_domain_hdl, file, order, renormalize )
[786]28
29  END SUBROUTINE xios(set_interpolate_domain_attr)
30
31  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
[891]32    ( interpolate_domain_hdl, file, order, renormalize )
[786]33
34    IMPLICIT NONE
35      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file
37      INTEGER  , OPTIONAL, INTENT(IN) :: order
[891]38      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
39      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[786]40
41      CALL xios(set_interpolate_domain_attr_hdl_)  &
[891]42      ( interpolate_domain_hdl, file, order, renormalize )
[786]43
44  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
45
46  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
[891]47    ( interpolate_domain_hdl, file_, order_, renormalize_ )
[786]48
49    IMPLICIT NONE
50      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file_
52      INTEGER  , OPTIONAL, INTENT(IN) :: order_
[891]53      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_
54      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
[786]55
56      IF (PRESENT(file_)) THEN
[966]57        CALL cxios_set_interpolate_domain_file &
58      (interpolate_domain_hdl%daddr, file_, len(file_))
[786]59      ENDIF
60
61      IF (PRESENT(order_)) THEN
[966]62        CALL cxios_set_interpolate_domain_order &
63      (interpolate_domain_hdl%daddr, order_)
[786]64      ENDIF
65
[891]66      IF (PRESENT(renormalize_)) THEN
67        renormalize__tmp = renormalize_
[966]68        CALL cxios_set_interpolate_domain_renormalize &
69      (interpolate_domain_hdl%daddr, renormalize__tmp)
[891]70      ENDIF
71
[786]72  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
73
74  SUBROUTINE xios(get_interpolate_domain_attr)  &
[891]75    ( interpolate_domain_id, file, order, renormalize )
[786]76
77    IMPLICIT NONE
78      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
79      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
80      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
81      INTEGER  , OPTIONAL, INTENT(OUT) :: order
[891]82      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
83      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[786]84
[966]85      CALL xios(get_interpolate_domain_handle) &
86      (interpolate_domain_id,interpolate_domain_hdl)
[786]87      CALL xios(get_interpolate_domain_attr_hdl_)   &
[891]88      ( interpolate_domain_hdl, file, order, renormalize )
[786]89
90  END SUBROUTINE xios(get_interpolate_domain_attr)
91
92  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
[891]93    ( interpolate_domain_hdl, file, order, renormalize )
[786]94
95    IMPLICIT NONE
96      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
97      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
98      INTEGER  , OPTIONAL, INTENT(OUT) :: order
[891]99      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
100      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[786]101
102      CALL xios(get_interpolate_domain_attr_hdl_)  &
[891]103      ( interpolate_domain_hdl, file, order, renormalize )
[786]104
105  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
106
107  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
[891]108    ( interpolate_domain_hdl, file_, order_, renormalize_ )
[786]109
110    IMPLICIT NONE
111      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file_
113      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
[891]114      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_
115      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
[786]116
117      IF (PRESENT(file_)) THEN
[966]118        CALL cxios_get_interpolate_domain_file &
119      (interpolate_domain_hdl%daddr, file_, len(file_))
[786]120      ENDIF
121
122      IF (PRESENT(order_)) THEN
[966]123        CALL cxios_get_interpolate_domain_order &
124      (interpolate_domain_hdl%daddr, order_)
[786]125      ENDIF
126
[891]127      IF (PRESENT(renormalize_)) THEN
[966]128        CALL cxios_get_interpolate_domain_renormalize &
129      (interpolate_domain_hdl%daddr, renormalize__tmp)
[891]130        renormalize_ = renormalize__tmp
131      ENDIF
132
[786]133  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
134
135  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
[891]136    ( interpolate_domain_id, file, order, renormalize )
[786]137
138    IMPLICIT NONE
139      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
140      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
141      LOGICAL, OPTIONAL, INTENT(OUT) :: file
142      LOGICAL(KIND=C_BOOL) :: file_tmp
143      LOGICAL, OPTIONAL, INTENT(OUT) :: order
144      LOGICAL(KIND=C_BOOL) :: order_tmp
[891]145      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
146      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
[786]147
[966]148      CALL xios(get_interpolate_domain_handle) &
149      (interpolate_domain_id,interpolate_domain_hdl)
[786]150      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
[891]151      ( interpolate_domain_hdl, file, order, renormalize )
[786]152
153  END SUBROUTINE xios(is_defined_interpolate_domain_attr)
154
155  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
[891]156    ( interpolate_domain_hdl, file, order, renormalize )
[786]157
158    IMPLICIT NONE
159      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
160      LOGICAL, OPTIONAL, INTENT(OUT) :: file
161      LOGICAL(KIND=C_BOOL) :: file_tmp
162      LOGICAL, OPTIONAL, INTENT(OUT) :: order
163      LOGICAL(KIND=C_BOOL) :: order_tmp
[891]164      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
165      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
[786]166
167      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
[891]168      ( interpolate_domain_hdl, file, order, renormalize )
[786]169
170  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
171
172  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
[891]173    ( interpolate_domain_hdl, file_, order_, renormalize_ )
[786]174
175    IMPLICIT NONE
176      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
177      LOGICAL, OPTIONAL, INTENT(OUT) :: file_
178      LOGICAL(KIND=C_BOOL) :: file__tmp
179      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
180      LOGICAL(KIND=C_BOOL) :: order__tmp
[891]181      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
182      LOGICAL(KIND=C_BOOL) :: renormalize__tmp
[786]183
184      IF (PRESENT(file_)) THEN
[966]185        file__tmp = cxios_is_defined_interpolate_domain_file &
186      (interpolate_domain_hdl%daddr)
[786]187        file_ = file__tmp
188      ENDIF
189
190      IF (PRESENT(order_)) THEN
[966]191        order__tmp = cxios_is_defined_interpolate_domain_order &
192      (interpolate_domain_hdl%daddr)
[786]193        order_ = order__tmp
194      ENDIF
195
[891]196      IF (PRESENT(renormalize_)) THEN
[966]197        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
198      (interpolate_domain_hdl%daddr)
[891]199        renormalize_ = renormalize__tmp
200      ENDIF
201
[786]202  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
203
204END MODULE iinterpolate_domain_attr
Note: See TracBrowser for help on using the repository browser.