From e9293da11f685d17e2002bb06f0fd756845dadfd Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Tue, 3 Aug 2021 14:49:58 -0400 Subject: Changeset: * Simplify Makefile * Accept input file as command line argument * Increase path length to 1024 for all path-related variables * Replace hard-coded path to \*.dat files with environment variable MOOG_DATA * SM needs double precision for several of its functions. Pass REAL8 not REAL4 to those. --- Pstuff.com | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Pstuff.com') diff --git a/Pstuff.com b/Pstuff.com index c261690..155cf52 100755 --- a/Pstuff.com +++ b/Pstuff.com @@ -18,8 +18,8 @@ c****************************************************************************** . half, power, powerrot, powermac, . average, deviate, oldhalf real*4 xobs(500000), yobs(500000) - real*4 xlo, xhi, ylo, yhi, - . origxlo, origxhi, origylo, origyhi, + real*8 xlo, xhi, ylo, yhi + real*8 origxlo, origxhi, origylo, origyhi, . oldxlo, oldxhi, oldylo, oldyhi, . xadd, yadd, ymult, veladd, deltavel, . origxadd, origyadd, origymult, origveladd, -- cgit