# | Line 48 | Line 48 | |
---|---|---|
48 | !! spline parameters. | |
49 | !! | |
50 | !! @author Charles F. Vardeman II | |
51 | < | !! @version $Id: interpolation.F90,v 1.4 2006-04-14 21:49:54 gezelter Exp $ |
51 | > | !! @version $Id: interpolation.F90,v 1.5 2006-04-14 21:59:23 gezelter Exp $ |
52 | ||
53 | ||
54 | module INTERPOLATION | |
# | Line 219 | Line 219 | contains | |
219 | cs%dx_i = 1.0_DP / dx | |
220 | ||
221 | return | |
222 | < | end subroutine newSplineWithoutDerivs |
222 | > | end subroutine newSpline |
223 | ||
224 | subroutine deleteSpline(this) | |
225 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |