source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/ireduce_axis_to_scalar_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago

Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain

File size: 6.5 KB
RevLine 
[891]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ireduce_axis_to_scalar_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ireduce_axis_to_scalar
9  USE reduce_axis_to_scalar_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_reduce_axis_to_scalar_attr)  &
[2338]14    ( reduce_axis_to_scalar_id, local, operation )
[891]15
16    IMPLICIT NONE
17      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id
[2338]19      LOGICAL  , OPTIONAL, INTENT(IN) :: local
20      LOGICAL (KIND=C_BOOL) :: local_tmp
[891]21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
22
[966]23      CALL xios(get_reduce_axis_to_scalar_handle) &
24      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
[891]25      CALL xios(set_reduce_axis_to_scalar_attr_hdl_)   &
[2338]26      ( reduce_axis_to_scalar_hdl, local, operation )
[891]27
28  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr)
29
30  SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl)  &
[2338]31    ( reduce_axis_to_scalar_hdl, local, operation )
[891]32
33    IMPLICIT NONE
34      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
[2338]35      LOGICAL  , OPTIONAL, INTENT(IN) :: local
36      LOGICAL (KIND=C_BOOL) :: local_tmp
[891]37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
38
39      CALL xios(set_reduce_axis_to_scalar_attr_hdl_)  &
[2338]40      ( reduce_axis_to_scalar_hdl, local, operation )
[891]41
42  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl)
43
44  SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl_)   &
[2338]45    ( reduce_axis_to_scalar_hdl, local_, operation_ )
[891]46
47    IMPLICIT NONE
48      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
[2338]49      LOGICAL  , OPTIONAL, INTENT(IN) :: local_
50      LOGICAL (KIND=C_BOOL) :: local__tmp
[891]51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
52
[2338]53      IF (PRESENT(local_)) THEN
54        local__tmp = local_
55        CALL cxios_set_reduce_axis_to_scalar_local &
56      (reduce_axis_to_scalar_hdl%daddr, local__tmp)
57      ENDIF
58
[891]59      IF (PRESENT(operation_)) THEN
[966]60        CALL cxios_set_reduce_axis_to_scalar_operation &
61      (reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
[891]62      ENDIF
63
64  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl_)
65
66  SUBROUTINE xios(get_reduce_axis_to_scalar_attr)  &
[2338]67    ( reduce_axis_to_scalar_id, local, operation )
[891]68
69    IMPLICIT NONE
70      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl
71      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id
[2338]72      LOGICAL  , OPTIONAL, INTENT(OUT) :: local
73      LOGICAL (KIND=C_BOOL) :: local_tmp
[891]74      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
75
[966]76      CALL xios(get_reduce_axis_to_scalar_handle) &
77      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
[891]78      CALL xios(get_reduce_axis_to_scalar_attr_hdl_)   &
[2338]79      ( reduce_axis_to_scalar_hdl, local, operation )
[891]80
81  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr)
82
83  SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl)  &
[2338]84    ( reduce_axis_to_scalar_hdl, local, operation )
[891]85
86    IMPLICIT NONE
87      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
[2338]88      LOGICAL  , OPTIONAL, INTENT(OUT) :: local
89      LOGICAL (KIND=C_BOOL) :: local_tmp
[891]90      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
91
92      CALL xios(get_reduce_axis_to_scalar_attr_hdl_)  &
[2338]93      ( reduce_axis_to_scalar_hdl, local, operation )
[891]94
95  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl)
96
97  SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl_)   &
[2338]98    ( reduce_axis_to_scalar_hdl, local_, operation_ )
[891]99
100    IMPLICIT NONE
101      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
[2338]102      LOGICAL  , OPTIONAL, INTENT(OUT) :: local_
103      LOGICAL (KIND=C_BOOL) :: local__tmp
[891]104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
105
[2338]106      IF (PRESENT(local_)) THEN
107        CALL cxios_get_reduce_axis_to_scalar_local &
108      (reduce_axis_to_scalar_hdl%daddr, local__tmp)
109        local_ = local__tmp
110      ENDIF
111
[891]112      IF (PRESENT(operation_)) THEN
[966]113        CALL cxios_get_reduce_axis_to_scalar_operation &
114      (reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
[891]115      ENDIF
116
117  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl_)
118
119  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr)  &
[2338]120    ( reduce_axis_to_scalar_id, local, operation )
[891]121
122    IMPLICIT NONE
123      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl
124      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id
[2338]125      LOGICAL, OPTIONAL, INTENT(OUT) :: local
126      LOGICAL(KIND=C_BOOL) :: local_tmp
[891]127      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
128      LOGICAL(KIND=C_BOOL) :: operation_tmp
129
[966]130      CALL xios(get_reduce_axis_to_scalar_handle) &
131      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
[891]132      CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   &
[2338]133      ( reduce_axis_to_scalar_hdl, local, operation )
[891]134
135  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr)
136
137  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl)  &
[2338]138    ( reduce_axis_to_scalar_hdl, local, operation )
[891]139
140    IMPLICIT NONE
141      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
[2338]142      LOGICAL, OPTIONAL, INTENT(OUT) :: local
143      LOGICAL(KIND=C_BOOL) :: local_tmp
[891]144      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
145      LOGICAL(KIND=C_BOOL) :: operation_tmp
146
147      CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)  &
[2338]148      ( reduce_axis_to_scalar_hdl, local, operation )
[891]149
150  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl)
151
152  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   &
[2338]153    ( reduce_axis_to_scalar_hdl, local_, operation_ )
[891]154
155    IMPLICIT NONE
156      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
[2338]157      LOGICAL, OPTIONAL, INTENT(OUT) :: local_
158      LOGICAL(KIND=C_BOOL) :: local__tmp
[891]159      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
160      LOGICAL(KIND=C_BOOL) :: operation__tmp
161
[2338]162      IF (PRESENT(local_)) THEN
163        local__tmp = cxios_is_defined_reduce_axis_to_scalar_local &
164      (reduce_axis_to_scalar_hdl%daddr)
165        local_ = local__tmp
166      ENDIF
167
[891]168      IF (PRESENT(operation_)) THEN
[966]169        operation__tmp = cxios_is_defined_reduce_axis_to_scalar_operation &
170      (reduce_axis_to_scalar_hdl%daddr)
[891]171        operation_ = operation__tmp
172      ENDIF
173
174  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl_)
175
176END MODULE ireduce_axis_to_scalar_attr
Note: See TracBrowser for help on using the repository browser.