kcsplIntp.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	kcsplintp (x, y, n, coef, nc, v, f)

Function/Subroutine Documentation

kcsplintp()

subroutine kcsplintp	(	real*8, dimension(n)	x,
		real*8, dimension(n)	y,
		integer	n,
		real*8, dimension(nc,3)	coef,
		integer	nc,
		real*8	v,
		real*8	f
	)

Definition at line 2 of file kcsplIntp.f.

References kdwhereis().

Referenced by csampafintp(), and ksampaf().

      implicit none
!        interpolation by the cubic spline.
      integer n    ! input. size of x, y
      real*8 x(n)  ! input.
      real*8 y(n)  ! input.
      integer  nc  ! input. size of coef(nc,3)
      real*8 coef(nc,3)  ! input. which is an output from
                         !     kcsplCoef
      real*8 v    ! input. argument where the interpolated
                  !        value is requested.
      real*8 f    ! output. obtained interpolated values
!
      integer i
      real*8 v1

      call kdwhereis(v, n, x, 1, i)
      if(i .eq. 0) then 
         i = 1
      elseif(i .eq. n) then
         i = n - 1
      endif
      v1 = v - x(i)
      f = y(i) + 
     *    v1 * (coef(i,1) + v1 * (coef(i,2) + v1 * coef(i,3)))

Here is the call graph for this function:

Here is the caller graph for this function: