| 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 |
|
|
