source: XIOS/trunk/src/interface/fortran_attr/iduplicate_scalar_to_axis_attr.F90 @ 1542

Last change on this file since 1542 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.
File size: 4.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iduplicate_scalar_to_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iduplicate_scalar_to_axis
9  USE duplicate_scalar_to_axis_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_duplicate_scalar_to_axis_attr)  &
14    ( duplicate_scalar_to_axis_id )
15
16    IMPLICIT NONE
17      TYPE(txios(duplicate_scalar_to_axis))  :: duplicate_scalar_to_axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::duplicate_scalar_to_axis_id
19
20      CALL xios(get_duplicate_scalar_to_axis_handle) &
21      (duplicate_scalar_to_axis_id,duplicate_scalar_to_axis_hdl)
22      CALL xios(set_duplicate_scalar_to_axis_attr_hdl_)   &
23      ( duplicate_scalar_to_axis_hdl )
24
25  END SUBROUTINE xios(set_duplicate_scalar_to_axis_attr)
26
27  SUBROUTINE xios(set_duplicate_scalar_to_axis_attr_hdl)  &
28    ( duplicate_scalar_to_axis_hdl )
29
30    IMPLICIT NONE
31      TYPE(txios(duplicate_scalar_to_axis)) , INTENT(IN) :: duplicate_scalar_to_axis_hdl
32
33      CALL xios(set_duplicate_scalar_to_axis_attr_hdl_)  &
34      ( duplicate_scalar_to_axis_hdl )
35
36  END SUBROUTINE xios(set_duplicate_scalar_to_axis_attr_hdl)
37
38  SUBROUTINE xios(set_duplicate_scalar_to_axis_attr_hdl_)   &
39    ( duplicate_scalar_to_axis_hdl )
40
41    IMPLICIT NONE
42      TYPE(txios(duplicate_scalar_to_axis)) , INTENT(IN) :: duplicate_scalar_to_axis_hdl
43
44  END SUBROUTINE xios(set_duplicate_scalar_to_axis_attr_hdl_)
45
46  SUBROUTINE xios(get_duplicate_scalar_to_axis_attr)  &
47    ( duplicate_scalar_to_axis_id )
48
49    IMPLICIT NONE
50      TYPE(txios(duplicate_scalar_to_axis))  :: duplicate_scalar_to_axis_hdl
51      CHARACTER(LEN=*), INTENT(IN) ::duplicate_scalar_to_axis_id
52
53      CALL xios(get_duplicate_scalar_to_axis_handle) &
54      (duplicate_scalar_to_axis_id,duplicate_scalar_to_axis_hdl)
55      CALL xios(get_duplicate_scalar_to_axis_attr_hdl_)   &
56      ( duplicate_scalar_to_axis_hdl )
57
58  END SUBROUTINE xios(get_duplicate_scalar_to_axis_attr)
59
60  SUBROUTINE xios(get_duplicate_scalar_to_axis_attr_hdl)  &
61    ( duplicate_scalar_to_axis_hdl )
62
63    IMPLICIT NONE
64      TYPE(txios(duplicate_scalar_to_axis)) , INTENT(IN) :: duplicate_scalar_to_axis_hdl
65
66      CALL xios(get_duplicate_scalar_to_axis_attr_hdl_)  &
67      ( duplicate_scalar_to_axis_hdl )
68
69  END SUBROUTINE xios(get_duplicate_scalar_to_axis_attr_hdl)
70
71  SUBROUTINE xios(get_duplicate_scalar_to_axis_attr_hdl_)   &
72    ( duplicate_scalar_to_axis_hdl )
73
74    IMPLICIT NONE
75      TYPE(txios(duplicate_scalar_to_axis)) , INTENT(IN) :: duplicate_scalar_to_axis_hdl
76
77  END SUBROUTINE xios(get_duplicate_scalar_to_axis_attr_hdl_)
78
79  SUBROUTINE xios(is_defined_duplicate_scalar_to_axis_attr)  &
80    ( duplicate_scalar_to_axis_id )
81
82    IMPLICIT NONE
83      TYPE(txios(duplicate_scalar_to_axis))  :: duplicate_scalar_to_axis_hdl
84      CHARACTER(LEN=*), INTENT(IN) ::duplicate_scalar_to_axis_id
85
86      CALL xios(get_duplicate_scalar_to_axis_handle) &
87      (duplicate_scalar_to_axis_id,duplicate_scalar_to_axis_hdl)
88      CALL xios(is_defined_duplicate_scalar_to_axis_attr_hdl_)   &
89      ( duplicate_scalar_to_axis_hdl )
90
91  END SUBROUTINE xios(is_defined_duplicate_scalar_to_axis_attr)
92
93  SUBROUTINE xios(is_defined_duplicate_scalar_to_axis_attr_hdl)  &
94    ( duplicate_scalar_to_axis_hdl )
95
96    IMPLICIT NONE
97      TYPE(txios(duplicate_scalar_to_axis)) , INTENT(IN) :: duplicate_scalar_to_axis_hdl
98
99      CALL xios(is_defined_duplicate_scalar_to_axis_attr_hdl_)  &
100      ( duplicate_scalar_to_axis_hdl )
101
102  END SUBROUTINE xios(is_defined_duplicate_scalar_to_axis_attr_hdl)
103
104  SUBROUTINE xios(is_defined_duplicate_scalar_to_axis_attr_hdl_)   &
105    ( duplicate_scalar_to_axis_hdl )
106
107    IMPLICIT NONE
108      TYPE(txios(duplicate_scalar_to_axis)) , INTENT(IN) :: duplicate_scalar_to_axis_hdl
109
110  END SUBROUTINE xios(is_defined_duplicate_scalar_to_axis_attr_hdl_)
111
112END MODULE iduplicate_scalar_to_axis_attr
Note: See TracBrowser for help on using the repository browser.