source: XIOS/trunk/src/interface/fortran_attr/ireduce_domain_to_scalar_attr.F90 @ 981

Last change on this file since 981 was 981, checked in by mhnguyen, 5 years ago

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File size: 5.2 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ireduce_domain_to_scalar_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ireduce_domain_to_scalar
9  USE reduce_domain_to_scalar_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_reduce_domain_to_scalar_attr)  &
14    ( reduce_domain_to_scalar_id, operation )
15
16    IMPLICIT NONE
17      TYPE(txios(reduce_domain_to_scalar))  :: reduce_domain_to_scalar_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_scalar_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
20
21      CALL xios(get_reduce_domain_to_scalar_handle) &
22      (reduce_domain_to_scalar_id,reduce_domain_to_scalar_hdl)
23      CALL xios(set_reduce_domain_to_scalar_attr_hdl_)   &
24      ( reduce_domain_to_scalar_hdl, operation )
25
26  END SUBROUTINE xios(set_reduce_domain_to_scalar_attr)
27
28  SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl)  &
29    ( reduce_domain_to_scalar_hdl, operation )
30
31    IMPLICIT NONE
32      TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
34
35      CALL xios(set_reduce_domain_to_scalar_attr_hdl_)  &
36      ( reduce_domain_to_scalar_hdl, operation )
37
38  END SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl)
39
40  SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl_)   &
41    ( reduce_domain_to_scalar_hdl, operation_ )
42
43    IMPLICIT NONE
44      TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
46
47      IF (PRESENT(operation_)) THEN
48        CALL cxios_set_reduce_domain_to_scalar_operation &
49      (reduce_domain_to_scalar_hdl%daddr, operation_, len(operation_))
50      ENDIF
51
52  END SUBROUTINE xios(set_reduce_domain_to_scalar_attr_hdl_)
53
54  SUBROUTINE xios(get_reduce_domain_to_scalar_attr)  &
55    ( reduce_domain_to_scalar_id, operation )
56
57    IMPLICIT NONE
58      TYPE(txios(reduce_domain_to_scalar))  :: reduce_domain_to_scalar_hdl
59      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_scalar_id
60      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
61
62      CALL xios(get_reduce_domain_to_scalar_handle) &
63      (reduce_domain_to_scalar_id,reduce_domain_to_scalar_hdl)
64      CALL xios(get_reduce_domain_to_scalar_attr_hdl_)   &
65      ( reduce_domain_to_scalar_hdl, operation )
66
67  END SUBROUTINE xios(get_reduce_domain_to_scalar_attr)
68
69  SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl)  &
70    ( reduce_domain_to_scalar_hdl, operation )
71
72    IMPLICIT NONE
73      TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
74      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
75
76      CALL xios(get_reduce_domain_to_scalar_attr_hdl_)  &
77      ( reduce_domain_to_scalar_hdl, operation )
78
79  END SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl)
80
81  SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl_)   &
82    ( reduce_domain_to_scalar_hdl, operation_ )
83
84    IMPLICIT NONE
85      TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
86      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
87
88      IF (PRESENT(operation_)) THEN
89        CALL cxios_get_reduce_domain_to_scalar_operation &
90      (reduce_domain_to_scalar_hdl%daddr, operation_, len(operation_))
91      ENDIF
92
93  END SUBROUTINE xios(get_reduce_domain_to_scalar_attr_hdl_)
94
95  SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr)  &
96    ( reduce_domain_to_scalar_id, operation )
97
98    IMPLICIT NONE
99      TYPE(txios(reduce_domain_to_scalar))  :: reduce_domain_to_scalar_hdl
100      CHARACTER(LEN=*), INTENT(IN) ::reduce_domain_to_scalar_id
101      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
102      LOGICAL(KIND=C_BOOL) :: operation_tmp
103
104      CALL xios(get_reduce_domain_to_scalar_handle) &
105      (reduce_domain_to_scalar_id,reduce_domain_to_scalar_hdl)
106      CALL xios(is_defined_reduce_domain_to_scalar_attr_hdl_)   &
107      ( reduce_domain_to_scalar_hdl, operation )
108
109  END SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr)
110
111  SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl)  &
112    ( reduce_domain_to_scalar_hdl, operation )
113
114    IMPLICIT NONE
115      TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
116      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
117      LOGICAL(KIND=C_BOOL) :: operation_tmp
118
119      CALL xios(is_defined_reduce_domain_to_scalar_attr_hdl_)  &
120      ( reduce_domain_to_scalar_hdl, operation )
121
122  END SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl)
123
124  SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl_)   &
125    ( reduce_domain_to_scalar_hdl, operation_ )
126
127    IMPLICIT NONE
128      TYPE(txios(reduce_domain_to_scalar)) , INTENT(IN) :: reduce_domain_to_scalar_hdl
129      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
130      LOGICAL(KIND=C_BOOL) :: operation__tmp
131
132      IF (PRESENT(operation_)) THEN
133        operation__tmp = cxios_is_defined_reduce_domain_to_scalar_operation &
134      (reduce_domain_to_scalar_hdl%daddr)
135        operation_ = operation__tmp
136      ENDIF
137
138  END SUBROUTINE xios(is_defined_reduce_domain_to_scalar_attr_hdl_)
139
140END MODULE ireduce_domain_to_scalar_attr
Note: See TracBrowser for help on using the repository browser.