summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-ode/pst-ode.pro
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips/pst-ode/pst-ode.pro')
-rw-r--r--Master/texmf-dist/dvips/pst-ode/pst-ode.pro18
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