1 SUBROUTINE fsym_invfft (bsubsu, bsubsv)
2 USE vmec_main,
ONLY: rprec, ns, nzeta, ntheta1, ntheta2,
8 REAL(rprec),
DIMENSION(ns*nzeta,ntheta3,0:1),
9 1
INTENT(inout) :: bsubsu, bsubsv
13 INTEGER :: ir, i, jkz, jkr
19 DO i = 1+ntheta2, ntheta1
23 bsubsu(jkz,i,0) = bsubsu(jkr,ir,0) - bsubsu(jkr,ir,1)
24 bsubsv(jkz,i,0) = bsubsv(jkr,ir,0) - bsubsv(jkr,ir,1)
28 bsubsu(:,:ntheta2,0)=bsubsu(:,:ntheta2,0) + bsubsu(:,:ntheta2,1)
29 bsubsv(:,:ntheta2,0)=bsubsv(:,:ntheta2,0) + bsubsv(:,:ntheta2,1)
31 END SUBROUTINE fsym_invfft