LISTING OF COMPUTER PROGRAM FOR MOTION COMPUTATIONS 
PROGRAM MAIN(INPUT »OUTPUT »s TAPES=INPUT 9 TAPE6=OUTPUT 9 TAPE3=5125 MAIN 
e TAPE2=5120TAPES=5129TAPES) MAIN 
C MAIN 
REAL IT »K »LAMBDA 9M oMA oMMAX gNoNCGgNUgMASSyNLoIAgKAR MAIN 
INTEGER END MAIN 
Cc MAIN 
DIMENSION x (6) 9FX(25400) MAIN 
Cc MAIN 
COMMON /CONST/ NCGoECGoPI sDPR»RPD »GRAVTY »RHO oK »NUM9MA(120) »CDoTAy MAIN 
e B(120) sBETAsHW (120) »TZsVRAGoWoXDoT oXPoMolITs MAIN 
a DELTAS o TXoEST (120) »CoROsKARgMMAX (1 0) 9 TEST (120) 9 MAIN 
6 N(120) »PHALF MAIN 
* COMMON ASHIP/ MASS oCINT sQA9CE 9CE29CE3oDMU sEDMU »E2DMU 9 E3DMU 9 BF 9 BMM g MAIN 
6 NL oFLoIAoE (120) MAIN 
COMMON /IN/ BM(120) 581 (120) »VELIN MAIN 
COMMON/UUT /NPRINT »NPLOT 9 END MAIN 
COMMON/TERMS/T1 o T20T39T4oTS 9 T6oT7 9718 MAIN 
COMMON /SEAWAVE/ START »RISE,RAMP MAIN 
COMMON /INTER/ II oKTT(10) sDIFF (10) MAIN 
COMMON /IN2/ NO(120) »XAoXEoHMAX gHMIN9 A (6) 9EPSE (6) »LAMBDA MAIN 
COMMON /ACCEL / XACCL»BWACL »CGACL »BL MAIN 
Cc MAIN 
CALL INPUT MAIN 
Cc MAIN 
Cc COMPUTE INTEGRATION INTERVAL INFORMATION MAIN 
( MAIN 
NLESS = NUM-1] MAIN 
I=l MAIN 
II = 1 MAIN 
DIFFER = EST(1el) -EST(I) MAIN 
KTT(II) = 1 MAIN 
OIFF (II) = DIFFER MAIN 
DO 25 I=2eNLESS MAIN 
DIFFER= EST(1+1)-EST(I) MAIN 
KTT(II) = KTT(II) 1 MAIN 
IF (DIFFER NE UIFF(II))GO TO 24 MAIN 
GO TO 25 MAIN 
24 II = II*l MAIN 
KTT(II) = 1 MAIN 
DIFF (II) = DIFFER MAIN 
25 CONTINUE MAIN 
KTT(II) = KTT(II) ol MAIN 
Cc # * # # # CHECK IF NUMBER OF INTERVALS EXCEEDS DIMENSION MAIN 
IF (11eGT.10) WRITE (6928) (KTT(I) sDIFF (I) sI=loII) MAIN 
IF (IIeGT.10) STOP 4 MAIN 
C # * # # # POINT AT WHICH MULTIPLE RUNS START MAIN 
8 CONTINUE MAIN 
TIME=XA MAIN 
KOUNT=1 MAIN 
END=END=-1 MAIN 
WRITE (6939) MAIN 
39 FORMAT (1H1) MAIN 
c# *# # # # # # # READ IN INITIAL CONDITIONS MAIN 
Cc X(1) = VELOCITY» X(2) = 2 DOTs X(3) = THETA DOT MAIN 
Cc KX(4) = Xo X(5) = Z9 X(6) = THETA MAIN 
Cc THETA IS pPEAD IN DEGREES THEN CONVERTED TO RADIANS IN PROGRAM MAIN 
C MAIN 
READ (5510) (X(1) 9 I=1 56) MAIN 
Cc MAIN 
50 
