diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r-- | Master/texmf-dist/dvips/pst-ode/pst-ode.pro | 18 |
1 files changed, 14 insertions, 4 deletions
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 |