3 arguments
		4 Boolean registers
		10 Integer registers
		11 Real registers
		5 Complex registers
		3 Tensor registers
		Underflow checking off
		Overflow checking off
		Integer overflow checking off
		RuntimeAttributes -> {}

		I0 = A1
		I1 = A2
		R0 = A3
		I8 = 0
		C0 = 0. + 1. I
		I7 = 2
		I2 = 1
		B2 = False
		R1 = 0.
		R5 = 2.
		R7 = -0.5
		Result = T(R2)2

1	I6 = I0
2	I9 = I0
3	I4 = I8
4	T(R2)2 = Table[ I6, I9]
5	I5 = I8
6	goto 53
7	I3 = I8
8	goto 52
9	R9 = R1
10	R10 = - R0
11	R6 = R10
12	R10 = I0
13	R3 = Reciprocal[ R10]
14	R4 = R3
15	R3 = I3
16	R3 = R3 * R4
17	R10 = R5 * R0 * R3
18	R3 = I5
19	R3 = R3 * R4
20	R2 = R5 * R0 * R3
21	R3 = R6 + R2
22	C1 = R3 + R1 I
23	C2 = C0 * C1
24	C1 = R6 + R1 I
25	C3 = R10 + R1 I
26	C4 = R7 + R1 I
27	C1 = C1 + C3 + C4 + C2
28	C2 = C1
29	R10 = I1
30	B3 = R9 < R10 (tol R1)
31	if[ !B3] goto 37
32	R10 = Abs[ C2]
33	R3 = I7
34	B0 = R10 < R3 (tol R1)
35	B1 = B0
36	goto 38
37	B1 = B2
38	if[ !B1] goto 47
39	R10 = R9
40	R3 = I2
41	R2 = R10 + R3
42	R9 = R2
43	C3 = Square[ C2]
44	C3 = C3 + C1
45	C2 = C3
46	goto 29
47	R10 = I1
48	R2 = Reciprocal[ R10]
49	R10 = R9 * R2
50	R2 = Sqrt[ R10]
51	Element[ T(R2)2, I4] = R2
52	if[ ++ I3 < I9] goto 9
53	if[ ++ I5 < I6] goto 7
54	Return