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 ++-- Specplot.f | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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 diff --git a/Specplot.f b/Specplot.f index 76992d1..e7a1d7d 100644 --- a/Specplot.f +++ b/Specplot.f @@ -12,8 +12,8 @@ c****************************************************************************** include 'Pstuff.com' include 'Equivs.com' include 'Multistar.com' - real*4 style(1) - real*4 yup,ydown + real*8 style(1) + real*8 yup,ydown integer iflip real*8 inx1,inx2,iny1,iny2 -- cgit