ts/wf [TASK]: increase array size in smoos.f

src/ts/wf/smoos.f

@@ -39,7 +39,7 @@ c files
       parameter (luin=10, luout=11)
 c data
       integer msamp, nsamp, i
-      parameter(msamp=66000)
+      parameter(msamp=200000)
 c calculation
       integer nfac, npow, powsamp, newpowsamp
       complex*16 spect(msamp)