From e05cdf7cbf967b2e104e95aa261dd541ec58ce66 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 12 Jun 2017 21:42:28 +0000 Subject: pst-ode (12jun17) git-svn-id: svn://tug.org/texlive/trunk@44575 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-ode/pst-ode.pro | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) (limited to 'Master/texmf-dist/dvips') diff --git a/Master/texmf-dist/dvips/pst-ode/pst-ode.pro b/Master/texmf-dist/dvips/pst-ode/pst-ode.pro index f89123fce99..848ac7d728c 100644 --- a/Master/texmf-dist/dvips/pst-ode/pst-ode.pro +++ b/Master/texmf-dist/dvips/pst-ode/pst-ode.pro @@ -1,7 +1,7 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % PostScript prologue for pst-ode.tex. -% Version 0.7, 2014/10/20 +% Version 0.8, 2017/06/12 % % Alexander Grahn (C) 2012--today % @@ -135,10 +135,20 @@ end %failed step -> reduce step size ode@dict exch pop pshrink exp 0.1 max sfty mul ddt mul /ddt exch def - (-) odeprint ode@dict tcur ddt add tcur end eq { - (error: step size underflow in ODEINT) print quit - } if + ode@dict tcur ddt add tcur end eq { + % error: step size underflow in ODEINT + (!) odeprint + true + }{ + (-) odeprint + false + } ifelse end + % on step size underflow ... + { + pop % remove previous state vector and + exit % leave loop over output steps (pst-ode.tex) + } if ODEINT %repeat step with new ddt }{ %success -- cgit v1.2.3