Correct the sizes of character variables msg and msgsent.

This commit is contained in:
Joe Taylor 2018-09-13 12:39:08 -04:00
parent 783bf8c80a
commit aca7273fc3

View File

@ -18,7 +18,7 @@ subroutine foxgen()
parameter (NN=79,ND=58,KK=87,NSPS=4*1920)
parameter (NWAVE=NN*NSPS,NFFT=614400,NH=NFFT/2)
character*40 cmsg
character*22 msg,msgsent
character*37 msg,msgsent
character*87 cbits
character*88 cb88
integer itone(NN)