diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r-- | Master/texmf-dist/dvips/pst-ode/pst-ode.pro | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/texmf-dist/dvips/pst-ode/pst-ode.pro b/Master/texmf-dist/dvips/pst-ode/pst-ode.pro index 8ca82b7d962..02ea9f726e5 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.5, 2013/11/11 +% Version 0.6, 2013/11/26 % % Alexander Grahn (C) 2012, 2013 % @@ -104,7 +104,7 @@ tx@odeDict begin %success 3 -1 roll pop % remove previous state vector /tcur tcur ddt add def - pgrow exp 5 min sfty mul ddt mul /ddt exch def + dup 0 ne {pgrow exp 5 min sfty mul ddt mul /ddt exch def}{pop} ifelse %output step completed? tcur tout sub dt mul 0 ge { (o) odeprint /tcur tout def /tout tout dt add def @@ -115,7 +115,7 @@ tx@odeDict begin } bind def /writeresult { %write output vector to file { - 20 string cvs statefile exch writestring + 256 string cvs statefile exch writestring statefile ( ) writestring } forall statefile (\n) writestring |