From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- math/deboor/progs/prog17.f | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 math/deboor/progs/prog17.f (limited to 'math/deboor/progs/prog17.f') diff --git a/math/deboor/progs/prog17.f b/math/deboor/progs/prog17.f new file mode 100644 index 00000000..1008c3a1 --- /dev/null +++ b/math/deboor/progs/prog17.f @@ -0,0 +1,10 @@ +c main program for example in chapter xv. +c from * a practical guide to splines * by c. de boor +c solution of a second order nonlinear two point boundary value +c problem on (0., 1.) , by collocation with pp functions having 4 +c pieces of order 6 . 2 passes through newnot are to be made, +c without any knots being added. newton iteration is to be stopped +c when two iterates agree to 6 decimal places. + call colloc(0.,1.,4,6,2,0.,1.e-6) + stop + end -- cgit