function EExecL1_A &out_prm1 in_prm1 in_prm2 Att_1 Sg1 Sg2 =
(
	if ((in_prm1==undefined) or (in_prm2==undefined)) then return false;

	TOChisl_Create &Chisl1 (Complex -208.5 0.0) Att5
	TOChisl_Create &Chisl2 (Complex -64 0.0) Att5
	TOChisl_Create &Chisl3 (Complex 305.5 0.0) Att5
	TOChisl_Create &Chisl4 (Complex -11 0.0) Att5
	TOChisl_Create &Chisl5 (Complex 0.93331818 0.0) Att5
	TOChisl_Create &Chisl6 (Complex 0.77889636 0.0) Att5
	TOChisl_Create &Chisl7 (Complex 0.63066609 0.0) Att5
	TOChisl_Create &Chisl8 (Complex 0.54451415 0.0) Att5
	TOChisl_Create &Chisl9 (Complex 0.22894328 0.0) Att5
	TOChisl_Create &Chisl10 (Complex -0.063923897 0.0) Att5
	TOChisl_Create &Chisl11 (Complex -172.5 0.0) Att5
	TOChisl_Create &Chisl12(Complex 201 0.0) Att5
	TOChisl_Create &Chisl13 (Complex -296.5 0.0) Att5
	TOChisl_Create &Chisl14 (Complex 45 0.0) Att5
	TOChisl_Create &Chisl15 (Complex 77.5 0.0) Att5
	TOChisl_Create &Chisl16 (Complex 190 0.0) Att5
	TOChisl_Create &Chisl17 (Complex -272.5 0.0) Att5
	TOChisl_Create &Chisl18 (Complex -30 0.0) Att5
	TOChisl_Create &Chisl19 (Complex 156.5 0.0) Att5
	TOChisl_Create &Chisl20 (Complex 87 0.0) Att5
	TOChisl_Create &Chisl21 (Complex 7.0 0.0) Att5
	TOChisl_Create &Chisl22 (Complex 6.0 0.0) Att5
	TOChisl_Create &Chisl23 (Complex 4.0 0.0) Att5
	TOChisl_Create &Chisl24 (Complex 3.0 0.0) Att5
	TOChisl_Create &Chisl25 (Complex 2.0 0.0) Att5
	TOChisl_Create &Chisl26 (Complex 1.0 0.0) Att5
	TOChisl_Create &Chisl27 (Complex 8.0 0.0) Att5
	TOChisl_Create &Chisl28 (Complex -0.16801366 0.0) Att5
	TOChisl_Create &Chisl29 (Complex 1.2546353 0.0) Att5

	Result=true;
	
	CreateCopy &pr1 in_prm1
    pr1.FAtt=CopyAtt in_prm1.FAtt

	CreateCopy &pin in_prm2
    pin.FAtt=CopyAtt in_prm2.FAtt

	EExecO2 &o20 Chisl1 Chisl2 Chisl3 Chisl4 Att5 1 1 1 1 
	EExecP9 &c2 o20 Chisl5 Att0 1 1 
	EExecP9 &b2 o20 Chisl6 Att0 1 1 
	EExecP9 &a2 o20 Chisl7 Att0 1 1 
	EExecP9 &c1 o20 Chisl8 Att0 1 1 
	EExecP9 &b1 o20 Chisl9 Att0 1 1
	EExecP9 &a1 o20 Chisl10 Att0 1 1 
	EExecP0 &p7 Chisl11 Chisl12 Att0 1 1 
	EExecO2 &o3 Chisl13 Chisl14 Chisl15 Chisl16 Att5 1 1 1 1 
	EExecO2 &o2 Chisl17 Chisl18 Chisl19 Chisl20 Att5 1 1 1 1


	if (Sg1==1) then
	(
		EExecUZ &u2 pr1 Chisl21 Att0 Sg1 1 
		EExecUZ &r2  pr1 Chisl22 Att0 Sg1 1  
		EExecUZ &v1 pr1 Chisl23 Att0 Sg1 1 
		EExecUZ &u1 pr1 Chisl24 Att0 Sg1 1 
		EExecUZ &r1 pr1 Chisl25 Att0 Sg1 1 
		EExecUZ &o1 pr1 Chisl26 Att5 Sg1 1 
		EExecUZ &v2 pr1 Chisl27 Att0 Sg1 1 
	) else
	(
		EExecUZ &u1 pr1 Chisl21 Att0 Sg1 1 
		EExecUZ &r1 pr1 Chisl22 Att0 Sg1 1 
		EExecUZ &v2 pr1 Chisl23 Att0 Sg1 1 
		EExecUZ &u2 pr1 Chisl24 Att0 Sg1 1 
		EExecUZ &r2 pr1 Chisl25 Att0 Sg1 1 
		EExecUZ &o1 pr1 Chisl26 Att5 Sg1 1 
		EExecUZ &v1 pr1 Chisl27 Att0 Sg1 1
	)


	EExecO0 &o9 v2 p7 Att5 1 1 
	EExecP2 &p13 o2 o9 Att0 1 1 
	EExecO0 &o8 u2 p7 Att5 1 1 
	EExecO0 &o7 r2 p7 Att5 1 1 
	EExecO0 &o6 v1 p7 Att5 1 1 
	EExecO0 &o5 u1 p7 Att5 1 1 
	EExecO0 &o4 r1 p7 Att5 1 1 
	EExecO0 &o16 p7 pin Att5 1 Sg2 
	EExecP2 &p12 o2 o8 Att0 1 1 
	EExecP2 &p11 o2 o7 Att0 1 1 
	EExecP2 &p10 o6 o3 Att0 1 1
	EExecP2 &p9 o5 o3 Att0 1 1
	EExecP2 &p8 o4 o3 Att0 1 1
	EExecP2 &p19 o16 o3 Att0 1 1
	EExecO0 &o10 p11 p8 Att5 1 1
	EExecP9 &p15 o10 Chisl28 Att0 1 1
	EExecP9 &p14 o10 Chisl29 Att0 1 1
	EExecO0 &o14 p13 p15 Att5 1 1
	EExecO0 &o17 p14 p19 Att5 1 1
	EExecO0 &o13 p10 p14 Att5 1 1
	EExecO0 &o12 p15 p12 Att5 1 1
	EExecO0 &o11 p9 p14 Att5 1 1
	EExecP2 &p17 o14 o13 Att0 1 1
	EExecP2 &p16 o12 o11 Att0 1 1 
	EExecO0 &o15 p16 p17 Att5 1 1 
	EExecP2 &p20 o17 o15 Att0 1 1 
	EExecO0 &o18 p15 p20 Att5 1 1 
	EExecP2 &p21 o18 o2 Att0 1 1  
	EExecO0 &o19 p7 p21 Att5 1 1 
	EExecP2 &pout o19 o1 Att0 1 1 

	CreateCopy &out_prm1 pout ;
	out_prm1.FAtt=CopyAtt Att_1 

	Result=true;
	return Result;

) -- EExecL1_A

function EExecL1_B &out_prm1 in_prm1 in_prm2 Att_1 Sg1 Sg2 =
(    
	if ((in_prm1==undefined) or (in_prm2==undefined)) then return false;
	TOChisl_Create &Chisl1 (Complex 1.0 0.0) Att5
	TOChisl_Create &Chisl2 (Complex 2.0 0.0) Att5
	TOChisl_Create &Chisl3 (Complex 3.0 0.0) Att5
	TOChisl_Create &Chisl4 (Complex 4.0 0.0) Att5
	TOChisl_Create &Chisl5 (Complex 5.0 0.0) Att5
	TOChisl_Create &Chisl6 (Complex 6.0 0.0) Att5
	TOChisl_Create &Chisl7 (Complex 7.0 0.0) Att5
	TOChisl_Create &Chisl8 (Complex 8.0 0.0) Att5
	TOChisl_Create &Chisl23 (Complex -0.74468254 0.0) Att5
	TOChisl_Create &Chisl24 (Complex 1.6766164 0.0) Att5

    Result=true;
	
	CreateCopy &pr1 in_prm1
    pr1.FAtt=CopyAtt in_prm1.FAtt

	CreateCopy &pin in_prm2
    pin.FAtt=CopyAtt in_prm2.FAtt;


	if (Sg1==1) then
	(
		
		EExecUZ &k pr1 Chisl1 Att5 Sg1 1 
		EExecUZ &r1 pr1 Chisl2 Att0 Sg1 1 
		EExecUZ &u1 pr1 Chisl3 Att0 Sg1 1 
		EExecUZ &v1 pr1 Chisl4 Att0 Sg1 1 
		EExecUZ &l pr1 Chisl5 Att5 Sg1 1 
		EExecUZ &r2 pr1 Chisl6 Att0 Sg1 1 
		EExecUZ &u2 pr1 Chisl7 Att0 Sg1 1 
		EExecUZ &v2 pr1 Chisl8 Att0 Sg1 1 
	) else
	(

		EExecUZ &l pr1 Chisl1 Att5 Sg1 1 
		EExecUZ &r2 pr1 Chisl2 Att0 Sg1 1 
		EExecUZ &u2 pr1 Chisl3 Att0 Sg1 1 
		EExecUZ &v2 pr1 Chisl4 Att0 Sg1 1 
		EExecUZ &k pr1 Chisl5 Att5 Sg1 1 
		EExecUZ &r1 pr1 Chisl6 Att0 Sg1 1 
		EExecUZ &u1 pr1 Chisl7 Att0 Sg1 1 
		EExecUZ &v1 pr1 Chisl8 Att0 Sg1 1 
	)

	EExecGP &g1 pin k Att0 Sg2 1 
	EExecGP &g2 pin l Att0 Sg2 1 
	EExecO0 &o3 r2 r1 Att5 1 1 

	g3_=#(g1, g2) 

	EExecGA  &g3 g3_ Att5 

	EExecG2 &g4 g3 Att0 1
	EExecP9 &p3 o3 Chisl23 Att5 1 1
	EExecP9 &p2 o3 Chisl24 Att0 1 1
	EExecO0 &o9 p2 pin Att5 1 1
	EExecO0 &o7 v2 p3 Att5 1 1
	EExecO0 &o6 u2 p3 Att5 1 1
	EExecO0 &o5 v1 p2 Att5 1 1
	EExecO0 &o4 u1 p2 Att5 1 1
	EExecP2 &p5 o5 o7 Att0 1 1
	EExecP2 &p4 o6 o4 Att0 1 1
	EExecO0 &o8 p4 p5 Att5 1 1
	EExecP2 &p7 o9 o8 Att5 1 1
	EExecO0 &o10 p3 p7 Att5 1 1
	EExecP2 &pp o10 l Att0 1 1
	EExecGCOPY &pout pp g4 Att0 1 1

    CreateCopy &out_prm1 pout
    out_prm1.FAtt=CopyAtt Att_1

) -- EExecL1_B

function EExecL1 &out_prm1 in_prm1 in_prm2 Att_out Sg1 Sg2 =
(
	if ((in_prm1==undefined) or (in_prm2==undefined)) then return false;

	TOChisl_Create &Chisl1 (Complex 1.0 0.0) Att5
	TOChisl_Create &Chisl2 (Complex 5.0 0.0) Att5
	TOChisl_Create &Chisl3 (Complex 2.0 0.0) Att5
	TOChisl_Create &Chisl4 (Complex 3.0 0.0) Att5
	TOChisl_Create &Chisl5 (Complex 4.0 0.0) Att5
	TOChisl_Create &Chisl6 (Complex 6.0 0.0) Att5
	TOChisl_Create &Chisl7 (Complex 7.0 0.0) Att5
	TOChisl_Create &Chisl8 (Complex 8.0 0.0) Att5
	TOChisl_Create &Chisl9 (Complex -1331 0.0) Att5
	TOChisl_Create &Chisl10 (Complex 0.0 0.0) Att5
	TOChisl_Create &Chisl11 (Complex 1845 0.0) Att5
	TOChisl_Create &Chisl12 (Complex 100.0 0.0) Att5

	Result=false;
	
	CreateCopy &pr in_prm1
	pr.FAtt=CopyAtt Att5

	CreateCopy &in1 in_prm2
	in1.FAtt=CopyAtt Att5

	Att_out.Lv=5;

	if (Sg1==1) then
	(

		
		EExecUZ &p1 pr Chisl1 Att5 1 1
		EExecUZ &p2 pr Chisl2 Att5 1 1 
		EExecUZ &o1 pr Chisl3 Att5 1 1 
		EExecUZ &o2 pr Chisl4 Att5 1 1 
		EExecUZ &o3 pr Chisl5 Att5 1 1 
		EExecUZ &o4 pr Chisl6 Att5 1 1 
		EExecUZ &o5 pr Chisl7 Att5 1 1 
		EExecUZ &o6 pr Chisl8 Att5 1 1 
	)
	
	if (Sg1==-1) then
	(


		EExecUZ &p1 pr Chisl2 Att5 1 1 
		EExecUZ &p2 pr Chisl1 Att5 1 1 
		EExecUZ &o1 pr Chisl6 Att5 1 1 
		EExecUZ &o2 pr Chisl7 Att5 1 1 
		EExecUZ &o3 pr Chisl8 Att5 1 1 
		EExecUZ &o4 pr Chisl3 Att5 1 1 
		EExecUZ &o5 pr Chisl4 Att5 1 1 
		EExecUZ &o6 pr Chisl5 Att5 1 1 
	)

	EExecO2  &o7 Chisl9 Chisl10 Chisl11 Chisl12 Att5 1 1 1 1 

	if ((p1.OB=="P") and (p2.OB=="P"))  then
	(


		EExecP2 &p3 o1 o7 Att5 1 1 
		EExecP2 &p4 o2 o7 Att5 1 1 
		EExecP2 &p5 o3 o7 Att5 1 1 
		EExecP2 &p6 o4 o7 Att5 1 1 
		EExecP2 &p7 o5 o7 Att5 1 1 
		EExecP2 &p8  o6 o7 Att5 1 1 
		EExecL0 &pr1 o7 p3 p4 p5 o7 p6 p7 p8 Att5 1 1 1 1 1 1 1 1 
		EExecP2 &p11 o7 in1 Att5 1 Sg2 
		EExecL1 &p12 pr1 p11 Att5 1 1 
		EExecO0 &p13 p2 p12 Att5 1 1 
		EExecGP &g1 p1 in1 Att5 1 Sg2 
		EExecG2 &g2 g1 Att5 1 

		out1_=#(p13,g1,nil,g2)
		EExecG3 &out1 out1_ Att_out1

		CreateCopy &out_prm1 p13
		out_prm1.FAtt=CopyAtt Att_out

		Result=true;
		return Result;

	)

	if ((p1.OB=="P") and (p2.OB=="O")) then
	(
	
		EExecP2 &p3 o1 p2 Att5 1 1 
		EExecP2 &p4 o2 p2 Att5 1 1 
		EExecP2 &p5 o3 p2 Att5 1 1 
		EExecR0 &pr1 p2 p3 p4 p5 p2 o4 o5 o6 Att5 1 1 1 1 1 1 1 1
		EExecP2 &p11 p2 in1 Att5 1 Sg2
		EExecR1 &p12 pr1 p11 Att5 1 1
		EExecGP &g1 p1 in1 Att5 1 Sg2
		EExecG2 &g2 g1 Att5 1
		out1_=#()
		out1_.append p13 g1 nil g2  
		EExecG3 &out1 out1_ Att_out1

		CreateCopy &out_prm1 out1
		out_prm1.FAtt=CopyAtt Att_out

		Result=true;
		return Result;
	)

	if ((p1.OB=="O") and (p2.OB=="P")) then
	(

		EExecP2 &p3 o4 p1 Att5 1 1 
		EExecP2 &p4 o5 p1 Att5 1 1 
		EExecP2 &p5 o6 p1 Att5 1 1 
		EExecR0 &pr1 p1 o1 o2 o3 p1 p3 p4 p5 Att5 1 1 1 1 1 1 1 1 
		EExecR1 &p12 pr1 in1 Att5 1 1 
		EExecO0 &p13 p2 p12 Att5 1 1 

		EExecGP &g1 in1 p1 Att5 1 Sg2

		EExecG2 &g2 g1 Att5 1 

		out1_=#()
		out1_.append p13 g1 nil g2  
		EExecG3 &out1 out1_ Att_out1

		CreateCopy  &out_prm1 out1
		out_prm1.FAtt=CopyAtt Att_out

		Result=true;
		return Result;
	)

	if ((p1.OB=="O") and (p2.OB=="O")) then
	(
		EExecL1_B &out_prm1 pr in1 Att_out Sg1 1 
		if  out_prm1.OB=="$" then
		(
			EExecL1_A &out_prm1 pr in1 Att_out Sg1 1
		)
		Result=true;
		return Result;
		
	)
	Result=true;
	return Result;
) -- EExecL1