A(lo2) = MASS*®SKX6#CX6 
A(leo3) = =)A*#SX6 
A(ls2) = oe 
A(l9o3) = 
Al2el)= AIRE) 
A(202) = M+MASS#CX6#CX6 
A(293) = -QA#CX6 
A(391)=A(1,.3) 
A(392)=A(2.3) 
A(393)=SIT*IA 
IF (NPRINT.LT2£3)GO TO 25 
WRITE (6012) (A(I 91) oI=193) 
WRITE (6913) (A(I 92) oL=1 93) 
WRITE (6914) (A(1,3) »I=1,3) 
# @ # @ # INVERT THE A MATRIX 
CALL MATINS (A93939F 91919DETERMsIDo INDEX) 
IF (ID.EQ.2) WRITE (6026) 
FORMAT (*! MATRIX IS SINGULAR my) 
Ceeee#eA ON RETURN WILL CONTAIN THE INVERSE MATRIX 
c*#* 
25 
26 
Cc 
Cc 
Cc 
c## 
10 
12 
13 
14% 
39 
35 
40 
Cc 
I0=2 MATRIX IS SINGULAR 
=1 INVERSE WAS FOUND 
® # # © # COMPUTE THE RIGHT HAND SIDE 
RHS(1) = F(lsl) 
RHS(2) = F(291) 
RHS(3) = F(391) 
RHS(1) = 0.0 
RHS(4) = X(1) 
RHS(5) = X(2) 
RHS(6) = X(3) 
FORMAT (" F(T oh) %93(2X5E12.4)) 
FORMAT ("' A(Tol) "s3(2XsE12.4)) 
FORMAT (" A(T92) "s3(2XsE12.4%)) 
FORMAT ("" A(1593) "93(2XsE1264)) 
IF (NPRINT.LT.2) GO TO 40 
WRITE (6912) (A(Io1) ,IT=193) 
WRITE (6013) (A(1,92) »I=1 93) 
WRITE (6914) (A(I93) 9I=193) 
WRITE (6935) (RHS(I1) »I=1 96) 
FORMAT ("* RHS(I) %96(2X9E1206)) 
CONTINUE 
RETURN 
END 
SUBROUTINE FUNCT (X) 
REAL KAR 
REAL IAs TAAgIPART 9K oKPI o>MAgMASS NL »NCGo IT oMoMMAX oN 
INTEGER END 
DIMENSION IPART (120) C1 (120) »C2(120) 5 
26 (120) oZ7(120) 
0X (6) 9 VMAA (120) 
e@ee@fFf 
11 (120) 902 (120) 903 (120) 904(120) 505 (120) 906(120) » 
QPART (120) 9Z1 (120) 922 (126) 923 (120) 924 (120) 925 (120) » 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
DAUX 
FUNCT 
FUNCT 
FUNCT 
FUNCT 
FUNCT 
FUNCT 
FUNCT 
FUNCT 
FUNCT 
FUNCT 
COMMON /SHIP/ MASSsCINT sQA9CEsCE22CE3sDMU sEDMUsE2DMU 9 E 3DMUs BF s BMM oF UNCT 
NL oFLoTAsE (120) 
* COMMON JCONST/ NCGoECGoPI »DPR»oRPD »sGRAVTY »RHO 9K »NUM9MA (120) »CDo TAs 
e B(120) sBETAsHW (120) 9» TZ9DRAGgWoXDoTs XPoMolTo 
DELTAS o TXoEST (120) sCoROsKARgMMAX(1 0) op TEST (120) » 
e N(120) »>PHALF 
59 
FUNCT 
FUNCT 
FUNCT 
FUNCT 
FUNCT 
