More type conversions

1 files changed, 3 insertions, 3 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))