Fix up out of date common block sizing

This commit is contained in:
Bill Somerville 2020-10-04 00:45:56 +01:00
parent 45e472979e
commit ead587ee55
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)
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*12 mycall12