Remove temporary stuff.

This commit is contained in:
Steven Franke 2020-06-30 16:06:53 -05:00
parent a8b87f1f3a
commit 5336d959c7

View File

@ -238,8 +238,6 @@ contains
call four2a(r_data,nfft1,1,-1,0) call four2a(r_data,nfft1,1,-1,0)
c_bigfft=cmplx(r_data(1:nfft1+2:2),r_data(2:nfft1+2:2)) c_bigfft=cmplx(r_data(1:nfft1+2:2),r_data(2:nfft1+2:2))
if(iwspr.ne.0.and.iwspr.ne.1.and.iwspr.ne.2) iwspr=1 ! TEMPORARY
iwspr=1
if(iwspr.eq.0) then if(iwspr.eq.0) then
itype1=1 itype1=1
itype2=1 itype2=1