source: XIOS/trunk/src/interface/fortran_attr/iinverse_axis_attr.F90 @ 786

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

Generating interface for transformations

+) Update Fortran interface for other transformations
+) Remove some redundant files
+) Update test to new interface

Test
+) On Curie
+) test_client and test_complete are correct
File size: 3.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iinverse_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iinverse_axis
9  USE inverse_axis_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_inverse_axis_attr)  &
14    ( inverse_axis_id )
15
16    IMPLICIT NONE
17      TYPE(txios(inverse_axis))  :: inverse_axis_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id
19
20      CALL xios(get_inverse_axis_handle)(inverse_axis_id,inverse_axis_hdl)
21      CALL xios(set_inverse_axis_attr_hdl_)   &
22      ( inverse_axis_hdl )
23
24  END SUBROUTINE xios(set_inverse_axis_attr)
25
26  SUBROUTINE xios(set_inverse_axis_attr_hdl)  &
27    ( inverse_axis_hdl )
28
29    IMPLICIT NONE
30      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
31
32      CALL xios(set_inverse_axis_attr_hdl_)  &
33      ( inverse_axis_hdl )
34
35  END SUBROUTINE xios(set_inverse_axis_attr_hdl)
36
37  SUBROUTINE xios(set_inverse_axis_attr_hdl_)   &
38    ( inverse_axis_hdl )
39
40    IMPLICIT NONE
41      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
42
43  END SUBROUTINE xios(set_inverse_axis_attr_hdl_)
44
45  SUBROUTINE xios(get_inverse_axis_attr)  &
46    ( inverse_axis_id )
47
48    IMPLICIT NONE
49      TYPE(txios(inverse_axis))  :: inverse_axis_hdl
50      CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id
51
52      CALL xios(get_inverse_axis_handle)(inverse_axis_id,inverse_axis_hdl)
53      CALL xios(get_inverse_axis_attr_hdl_)   &
54      ( inverse_axis_hdl )
55
56  END SUBROUTINE xios(get_inverse_axis_attr)
57
58  SUBROUTINE xios(get_inverse_axis_attr_hdl)  &
59    ( inverse_axis_hdl )
60
61    IMPLICIT NONE
62      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
63
64      CALL xios(get_inverse_axis_attr_hdl_)  &
65      ( inverse_axis_hdl )
66
67  END SUBROUTINE xios(get_inverse_axis_attr_hdl)
68
69  SUBROUTINE xios(get_inverse_axis_attr_hdl_)   &
70    ( inverse_axis_hdl )
71
72    IMPLICIT NONE
73      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
74
75  END SUBROUTINE xios(get_inverse_axis_attr_hdl_)
76
77  SUBROUTINE xios(is_defined_inverse_axis_attr)  &
78    ( inverse_axis_id )
79
80    IMPLICIT NONE
81      TYPE(txios(inverse_axis))  :: inverse_axis_hdl
82      CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id
83
84      CALL xios(get_inverse_axis_handle)(inverse_axis_id,inverse_axis_hdl)
85      CALL xios(is_defined_inverse_axis_attr_hdl_)   &
86      ( inverse_axis_hdl )
87
88  END SUBROUTINE xios(is_defined_inverse_axis_attr)
89
90  SUBROUTINE xios(is_defined_inverse_axis_attr_hdl)  &
91    ( inverse_axis_hdl )
92
93    IMPLICIT NONE
94      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
95
96      CALL xios(is_defined_inverse_axis_attr_hdl_)  &
97      ( inverse_axis_hdl )
98
99  END SUBROUTINE xios(is_defined_inverse_axis_attr_hdl)
100
101  SUBROUTINE xios(is_defined_inverse_axis_attr_hdl_)   &
102    ( inverse_axis_hdl )
103
104    IMPLICIT NONE
105      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
106
107  END SUBROUTINE xios(is_defined_inverse_axis_attr_hdl_)
108
109END MODULE iinverse_axis_attr
Note: See TracBrowser for help on using the repository browser.