46 |
|
!! PURPOSE: Generic Spline interpolation routines. |
47 |
|
!! |
48 |
|
!! @author Charles F. Vardeman II |
49 |
< |
!! @version $Id: interpolation.F90,v 1.8 2006-05-17 15:37:15 gezelter Exp $ |
49 |
> |
!! @version $Id: interpolation.F90,v 1.9 2006-06-06 17:43:28 gezelter Exp $ |
50 |
|
|
51 |
|
|
52 |
|
module interpolation |
252 |
|
|
253 |
|
type(cubicSpline) :: this |
254 |
|
|
255 |
< |
if(associated(this%x)) then |
256 |
< |
deallocate(this%x) |
257 |
< |
this%x => null() |
255 |
> |
if(associated(this%d)) then |
256 |
> |
deallocate(this%d) |
257 |
> |
this%d => null() |
258 |
|
end if |
259 |
|
if(associated(this%c)) then |
260 |
|
deallocate(this%c) |
261 |
|
this%c => null() |
262 |
+ |
end if |
263 |
+ |
if(associated(this%b)) then |
264 |
+ |
deallocate(this%b) |
265 |
+ |
this%b => null() |
266 |
|
end if |
267 |
+ |
if(associated(this%y)) then |
268 |
+ |
deallocate(this%y) |
269 |
+ |
this%y => null() |
270 |
+ |
end if |
271 |
+ |
if(associated(this%x)) then |
272 |
+ |
deallocate(this%x) |
273 |
+ |
this%x => null() |
274 |
+ |
end if |
275 |
|
|
276 |
|
this%n = 0 |
277 |
|
|