Desciption: Lorentz Polarisation macro

macro LP_Factor(v) { LP_Factor(,v) }
macro LP_Factor(c, v)
{
   #m_argu c
   If_Prm_Eqn_Rpt(c, v, min .0001 max 90)
	scale_pks = (1 + Cos(CeV(c,v) Deg)^2 Cos(2 Th)^2) / (Sin(Th)^2 Cos(Th));
}