source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/iinverse_axis_attr.F90 @ 1205

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

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed
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) &
21      (inverse_axis_id,inverse_axis_hdl)
22      CALL xios(set_inverse_axis_attr_hdl_)   &
23      ( inverse_axis_hdl )
24
25  END SUBROUTINE xios(set_inverse_axis_attr)
26
27  SUBROUTINE xios(set_inverse_axis_attr_hdl)  &
28    ( inverse_axis_hdl )
29
30    IMPLICIT NONE
31      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
32
33      CALL xios(set_inverse_axis_attr_hdl_)  &
34      ( inverse_axis_hdl )
35
36  END SUBROUTINE xios(set_inverse_axis_attr_hdl)
37
38  SUBROUTINE xios(set_inverse_axis_attr_hdl_)   &
39    ( inverse_axis_hdl )
40
41    IMPLICIT NONE
42      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
43
44  END SUBROUTINE xios(set_inverse_axis_attr_hdl_)
45
46  SUBROUTINE xios(get_inverse_axis_attr)  &
47    ( inverse_axis_id )
48
49    IMPLICIT NONE
50      TYPE(txios(inverse_axis))  :: inverse_axis_hdl
51      CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id
52
53      CALL xios(get_inverse_axis_handle) &
54      (inverse_axis_id,inverse_axis_hdl)
55      CALL xios(get_inverse_axis_attr_hdl_)   &
56      ( inverse_axis_hdl )
57
58  END SUBROUTINE xios(get_inverse_axis_attr)
59
60  SUBROUTINE xios(get_inverse_axis_attr_hdl)  &
61    ( inverse_axis_hdl )
62
63    IMPLICIT NONE
64      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
65
66      CALL xios(get_inverse_axis_attr_hdl_)  &
67      ( inverse_axis_hdl )
68
69  END SUBROUTINE xios(get_inverse_axis_attr_hdl)
70
71  SUBROUTINE xios(get_inverse_axis_attr_hdl_)   &
72    ( inverse_axis_hdl )
73
74    IMPLICIT NONE
75      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
76
77  END SUBROUTINE xios(get_inverse_axis_attr_hdl_)
78
79  SUBROUTINE xios(is_defined_inverse_axis_attr)  &
80    ( inverse_axis_id )
81
82    IMPLICIT NONE
83      TYPE(txios(inverse_axis))  :: inverse_axis_hdl
84      CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id
85
86      CALL xios(get_inverse_axis_handle) &
87      (inverse_axis_id,inverse_axis_hdl)
88      CALL xios(is_defined_inverse_axis_attr_hdl_)   &
89      ( inverse_axis_hdl )
90
91  END SUBROUTINE xios(is_defined_inverse_axis_attr)
92
93  SUBROUTINE xios(is_defined_inverse_axis_attr_hdl)  &
94    ( inverse_axis_hdl )
95
96    IMPLICIT NONE
97      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
98
99      CALL xios(is_defined_inverse_axis_attr_hdl_)  &
100      ( inverse_axis_hdl )
101
102  END SUBROUTINE xios(is_defined_inverse_axis_attr_hdl)
103
104  SUBROUTINE xios(is_defined_inverse_axis_attr_hdl_)   &
105    ( inverse_axis_hdl )
106
107    IMPLICIT NONE
108      TYPE(txios(inverse_axis)) , INTENT(IN) :: inverse_axis_hdl
109
110  END SUBROUTINE xios(is_defined_inverse_axis_attr_hdl_)
111
112END MODULE iinverse_axis_attr
Note: See TracBrowser for help on using the repository browser.