diff --git a/lib/test_q65.f90 b/lib/test_q65.f90 index d8c1f0763..7cc832054 100644 --- a/lib/test_q65.f90 +++ b/lib/test_q65.f90 @@ -116,11 +116,19 @@ program test_q65 call sec0(1,tdec) open(10,file='junk',status='unknown') n=0 + snrsum=0. + snrsq=0. + nsum=0 do iline=1,9999 read(10,'(a71)',end=10) line if(index(line,'