VMEC 8.52
3D Equilibrium solver with nested flux surfaces.
Loading...
Searching...
No Matches
symforce.f90 File Reference

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.
 

Detailed Description

Symmetrize forces on restricted \(\theta\) interval \((0 \leq \theta \leq \pi \) so cos, sin integrals can be performed.

Definition in file symforce.f90.

Function/Subroutine Documentation

◆ symforce()

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.

Parameters
arscontribution to A^R with even parity (equal to parity of A^R in symmetric case)
brscontribution to B^R with odd parity (equal to parity of B^R in symmetric case)
crscontribution to C^R with odd parity (equal to parity of C^R in symmetric case)
azscontribution to A^Z with odd parity (equal to parity of A^Z in symmetric case)
bzscontribution to B^Z with even parity (equal to parity of B^Z in symmetric case)
czscontribution to C^Z with even parity (equal to parity of C^Z in symmetric case)
blscontribution to B^lambda with even parity (equal to parity of B^lambda in symmetric case)
clscontribution to C^lambda with even parity (equal to parity of C^lambda in symmetric case)
rcscontribution to F^{R_con} with even parity (equal to parity of F^{R_con} in symmetric case)
zcscontribution 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().

Here is the call graph for this function:
Here is the caller graph for this function: