Updated to r8541

2018-03-05 14:49:51 -05:00
parent a4fa5b9988
commit a32fe6a4dc
200 changed files with 20394 additions and 4957 deletions
@@ -43,9 +43,7 @@ subroutine symspec65(dd,npts,nqsym,savg)
     first=.false.
  endif

-!  do j=1,nhsym
  do j=1,nqsym
-!     i0=(j-1)*hstep
     i0=(j-1)*qstep
     x=fac1*w*dd(i0+1:i0+NFFT)
     call four2a(c,NFFT,1,-1,0)                !r2c forward FFT