SPLINE Function

public function SPLINE(C, H)

Arguments

Type IntentOptional Attributes Name
complex(kind=8), intent(in) :: C(4)
real(kind=8), intent(in) :: H

Return Value complex(kind=8)


Called by

proc~~spline~~CalledByGraph proc~spline SPLINE proc~vspline VSPLINE proc~vspline->proc~spline

Source Code

      FUNCTION SPLINE ( C, H )

!     THIS FUNCTION EVALUATES THE SPLINE AT THE POINT H

      COMPLEX (KIND=8), INTENT(IN) :: C(4)
      REAL (KIND=8), INTENT(IN) :: H
      COMPLEX (KIND=8) :: SPLINE

      SPLINE = C(1) + H * ( C(2) + H * ( C(3) / 2.0 + H * C(4) / 6.0 ) )
      RETURN
      END FUNCTION SPLINE