More type conversions

2 files changed, 4 insertions, 4 deletions

diff --git a/Equivs.com b/Equivs.com
index 688f36c..b35a79d 100755
--- a/Equivs.com
+++ b/Equivs.com
@@ -9,16 +9,16 @@ c     for synthetic spectra may be accomplished without allocating
 c     large amounts of additional memory for the code.
 c******************************************************************************
 
-      real*4      chunk(100000,5)
+      real*8      chunk(50000,5)
       equivalence (chunk(1,1),a(1,1)),  
      .            (chunk(1,2),a(1,21)),
      .            (chunk(1,3),a(1,41)), 
      .            (chunk(1,4),a(1,61)),
      .            (chunk(1,5),a(1,81))
 
-      real*4      xsyn(100000), dev(100000)
+      real*8      xsyn(50000), dev(50000)
       equivalence (xsyn,kapnu0(1,1)), (dev,kapnu0(1,21))
 
-      real*4      y(100000), z(100000)
+      real*8      y(50000), z(50000)
       equivalence (y,kapnu0(1,41)), (z,kapnu0(1,61))
 
diff --git a/Pstuff.com b/Pstuff.com
index 155cf52..94f9fa9 100755
--- a/Pstuff.com
+++ b/Pstuff.com
@@ -17,7 +17,7 @@ c******************************************************************************
      .              origfwhmgauss, origfwhmloren,
      .              half, power, powerrot, powermac,
      .              average, deviate, oldhalf
-      real*4        xobs(500000), yobs(500000)
+      real*8        xobs(500000), yobs(500000)
       real*8        xlo, xhi, ylo, yhi
       real*8        origxlo, origxhi, origylo, origyhi,
      .              oldxlo, oldxhi, oldylo, oldyhi,