source: XIOS/trunk/src/interface/fortran_attr/ireduce_axis_to_scalar_attr.F90 @ 891

Last change on this file since 891 was 891, checked in by mhnguyen, 8 years ago

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation
File size: 5.0 KB
Line 
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)  &
14    ( reduce_axis_to_scalar_id, operation )
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
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
20
21      CALL xios(get_reduce_axis_to_scalar_handle)(reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
22      CALL xios(set_reduce_axis_to_scalar_attr_hdl_)   &
23      ( reduce_axis_to_scalar_hdl, operation )
24
25  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr)
26
27  SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl)  &
28    ( reduce_axis_to_scalar_hdl, operation )
29
30    IMPLICIT NONE
31      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
33
34      CALL xios(set_reduce_axis_to_scalar_attr_hdl_)  &
35      ( reduce_axis_to_scalar_hdl, operation )
36
37  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl)
38
39  SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl_)   &
40    ( reduce_axis_to_scalar_hdl, operation_ )
41
42    IMPLICIT NONE
43      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
45
46      IF (PRESENT(operation_)) THEN
47        CALL cxios_set_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
48      ENDIF
49
50  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl_)
51
52  SUBROUTINE xios(get_reduce_axis_to_scalar_attr)  &
53    ( reduce_axis_to_scalar_id, operation )
54
55    IMPLICIT NONE
56      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl
57      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id
58      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
59
60      CALL xios(get_reduce_axis_to_scalar_handle)(reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
61      CALL xios(get_reduce_axis_to_scalar_attr_hdl_)   &
62      ( reduce_axis_to_scalar_hdl, operation )
63
64  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr)
65
66  SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl)  &
67    ( reduce_axis_to_scalar_hdl, operation )
68
69    IMPLICIT NONE
70      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
71      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
72
73      CALL xios(get_reduce_axis_to_scalar_attr_hdl_)  &
74      ( reduce_axis_to_scalar_hdl, operation )
75
76  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl)
77
78  SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl_)   &
79    ( reduce_axis_to_scalar_hdl, operation_ )
80
81    IMPLICIT NONE
82      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
84
85      IF (PRESENT(operation_)) THEN
86        CALL cxios_get_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_))
87      ENDIF
88
89  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl_)
90
91  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr)  &
92    ( reduce_axis_to_scalar_id, operation )
93
94    IMPLICIT NONE
95      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl
96      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id
97      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
98      LOGICAL(KIND=C_BOOL) :: operation_tmp
99
100      CALL xios(get_reduce_axis_to_scalar_handle)(reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl)
101      CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   &
102      ( reduce_axis_to_scalar_hdl, operation )
103
104  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr)
105
106  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl)  &
107    ( reduce_axis_to_scalar_hdl, operation )
108
109    IMPLICIT NONE
110      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
111      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
112      LOGICAL(KIND=C_BOOL) :: operation_tmp
113
114      CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)  &
115      ( reduce_axis_to_scalar_hdl, operation )
116
117  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl)
118
119  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   &
120    ( reduce_axis_to_scalar_hdl, operation_ )
121
122    IMPLICIT NONE
123      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl
124      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
125      LOGICAL(KIND=C_BOOL) :: operation__tmp
126
127      IF (PRESENT(operation_)) THEN
128        operation__tmp = cxios_is_defined_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl%daddr)
129        operation_ = operation__tmp
130      ENDIF
131
132  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl_)
133
134END MODULE ireduce_axis_to_scalar_attr
Note: See TracBrowser for help on using the repository browser.