VMEC 8.52
3D Equilibrium solver with nested flux surfaces.
|
Symmetrize forces on restricted \(\theta\) interval \((0 \leq \theta \leq \pi \) so cos, sin integrals can be performed. More...
Go to the source code of this file.
Functions/Subroutines | |
subroutine | symforce (ars, brs, crs, azs, bzs, czs, bls, cls, rcs, zcs, ara, bra, cra, aza, bza, cza, bla, cla, rca, zca) |
Symmetrize forces on restricted \(\theta\) interval \((0 \leq \theta \leq \pi \) so cos, sin integrals can be performed. | |
Symmetrize forces on restricted \(\theta\) interval \((0 \leq \theta \leq \pi \) so cos, sin integrals can be performed.
Definition in file symforce.f90.
subroutine symforce | ( | real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | ars, |
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | brs, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | crs, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | azs, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | bzs, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | czs, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | bls, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | cls, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | rcs, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(inout) | zcs, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | ara, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | bra, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | cra, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | aza, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | bza, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | cza, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | bla, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | cla, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | rca, | ||
real(rprec), dimension(ns*nzeta,ntheta3,0:1), intent(out) | zca ) |
Symmetrize forces on restricted \(\theta\) interval \((0 \leq \theta \leq \pi \) so cos, sin integrals can be performed.
ars | contribution to A^R with even parity (equal to parity of A^R in symmetric case) |
brs | contribution to B^R with odd parity (equal to parity of B^R in symmetric case) |
crs | contribution to C^R with odd parity (equal to parity of C^R in symmetric case) |
azs | contribution to A^Z with odd parity (equal to parity of A^Z in symmetric case) |
bzs | contribution to B^Z with even parity (equal to parity of B^Z in symmetric case) |
czs | contribution to C^Z with even parity (equal to parity of C^Z in symmetric case) |
bls | contribution to B^lambda with even parity (equal to parity of B^lambda in symmetric case) |
cls | contribution to C^lambda with even parity (equal to parity of C^lambda in symmetric case) |
rcs | contribution to F^{R_con} with even parity (equal to parity of F^{R_con} in symmetric case) |
zcs | contribution to F^{Z_con} with odd parity (equal to parity of F^{Z_con} in symmetric case) |
ara | |
bra | |
cra | |
aza | |
bza | |
cza | |
bla | |
cla | |
rca | |
zca |
Definition at line 28 of file symforce.f90.
References vmec_main::ireflect, vmec_main::lthreed, and dbgout::open_dbg_context().
Referenced by funct3d().