lil 
20 
CONTINUE 
RETURN 
END 
SUBROUTINE COMPUT (xX) 
OIMENSION x (6) 
REAL KAR KPI 
REAL NLoMASSoNCGoMoIToITAagK oMAoMMAX oN 
INTEGER END 
COMMON /SHIP/ MASS sCINTsGAsCE sCE2CE3, DMU »EDMU,E2DMU 9 E 3DMU 9 BF » BMM, COMPUT 
NL oFLoIAsE (120) 
~ COMMON JCONST/ NCGeECGoPI sDPReRPD »GRAVTY oRHO 9K »NUM MA (120) oCDo TAs 
ry B(120) sBETAgHW(120) 5 TZ 9>DRAGoWoXDoToXPoMolTo 
¢ DELTAS + TXoEST (120) 6CoROsKARyMMAX (1 0) sTEST(120) » 
N (120) »PHALF 
*COMMON/OUT /NPRINTs NPLOT »END 
COMMON /TEPMS/ TloT20T30T4%oTS9T69T79T8 
COMMON /WAVE/ R(120) »PT (120) » ZMAy ZWMAgEMAS 5 ZZWMA 9 ZWEMA y ZOWMA g 
E2MAZ»ZWDOT (120) 
* COMMON JTEST/ VMA 
Cx6 = COUS(x(6)) 
SxX6 = SIN(X(6)) 
wO = KeC 
CONS] = RO#WO#WOFCX6 
CONS2 = (KPT#RHO#PTH/TA) /CX6 
CONS3 = RO#WOFKECX6eSKE 
CONSS = RO#WOFK#®CX6#CX6 
TERMI = X(1) #®CX6 
TERM2 = X(2)#SX6 
UVNUM = (X(1) #CX6=(X (2) —ZWDOT (NUM) ) #SX6) # 
© (X (1) ®SX6—X (3) #E (NUM) + (X (2) -ZWDOT (NUM) ) #CX6) 
ZMA = ZMA#K (3) #SK6 
ZZWMA = ZZWMA*X (3) #SX6 
ZWMA = ZwWMA#®CUNS1 
EMAS = EMAS#CONS] 
DMU = DMU*CONS2 
EDMU = EDMU#CONS2 
CE = CE*CD#RHO 
CE2 = CE2#cD#RHO 
E2DMU = E2NMU*CONS3 
E30MU = E3DMU*CONS3 
ZWEMA = ZWEMA®CUNS4 
Z2WMA = Z2WMA*CONS4 
Tl = QA#X (3) #(TERMI-TERM2) 
Tl = Tl + 2ZWMA = EMAS 
T2 = EDMU 
T3 = CE2 
T4 = MA(NUM) ®E (NUM) ®UVNUM + E2MAZ + E3DMU - Z2WMA + BMM 
NL = Tl + T2 + T3 + TG + BMM 
TS = MASS®X (3) # (TERM2=TERM1) 
T5 = 15 + 2WMA = ZMA 
T6 = -DMU 
17 = -CE 
63 
FUNCT19S 
FUNCT196 
FUNCT197 
COMPUT 
COMPUT 
COMPUT 
COMPUT 
COMPUT 
COMPUT 
oorouft wh 
COMPUT 
COMPUT10 
ComMPUTI1 
COMPUT 12 
COMPUT13 
COMPUT 14 
COMPUT15S 
COMPUT16 
COMPUT17 
COMPUT18 
COMPUT19 
COMPUT20 
ComPuT21 
COMPUT22 
COMPUT23 
COMPUT 24 
COMPUT2S 
COMPUT26 
COMPUT27 
COMPUT28 
COMPUT29 
COMPUT30 
COMPUT31 
COMPUT32 
COMPUT33 
COMPUT 34 
COMPUT3S 
COMPUT 36 
COMPUT37 
COMPUT38 
COMPUT39 
COMPUT4O 
COMPUT41 
COMPUT42 
COMPUT43 
COMPUT4&4 
COMPUT4&S 
COMPUT46 
COMPUT47 
COMPUT48 
COMPUT49 
COMPUTSO 
COMPUTS1 
COMPUTS2 
COMPUTS3 
COMPUTS4S 
COMPUTSS 
COMPUTS6 
COMPUTS7 
