Cc 
AaAaqanNaanan 
e # 
a 
200 
7e0 
Ao0 
NF UN=2 
* # # # # # SET UP MIN AND MAX LIMITS FOR PLOT 
FMIN(L)=FX(Lol) 
FMIN(2)=FX(201]) 
FMAX(1)=FX(191) 
FMAX(2)=FK(201) 
# ® # # # » SET UP MIN AND MAX LIMIMTS FOR HITCH AND HEAVE RATIO 
FMNP=F xX (2 oNWAVE) 
FMXP=F X (2 »NWAVE) 
FMNH=F x (1 oNWAVE) 
FMXH=F X (1 »NWAVE) 
00 200 I=1,18 
IF CFX(LoT) LToFMIN(L) DFMIN(L)=FX (Lol) 
IF (FX(L oT) .GToFMAX(1) DFMAX(L) ZF X(1 ST) 
IF (FX(29T) LT oFMIN(2) DFMIN(2) =Fx(2oI) 
IF (FX (201) GT eFMAX (2) )FMAA (2) =F X (291) 
IF (I1-LEeNWAVE)GO TO 200 
IF (FX (oT) .LTeFMNH) FMNH3F X (151) 
IF (FX (191) GT eFMXH) FMXH2F X (151) 
IF (FX (201) .LToF MNP) FMNP2F X (291) 
IF (FX (291) GT eFMXP) FMXP2FX (201) 
CONTINUE 
IF (IPT.EQ.9) GO TO 800 
® # # # # COMPUTE RATIOES 
COL3 = (FMXH=FMNH) 7 (2.#RO) 
COLS% = (FMXP=FMNP) /((4,.#PI#RO) /LAMBDA) 
WRITE (49700) COL3,COL4 
FORMAT(LH1L," HEAVE AMPLITUDE/WAVENEIGHT = "sE12.69/92Xo 
© % PITCH AMPLITUDE (2.#PI®wAVEHEIGHT/LAMBDA) = "sE12.6) 
CONTINUE 
NVAR(1)=10H HEAVE 
NVAR(2)=10H PITCH 
Nls2 i 
XO02KXA 
OELX = HMAx 
IF (NPLOT..E(),-1) CALL PLOT2(FXsFMINoF MAX »NVAR yg NFUN N15 IB,X0,D0ELX) 
RETURN 
END 
SUBROUTINE TRAP (F »0X»NPTS»oANS) 
INPUT? 
F ARRAY OF FUNCTIONAL VALUES OF THE INTEGRAND 
Ox THE X INTERVAL BETWEEN VALUES 
NPTS THE NUMBER OF VALUES GIVEN 
OUTPUT? 
999 
ANS THE VALUE OF THE INTEGRAL 
DIMENSION F(NPTS) 
ANS=0.0 
IF (NPTS.LT.2)G0 TO 999 
DO 1 I=lsNPTS 
ANSZANS*F (1) 
ANS=DX# (ANS-005#(F (1) ¢F (NPTS) )) 
CONTINUE 
RETURN 
END 
FUNCTION RMP(T»START»RISE) 
67 
PLOTER28 
PLOTER29 
PLOTER30 
PLOTER31 
PLOTER32 
PLOTER33 
PLOTER34 
PLOTER3S 
PLOTER36 
PLOTER37 
PLOTER38 
PLOTER39 
PLOTER4O 
PLOTER41 
PLOTER42 
PLOTERS3 
PLOTER44S 
PLOTER4S 
PLOTER4S6 
PLOTERS7 
PLOTER4S8 
PLOTER49 
PLOTERSO 
PLOTERS] 
PLOTERS2 
PLOTERS3 
PLOTERS4 
PLOTERSS 
PLOTERS6 
PLOTERS7 
PLOTERSS 
PLOTERS9 
PLOTER60 
PLOTER61 
PLOTER62 
PLOTER63 
PLOTER64 
PLOTER6S 
PLOTER66 
PLOTER67 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
RMP 
2 
3 
4 
5 
6 
7 
8 
9 
10 
ll 
12 
13 
14 
15 
16 
17 
18 
19 
2 
