aboutsummaryrefslogtreecommitdiff
path: root/Writenumber.f
diff options
context:
space:
mode:
authorJoseph Hunkeler <jhunkeler@gmail.com>2021-08-03 14:49:58 -0400
committerJoseph Hunkeler <jhunkeler@gmail.com>2021-08-03 14:49:58 -0400
commite9293da11f685d17e2002bb06f0fd756845dadfd (patch)
tree0ce16357b71b44bf5af0be717830b361ecc25700 /Writenumber.f
parentaf8fa097905186e0d8ba257e4d70d63fe8901264 (diff)
downloadmoog-e9293da11f685d17e2002bb06f0fd756845dadfd.tar.gz
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.
Diffstat (limited to 'Writenumber.f')
-rwxr-xr-xWritenumber.f2
1 files changed, 1 insertions, 1 deletions
diff --git a/Writenumber.f b/Writenumber.f
index 9ff3a30..66cdb6c 100755
--- a/Writenumber.f
+++ b/Writenumber.f
@@ -6,7 +6,7 @@ c writes it to a character string in a reasonable format
c******************************************************************************
include 'Pstuff.com'
- real*4 xnum, lognum
+ real*8 xnum, lognum
integer numdec