pst-ode (12jun17)

git-svn-id: svn://tug.org/texlive/trunk@44575 c570f23f-e606-0410-a88d-b1316a301751

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