periodic_splintint Function

private function periodic_splintint(x0, x1, spl)

FIXME : Add documentation

Arguments

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

Return Value real


Contents

Source Code

periodic_splintint

Source Code

  real function periodic_splintint (x0, x1, spl)
    implicit none
    real, intent (in) :: x0, x1
    type (periodic_spline), intent (in) :: spl
    call handle_spline_error(spl%valid, 'periodic_splintint')
    periodic_splintint = fitp_curvpi(x0, x1, spl%n, spl%x, spl%y, spl%period, spl%y2, spl%tension)
  end function periodic_splintint