From 8ea7669494d8e94b3e20aa15d38843843622652b Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 15 Jul 2021 11:55:04 -0400 Subject: [PATCH] Correct the datcom sizes in recvpkt() and symspec(). --- map65/libm65/recvpkt.f90 | 2 +- map65/libm65/symspec.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/map65/libm65/recvpkt.f90 b/map65/libm65/recvpkt.f90 index 6b686a245..085b9c05e 100644 --- a/map65/libm65/recvpkt.f90 +++ b/map65/libm65/recvpkt.f90 @@ -11,7 +11,7 @@ subroutine recvpkt(nsam,nblock2,userx_no,k,buf4,buf8,buf16) integer*2 jd(4),kd(2),nblock2 real*4 xd(4),yd(2) real*8 fcenter - common/datcom/dd(4,5760000),ss(4,322,NFFT),savg(4,NFFT),fcenter,nutc,junk(36) + common/datcom/dd(4,5760000),ss(4,322,NFFT),savg(4,NFFT),fcenter,nutc,junk(38) equivalence (kd,d4) equivalence (jd,d8,yd) equivalence (xd,c16) diff --git a/map65/libm65/symspec.f90 b/map65/libm65/symspec.f90 index f7652ca06..2c21940f9 100644 --- a/map65/libm65/symspec.f90 +++ b/map65/libm65/symspec.f90 @@ -22,7 +22,7 @@ subroutine symspec(k,nxpol,ndiskdat,nb,nbslider,idphi,nfsample, & parameter (NFFT=32768) !Length of FFTs real*8 ts,hsym real*8 fcenter - common/datcom/dd(4,5760000),ss(4,322,NFFT),savg(4,NFFT),fcenter,nutc,junk(36) + common/datcom/dd(4,5760000),ss(4,322,NFFT),savg(4,NFFT),fcenter,nutc,junk(38) real*4 ssz5a(NFFT),w(NFFT),w2a(NFFT),w2b(NFFT) complex z,zfac complex zsumx,zsumy