Fix up out of date common block sizing

This commit is contained in:
Bill Somerville 2020-10-04 00:45:56 +01:00
parent 58d4c684ce
commit 203e0da5d6
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F

View File

@ -1,7 +1,7 @@
subroutine foxgen_wrap(msg40,msgbits,itone) subroutine foxgen_wrap(msg40,msgbits,itone)
parameter (NN=79,ND=58,KK=77,NSPS=4*1920) parameter (NN=79,ND=58,KK=77,NSPS=4*1920)
parameter (NWAVE=(160+2)*134400) !the biggest waveform we generate (FST4-1800) parameter (NWAVE=(160+2)*134400*4) !the biggest waveform we generate (FST4-1800)
character*40 msg40,cmsg character*40 msg40,cmsg
character*12 mycall12 character*12 mycall12