* RFE3View 3.0 - direct display of complex quantities
* Field Precision LLC, Copyright 2010
* Variables
*   &PhiR, &PhiI, &ExR, &ExI, &EyR, &EyI, &EzR, &EzI, &EMag, &Q[N]
* Stored quantities
*   PhiReal  Real particle of the quasi-static potential (V)
*   PhiImag  Imaginary particle of the quasi-static potential (V)
*   EpsiR    Relative permitivity
*   Sigma    Electrical conductivity (S/m)
*   PDens    Time-averaged power density (J/m3)

HEADER
  ProgramName = RFE3View 3.0
  ManualName = rfe3.pdf
  WebSiteURL = http://www.fieldp.com
  DataSuffix = ROU
  About = RFE3View 3.0;Copyright 2010;Field Precision LLC;Albuquerque, NM USA
  NRecord = 5
  SliceDisplay = 1
  ScanDisplay = 1
  VectorDisplay = 1
  PlaneDisplay = 1
  SurfaceDisplay = 1
END

STOREDQUANT
  PhiR N
  PhiI N
  Epsi E
  Sigma E
  PDens E
END

REGIONQUANT
END

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

RUNPARAM
  $Freq = 0.0
END

REALTIMEPARAM
END

INTERPOLATION

* Potential
  PhiReal = &PhiR
  PhiImag = &PhiI

* Electrical field
  ExReal = &ExR
  ExImag = &ExI
  EyReal = &EyR
  EyImag = &EyI
  EzReal = &EzR
  EzImag = &EzI

* Conductive current density
  JcxReal = &ExR &Q[4] *
  JcxImag = &ExI &Q[4] *
  JcyReal = &EyR &Q[4] *
  JcyImag = &EyI &Q[4] *
  JczReal = &EzR &Q[4] *
  JczImag = &EzI &Q[4] *

* Displacement current density
  JdxReal = &ExI $TwoPi * $Freq * $Epsi0 * &Q[3] *
  JdxImag = &ExR $TwoPi * $Freq * $Epsi0 * &Q[3] *
  JdyReal = &EyI $TwoPi * $Freq * $Epsi0 * &Q[3] *
  JdyImag = &EyR $TwoPi * $Freq * $Epsi0 * &Q[3] *
  JdzReal = &EzI $TwoPi * $Freq * $Epsi0 * &Q[3] *
  JdzImag = &EzR $TwoPi * $Freq * $Epsi0 * &Q[3] *

* Material properties
  EpsiR = &Q[3]
  Sigma = &Q[4]
END

VECTOR
  ERealVect = &ExR;&EyR;&EzR
  EImagVect = &ExI;&EyI;&EzI
END

VOLUME
END

SURFACE
* Real and imaginary parts of the conductive current
  IcReal = &ExR &Q[4] *;&EyR &Q[4] *;&EzR &Q[4] *
  IcImag = &ExI &Q[4] *;&EyI &Q[4] *;&EzI &Q[4] *
* Real and imaginary parts of the displacement current
  IdReal = &ExI $TwoPi * $Freq * $Epsi0 * &Q[3] *;&EyI $TwoPi * $Freq * $Epsi0 * &Q[3] *;&EzI $TwoPi * $Freq * $Epsi0 * &Q[3] *
  IdImag = &ExR $TwoPi * $Freq * $Epsi0 * &Q[3] *;&EyR $TwoPi * $Freq * $Epsi0 * &Q[3] *;&EzR $TwoPi * $Freq * $Epsi0 * &Q[3] *
END

ENDFILE