* Nelson 7.0 - standard analysis (default)
* Field Precision LLC, Copyright 2010
* Variables
*   &AR, &AI, &BxzR, &BxzI, &ByrR, &ByrI, &ER, &EI, &PDens
* Stored quantities
*   AzReal or rAThetReal  Real part of the vector potential or
*                         stream function (tesla-m or tesla-m2)
*   AzImag or rAThetImag  Imaginary part of the vector potential or
*                         stream function (tesla-m or tesla-m2)
*   PDensUp  Time-averaged power density (J/m3)
*   PDensDn
* Region quantities
*  $RegAAmp  Amplitude: Az or rAthet of fixed-potential region
*  $RegAPhase  Phase: Az or rAthet of fixed-potential region
*  $RegMu Relative magnetic permeability
*  $RegSigma Electrical conductivity (S/m)
*  $RegCDensR Real part of drive current density (A/m2)
*  $RegCDensI Imaginary part of drive current density (A/m2)
*  $RegArea  Cross-section area of region (m2)

PROGPARAM
  $Mu0 = 1.256637E-6
END

RUNPARAM
  $Freq = 0.0
END

REALTIMEPARAM
END

INTERPOLATION
* Magnetic field lines at 0 deg
  |BLine00| = &AR
* Magnetic field lines at 90 deg
  |BLine90| = &AI @CHS
* Amplitude of magnetic field
  |B| = &BxzR 2 ^ &BxzI 2 ^ + &ByrR 2 ^ + &ByrI 2 ^ + @SQRT
* Amplitude of electric field
  |E| = &ER 2 ^ &EI 2 ^ + @SQRT
* Resistive current density
  |JRes| = &ER 2 ^ &EI 2 ^ + @SQRT $RegSigma *
* Drive current density
  |JDrive| = $RegCDensR 2 ^ $RegCDensI 2 ^ + @SQRT
* Time-averged power density
  PowerDens = &PDens
END

VECTOR
* Magnetic field at 0.0 degrees
  B00 = &BxzR;&ByrR
* Magnetic field at 90.0 degrees
  B90 = &BxzI @CHS;&ByrI @CHS
END

VOLUME
  Power = &PDens
END

SURFACE
END

ENDFILE