T8 = =-MA(NUM) #UVNUM = E2DMU + ZWEMA 
BF = BF/CX4 
FL2=TS+¢T6+T7+T8-BF 
IF (NPRINT.LT.3)GO TO 30 
25 CONTINUE 
WRITE (6910) NLoFL 
10 FORMAT(" NL = ",E12.60" FL = 9612.6) 
30 RETURN 
END 
SUBROUTINE INPUT 
C# # © @ © @ © DEFINITION OF INPUT VARIABLES 
XA = INITIAL TIME 
KE = FINAL TIME 
HMIN = MINIMUM STEP SIZE 
HMAX = MAXIMUM STEP SIZE 
EPSE = RELATIVE ERROR CRITERIUN USED FOR VALUES OF Y GT A 
EPs 2 ERROR CRITERION IN KUTMER 
A = ABSOLUTE ERROR CRITERIA USED IN KUTMER 
NPRINT = 1 FINAL PRINTOUT 
= 2 MATRIX INVERSE MATRIXoF COLUMN MATRIX»sAND KUTMER 
RESULTS 
3 INTEGRAL VALUES 
4 CALCULATED VALUES-CONSTANT FOR GIVEN INPUT VALUES 
—S it il 
NPLOT = NO PLOT 
= PRINTER PLOT 
END = NUMBER OF RUNS 
M = MASS OF CRAFT 
WwW 2 WEIGHT OF CRAFT 
Z = THRUST COMPONENT IN Z UIRECTION 
= THRUST COMPONENT IN x DIRECTION 
XECG = DISTANCE FROM CG TO CENTER OF PRESSURE FOR NORMAL FORCE 
xP = MOMENT ARM OF PROPELLER THRUST 
xD = DISTANCE FROM CG TO CENTER UF PRESSURE FOR DRAG FURCE 
KA(I)= ADDED MASS COEFFICIENT 
AN ARRAY GIVEN THE VALUE KAR wHICH IS READ IN 
BM(I) = BEAM AT FREE SURFACE UR AT CHINE 
DRAG = FRICTION DRAG 
K = WAVE NUMBER 
RO = WAVE HEIGHT 
NU = WAVE SLOPE 
NUM = NUMBER OF STATIONS 
BL = BOAT LENGTH 
LAMBDA = WAVE LENGTH 
RG = RADIUS OF GENERATION IN FEET 
T = PROPELLED THRUST IN LBS 
GAMMA = PROPELLER THRUST ANGLE IN VEGREES 
DELTAS=STATION SPACING IN FEET 
ECG = LONGITUDINAL CENTER OF GRAVITY 
NCG = VE?TICAL CG 
BETA(I) = DEAD RISE 
NO(I) = HEIGHT OF MEAN BUTTOCK 
RHO = DENSITY OF WATER 
GRAVTY = GoAVITY FT/SEC##2 
DPR = DEGPEES PER RADIAN 
RPD = RADIANS PER DEGREE 
3.14159 2 oo 0 o © 
DADMDAANAANAAANANANAANAMDDMAMNMNAMNANNANANNANANANANNANNANANAANAANANAANAANANANA 
64 
COMPUT58 
COMPUTS9 
COMPUT60 
COMPUT61 
COMPUT62 
COMPUT63 
COMPUT64 
COMPUT65 
COMPUT66 
COMPUT67 
COMPUT68 
INPUT 2 
INPUT 3 
INPUT 4 
INPUT 5 
INPUT 6 
INPUT 7 
INPUT 8 
INPUT 9 
INPUT 10 
INPUT 11 
INPUT 12 
INPUT 13 
INPUT 14 
INPUT 15 
INPUT 16 
INPUT 17 
INPUT 18 
INPUT 19 
INPUT 20 
INPUT 21 
INPUT 22 
INPUT 23 
INPUT 24 
INPUT 25 
INPUT 26 
INPUT 27 
INPUT 28 
INPUT 29 
INPUT 30 
INPUT 31 
INPUT 32 
INPUT 33 
INPUT 34 
INPUT 35 
INPUT 36 
INPUT 37 
INPUT 38 
INPUT 39 
INPUT 40 
INPUT 41 
INPUT 42 
INPUT 43 
INPUT 44 
INPUT 45 
INPUT 46 
INPUT 47 
INPUT 48 
INPUT 49 
