fsym_fft.f90

Go to the documentation of this file.

 
 
SUBROUTINE fsym_fft (bs,   bu,   bv,   &
                     bs_s, bu_s, bv_s, &
                     bs_a, bu_a, bv_a)
 
  USE vmec_main
 
  IMPLICIT NONE
 
  REAL(rprec), DIMENSION(nzeta,ntheta3),     INTENT(in)  :: bs
  REAL(rprec), DIMENSION(nzeta,ntheta3,0:1), INTENT(in)  :: bu, bv
  REAL(rprec), DIMENSION(nzeta,ntheta2),     INTENT(out) :: bs_s, bs_a
  REAL(rprec), DIMENSION(nzeta,ntheta2,0:1), INTENT(out) :: bu_s, bv_s, bu_a, bv_a
 
  INTEGER :: ir, i, kz, kzr
 
  ! CONTRACTS bs,bu,bv FROM FULL nu INTERVAL TO HALF-U INTERVAL
  ! SO COS,SIN INTEGRALS CAN BE PERFORMED ON HALF-U INTERVAL
  !
  ! bs_s(v,u) = .5*( bs(v,u) - bs(-v,-u) )     ! * SIN(mu - nv)
  ! bs_a(v,u) = .5*( bs(v,u) + bs(-v,-u) )     ! * COS(mu - nv)
  !
  ! bu, bv have opposite parity
 
  DO i = 1, ntheta2
 
     ! -theta
     ir = ntheta1+2-i
     IF (i == 1) ir = 1
 
     DO kz = 1, nzeta
 
        ! -zeta
        ! kzr = ireflect(ns*kz)/ns
        kzr = nzeta+2-kz ! nzeta+1 - (kz-1)
        IF (kz .eq. 1) kzr = 1
 
        bs_a(kz,i)   = cp5*(bs(kz,i)   + bs(kzr,ir))
        bs_s(kz,i)   = cp5*(bs(kz,i)   - bs(kzr,ir))
 
        bu_a(kz,i,:) = cp5*(bu(kz,i,:) - bu(kzr,ir,:))
        bu_s(kz,i,:) = cp5*(bu(kz,i,:) + bu(kzr,ir,:))
 
        bv_a(kz,i,:) = cp5*(bv(kz,i,:) - bv(kzr,ir,:))
        bv_s(kz,i,:) = cp5*(bv(kz,i,:) + bv(kzr,ir,:))
     END DO
  END DO
 
END SUBROUTINE fsym_fft