From 783d4baaa19ea3843dffa2ca5654e662d4a5aa8b Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Thu, 12 Aug 2021 11:27:18 -0400 Subject: Fix point plotting --- Abunplot.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Abunplot.f') diff --git a/Abunplot.f b/Abunplot.f index a34e115..ffd56ae 100644 --- a/Abunplot.f +++ b/Abunplot.f @@ -10,9 +10,9 @@ c****************************************************************************** include 'Linex.com' include 'Pstuff.com' include 'Dummy.com' - real*4 ep(2500),abb(2500),logrw(2500),wavepl(2500) + real*8 ep(2500),abb(2500),logrw(2500),wavepl(2500) equivalence (ep,dummy3(1)),(abb,dummy3(1251)),(logrw,dummy3(2501)) - real*4 style(1),ymed + real*8 style(1),ymed character ion*4 -- cgit