periodic_splint Function

public function periodic_splint(x, spl)

FIXME : Add documentation

Arguments

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

Return Value real


Contents

Source Code

periodic_splint

Source Code

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