summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-ode/pst-ode.pro
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-06-12 21:42:28 +0000
committerKarl Berry <karl@freefriends.org>2017-06-12 21:42:28 +0000
commite05cdf7cbf967b2e104e95aa261dd541ec58ce66 (patch)
treedd2624b54f8ad70c97391968d14948187cdaca7a /Master/texmf-dist/dvips/pst-ode/pst-ode.pro
parent7364d0810e90707eaf61f5269d552abee65ac909 (diff)
pst-ode (12jun17)
git-svn-id: svn://tug.org/texlive/trunk@44575 c570f23f-e606-0410-a88d-b1316a301751
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