* RFE2 7.0 - amplitude and phase display
* Field Precision LLC, Copyright 2010
*   &PhiR, &PhiI, &ExzR, &ExzI, &EyrR, &EyrI, &EMag, &PDens
* Stored quantities
* Stored quantities
*   PhiReal  Real part of the quasi-static potential (V)
*   PhiImag  Imaginary part of the quasi-static potential (V)
*   PDens    Time-averaged power density (J/m3)
* Region quantities
*  $RegSigma
*  $RegEpsi
*  $RegPotAmp
*  $RegPotPhase

PROGPARAM
  $Epsi0 = 8.854187E-12
  $TwoPi = 6.283185
  $RadToDeg = 57.2958
END

RUNPARAM
  $Freq = 0.0
END

REALTIMEPARAM
END

INTERPOLATION
  PhiAmp = &PhiR &PhiR * &PhiI &PhiI * + @SQRT
  PhiPhase = &PhiI &PhiR / @ATAN $RadToDeg *
  ExAmp/EzAmp = &ExzR &ExzR * &ExzI &ExzI * + @SQRT
  ExPhase/EzPhase = &ExzI &ExzR / @ATAN $RadToDeg *
  EyAmp/ErAmp = &EyrR &EyrR * &EyrI &EyrI * + @SQRT
  EyPhase/ErPhase = &EyrI &EyrR / @ATAN $RadToDeg *
END

VECTOR
END

VOLUME
END

SURFACE
END

ENDFILE