* Nelson 7.0 - amplitude and phase display
* 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
END

RUNPARAM
  $Freq = 0.0
END

REALTIMEPARAM
END

INTERPOLATION
  BxAmp/BzAmp = &BxzR &BxzR * &BxzI &BxzI * + @SQRT
  BxPhase/BzPhase = &BxzI &BxzR / @ATAN $RadToDeg *
  ByAmp/BrAmp = &ByrR &ByrR * &ByrI &ByrI * + @SQRT
  ByPhase/BrPhase = &ByrI &ByrR / @ATAN $RadToDeg *
END

VECTOR
END

VOLUME
END

SURFACE
END

ENDFILE