Fix point plotting

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