7 SUBROUTINE flip_theta(rmn, zmn, lmn)
9 USE vmec_params,
ONLY: ntmax, rcc, rss, zsc, zcs, &
14 REAL(rprec),
DIMENSION(0:ntor,0:mpol1,ntmax), &
15 INTENT(inout) :: rmn, zmn
16 REAL(rprec),
DIMENSION(0:ntor,0:mpol1,ntmax), &
17 INTENT(inout),
OPTIONAL :: lmn
32 rmn(n,m,rcc) = mul1*rmn(n,m,rcc)
33 zmn(n,m,zsc) =-mul1*zmn(n,m,zsc)
34 IF (l_lmn) lmn(n,m,zsc) =-mul1*lmn(n,m,zsc)
36 rmn(n,m,rss) =-mul1*rmn(n,m,rss)
37 zmn(n,m,zcs) = mul1*zmn(n,m,zcs)
38 IF (l_lmn) lmn(n,m,zcs) = mul1*lmn(n,m,zcs)
41 rmn(n,m,rsc) =-mul1*rmn(n,m,rsc)
42 zmn(n,m,zcc) = mul1*zmn(n,m,zcc)
43 IF (l_lmn) lmn(n,m,zcc) = mul1*lmn(n,m,zcc)
45 rmn(n,m,rcs) = mul1*rmn(n,m,rcs)
46 zmn(n,m,zss) =-mul1*zmn(n,m,zss)
47 IF (l_lmn) lmn(n,m,zss) =-mul1*lmn(n,m,zss)
56 END SUBROUTINE flip_theta
58 END MODULE init_geometry