set_default_interpolator Subroutine

public subroutine set_default_interpolator()

Arguments

None

Contents


Source Code

subroutine set_default_interpolator()

! Default interpolator and quality parameter
! DRH's dpnint modified by AG, at 7th order
! (Included in this module with permission)
!
  call set_interpolator(dpnint1,7)

end subroutine set_default_interpolator