4 subroutine ezspline_free1_r8(spline_o, ier)
7 type(EZspline1_r8) spline_o
10 integer,
intent(out) :: ier
16 deallocate(spline_o%x1, stat=ifail)
17 deallocate(spline_o%fspl, stat=ifail)
18 deallocate(spline_o%x1pkg, stat=ifail)
25 end subroutine ezspline_free1_r8
28 subroutine ezspline_free2_r8(spline_o, ier)
31 type(EZspline2_r8) spline_o
34 integer,
intent(out) :: ier
40 deallocate(spline_o%x1, stat=ifail)
41 deallocate(spline_o%x2, stat=ifail)
42 deallocate(spline_o%fspl, stat=ifail)
43 deallocate(spline_o%bcval1min, stat=ifail)
44 deallocate(spline_o%bcval1max, stat=ifail)
45 deallocate(spline_o%bcval2min, stat=ifail)
46 deallocate(spline_o%bcval2max, stat=ifail)
47 deallocate(spline_o%x1pkg, stat=ifail)
48 deallocate(spline_o%x2pkg, stat=ifail)
56 end subroutine ezspline_free2_r8
59 subroutine ezspline_free3_r8(spline_o, ier)
62 type(EZspline3_r8) spline_o
65 integer,
intent(out) :: ier
71 deallocate(spline_o%x1, stat=ifail)
72 deallocate(spline_o%x2, stat=ifail)
73 deallocate(spline_o%x3, stat=ifail)
74 deallocate(spline_o%fspl, stat=ifail)
75 deallocate(spline_o%bcval1min, stat=ifail)
76 deallocate(spline_o%bcval1max, stat=ifail)
77 deallocate(spline_o%bcval2min, stat=ifail)
78 deallocate(spline_o%bcval2max, stat=ifail)
79 deallocate(spline_o%bcval3min, stat=ifail)
80 deallocate(spline_o%bcval3max, stat=ifail)
81 deallocate(spline_o%x1pkg, stat=ifail)
82 deallocate(spline_o%x2pkg, stat=ifail)
83 deallocate(spline_o%x3pkg, stat=ifail)
92 end subroutine ezspline_free3_r8
96 subroutine ezspline_free1_r4(spline_o, ier)
99 type(EZspline1_r4) spline_o
102 integer,
intent(out) :: ier
108 deallocate(spline_o%x1, stat=ifail)
109 deallocate(spline_o%fspl, stat=ifail)
110 deallocate(spline_o%x1pkg, stat=ifail)
117 end subroutine ezspline_free1_r4
120 subroutine ezspline_free2_r4(spline_o, ier)
123 type(EZspline2_r4) spline_o
126 integer,
intent(out) :: ier
132 deallocate(spline_o%x1, stat=ifail)
133 deallocate(spline_o%x2, stat=ifail)
134 deallocate(spline_o%fspl, stat=ifail)
135 deallocate(spline_o%bcval1min, stat=ifail)
136 deallocate(spline_o%bcval1max, stat=ifail)
137 deallocate(spline_o%bcval2min, stat=ifail)
138 deallocate(spline_o%bcval2max, stat=ifail)
139 deallocate(spline_o%x1pkg, stat=ifail)
140 deallocate(spline_o%x2pkg, stat=ifail)
148 end subroutine ezspline_free2_r4
151 subroutine ezspline_free3_r4(spline_o, ier)
154 type(EZspline3_r4) spline_o
157 integer,
intent(out) :: ier
163 deallocate(spline_o%x1, stat=ifail)
164 deallocate(spline_o%x2, stat=ifail)
165 deallocate(spline_o%x3, stat=ifail)
166 deallocate(spline_o%fspl, stat=ifail)
167 deallocate(spline_o%bcval1min, stat=ifail)
168 deallocate(spline_o%bcval1max, stat=ifail)
169 deallocate(spline_o%bcval2min, stat=ifail)
170 deallocate(spline_o%bcval2max, stat=ifail)
171 deallocate(spline_o%bcval3min, stat=ifail)
172 deallocate(spline_o%bcval3max, stat=ifail)
173 deallocate(spline_o%x1pkg, stat=ifail)
174 deallocate(spline_o%x2pkg, stat=ifail)
175 deallocate(spline_o%x3pkg, stat=ifail)
184 end subroutine ezspline_free3_r4