splintint Function

private function splintint(x0, x1, spl)

FIXME : Add documentation

Arguments

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

Return Value real


Contents

Source Code

splintint

Source Code

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