anchor.diff:      procedure :: InitInterp => TCubicSpline_InitInterp
       procedure :: Clear => TCubicSpline_Clear
       procedure :: FindNext => TCubicSpline_FindNext
  +    procedure :: FindValue => TCubicSpline_FindValue
       procedure :: LoadState => TCubicSpline_LoadState
       procedure :: SaveState => TCubicSpline_SaveState
       generic :: Init => TCubicSpline_Init, TCubicSpline_InitInt
  
positive.code:     xhi = this%X(llo+1)
  
      end subroutine TCubicSpline_FindNext
  
      subroutine TCubicSpline_LoadState(this,F)
      class(TCubicSpline) :: this
  
negative.code:             call this%Error('Spline x = %f out of range',x)
          end if
      end if
  
      llo=1
      call this%FindNext(x,llo, xlo, xhi)
  
  