splint Function

public function splint(x, spl)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: x
type(spline), intent(in) :: spl

Return Value real


Contents

Source Code

splint

Source Code

  real function splint (x, spl)
    implicit none
    real, intent (in) :: x
    type (spline), intent (in) :: spl
    call handle_spline_error(spl%valid, 'splint')
    splint = fitp_curv2(x, spl%n, spl%x, spl%y, spl%y2, spl%tension)
  end function splint