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

c3e6974f · thomas.forbriger · ffdb8fed · c3e6974f
Commit c3e6974f authored Jun 08, 2020 by thomas.forbriger
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/ts/wf/smoos.f src/ts/wf/smoos.f +1 -1

No files found.
--- a/src/ts/wf/smoos.f
+++ b/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)