ANNNANAANANAANN 
a0 
aa0 
EST(I) = STATION POSITION 
START = 
RISE = 
eo * @ #@ © # # » IC OPTIONS 
REAL IT 9K LAMBDA. MoMA o>MMAX gNUsNoNCGgNO MASS oNL og LAgKAR 
COMMON /CONST/ NCGeECGoPI sDPRaRPD sGRAVTY »sRHO 9K »NUM9MA(120) »CDoTAg 
B(120) sBETAsHW (120) > TZyDRAGgWoXDoToXPoMolTo 
DELTAS 9 TX9 EST (120) »CoROoKAR 9 MMAX (170) » TEST (120) 9 
& 
6 
C 
COMMON /IN/ BM(120) 981 (120) »VELIN 
COMMON /IN2/ NO(120) »XA9XE9HMAXsHMINSA (6) o0EPSE (6) sLAMBDA 
C) 
eeamgeenonedee 
IC(1l) =1 USE WAVE Z DISTANCE IN COMPUTING LIFT COMPONENT 
OF NL AND FL 
INTEGER END 
N(120) »PHALF 
* COMMON JSHIP/ MASS oCINT 9QAoCE 9 CE2 0CE3 yDMU»EDMU 9 E2DMU 9 E3DMU 9 BF 9 BMM y 
NL oFL eo ITAgE (120) 
COMMON/OUT /NPRINT »NPLOT 9 END 
START TIME OF THE RAMP FUNCTION FOR SEA WAVE 
DURATION OF THE RISE FROM ZERO TO ONE OF THE RAMP 
COMMON /ACCEL/ XACCL »BWACL »CGACL BL 
NAMELIST/HSP/A gNPRINT »NPLUT gEND pWo Kh 9 TZ9 TX oXECGoXP oXDy 
DRAG »RGo Ts GAMMA sECU »NCG 9 KAR» ROgLAMBDA pNUM,BETASEST 
9X Ao XE »9HMINgHMAX EPS o VELIN 
DATA A bie 015200015.00001501,,.V001».00001/7 
DATA NPRINT»NPLOTsEND/1 9191/7 
DATA WoBLoTZoTX9XECGyXP9XD 9DRAG»RU»sLAMBDA 9RGo T 9 GAMMA 9 
ECGeNCGoKAR /166 930759640009 00416922659 095629280 00% 
2232590.091,0/ 
“DATA NUM »BETASEST 477520.05 
0.00905 .031255 6062509 0093755 2125005 0156255 6187509621875, 
025000 5.281259 631250 9 6343759 6375005 0406255 6437509 0468755 
0500995531255 656250 9 0593759 6625005 6656255 2687596718759 
0750005. 781255 681250 5 0843759687500» 690625 937509 69687591.000 
1.06250 .1.1250051.1875091 62500091 .312551.3750091.4375, 
1.50051 ,5625 91 662591 668759167591) 0812551087591 09375 52005 
200625 5 2.125 926187592 025920312992 037592643715 9265924562592 06255 
2 68759267592 081259208150 9209315930059 30062553012593,1875, 
30250053.3125 9363759304375 030593056255 3.6255 30687543615 / 
DATA XAsXE ,HMINsHMAXsEPS /0,0920.090025y0l0015/ 
DATA VELIN /19,62/ 
# @# 9 # # # READ IN AND WRITE OUT KUTMER PARAMETERS AND PROGRAM 
OPTIONS 
READ (S,HSP) 
WRITE (69HSP) 
OO 10 I=194 
EPSE(I) = EPS 
# # # # # # SET UP CONSTANTS 
PI = 3.141592653589 
GRAVTY=32.18 
DPR=57 29577951308 
RPD=.01 7453292519 
65 
INPUT 50 
INPUT Sl 
INPUT S2 
INPUT 53 
INPUT 54% 
INPUT 55 
INPUT 56 
INPUT 57 
INPUT 58 
INPUT 59 
INPUT 60 
INPUT 61 
INPUT 62 
INPUT 63 
INPUT 64 
INPUT 65 
INPUT 66 
INPUT 67 
INPUT 68 
INPUT 69 
INPUT 70 
INPUT 71 
INPUT 72 
INPUT 73 
INPUT 74 
INPUT 75 
INPUT 76 
INPUT 77 
INPUT 78 
INPUT 79 
INPUT 80 
INPUT 81 
INPUT 82 
INPUT 83 
INPUT 84 
INPUT 85 
INPUT 86 
INPUT 87 
INPUT 88 
INPUT 89 
INPUT 90 
INPUT 91 
INPUT 92 
INPUT 93 
INPUT 94 
INPUT 95 
INPUT 96 
INPUT 97 
INPUT 98 
INPUT 99 
INPUT100 
INPUT1O1L 
INPUT1O02 
INPUT103 
INPUT104 
INPUT10S 
INPUT106 
INPUT107 
INPUT108 
