splintint Function

private function splintint(x0, x1, spl)

Uses

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

  function splintint (x0, x1, spl)
    use mp, only: mp_abort
    implicit none
    real, intent (in) :: x0, x1
    type (spline), intent (in) :: spl
    real :: splintint
    if (.not. spl%valid) then
       call mp_abort('Attempt to use invalid spline in splintint',.true.)
    end if
    splintint = fitp_curvi (x0, x1, spl%n, spl%x, spl%y, spl%y2, spl%tension)
  end function splintint