1MATRIX M(3,3)$
2M(1,1) := 18*COS(Q3)*COS(Q2)*M30*P**2 - 9*SIN(Q3)**2*P**2*M30
3	  - SIN(Q3)**2*J30Y + SIN(Q3)**2*J30Z + P**2*M10
4	  + 18*P**2*M30 + J10Y + J30Y;
5M(2,1) :=
6M(1,2) := 9*COS(Q3)*COS(Q2)*M30*P**2 - SIN(Q3)**2*J30Y +
7	  SIN(Q3)**2*J30Z - 9*SIN(Q3)**2*M30*P**2 + J30Y +
8	  9*M30*P**2;
9M(3,1) :=
10M(1,3) := -9*SIN(Q3)*SIN(Q2)*M30*P**2;
11M(2,2) := -SIN(Q3)**2*J30Y + SIN(Q3)**2*J30Z - 9*SIN(Q3)**2
12	   *M30*P**2 + J30Y + 9*M30*P**2;
13M(3,2) :=
14M(2,3) := 0;
15M(3,3) := 9*M30*P**2 + J30X;
16
17GENTRANLANG!* := 'FORTRAN$
18FORTLINELEN!* := 72$
19
20GENTRAN LITERAL "C", CR!*,
21		"C", TAB!*, "*** COMPUTE VALUES FOR MATRIX M ***", CR!*,
22		"C", CR!*$
23
24FOR j:=1:3 DO
25    FOR k:=j:3 DO
26	 GENTRAN M(j,k) ::=: M(j,k)$
27
28GENTRAN LITERAL "C", CR!*,
29		"C", TAB!*, "*** COMPUTE VALUES FOR INVERSE MATRIX ***",
30		     CR!*,
31		"C", CR!*$
32
33SHARE var$
34FOR j:=1:3 DO
35    FOR k:=j:3 DO
36	IF M(j,k) NEQ 0 THEN
37	<<
38	    var := TEMPVAR NIL;
39	    MARKVAR var;
40	    M(j,k) := var;
41	    M(k,j) := var;
42	    GENTRAN
43		EVAL(var) := M(EVAL(j),EVAL(k))
44        >>$
45
46COMMENT -- Contents of Matrix M: --$
47M := M;
48
49MATRIX MXINV(3,3)$
50MXINV := M**(-1)$
51
52FOR j:=1:3 DO
53    FOR k:=j:3 DO
54	GENTRAN MXINV(j,k) ::=: MXINV(j,k)$
55
56GENTRAN
57   for j:=1:3 do
58       for k:=j+1:3 do
59       <<
60	   m(k,j) := m(j,k);
61	   mxinv(k,j) := mxinv(j,k)
62        >>$
63
64END$
65