62 
28 
CONTINUE 
WRITE (6928) (KTT(I) oOIFF (I) sT=)e II) 
FORMAT(#® KTTsDIFF #511092X,F10,4) 
MAIN 
MAIN 
MAIN 
ST FORMAT (4H M= 9F10.494H T= oF 10.4 94H K= 9F100494H C= 9F10.4,11H PI#MAIN 
Gre® 
aaN0 
asl 
c*#* 
Go 
98 
c## 
99 
@RHO/2= 9F10.495H PI= 5F10.4,10H GRAVITY= 5F10.4) 
FORMAT (" F(1)%510F1004) 
FORMAT (" N(I)% 9 10F10.4) 
FORMAT ('* MMAX(1) "5 lOF 1004) 
FORMAT ( TEST(1)%sl0F 10.4%) 
IB = 1 
IPRINT = NPRINT 
WRITE (4991) 
# @ # @ # # WRITE HEADINGS AND CONDITIONS AT TIME = 0. 
Ql FORMAT (LH1 2X o"T IME s9X9"XDOT" o9Xo"ZDOT" s9Xo"THETA DOT's 6X9 
6 LAX99Xo1HZ99X o9SHTHE TA 9X a QHNL 9 9X9 2HFL 
@ 4Mo8HBOW ACCL>4X97HCG ACCLo//) 
WRITE (4992) TIME» (X(I) sIT=1 96) sNL FL »BWACL »CGACL 
WRITE(9) TIME» (X(1) 5 1=496) »BWACL »CGACL 
KOUNT = KOUNT?1 
FX(101B)=X(5) 
FX (291B) =X (6) 
IKUTM= (XE=xA) /HMAX*.05 
IKUTM = (TME=XA) ZHMAX @ (AE=TME) SHMX @ .05 
FIRST=0.0 
NEQS=6 
IKUTS=0 
START OF INTEGRATION LOUP 
CONTINUE 
NPRINT = IPRINT 
# # @ # # ® CHECK PITCH .GT, 5236 RADIANS 
IF (X(6) eGT.05236)G0 TO 853 
® ® @ # © » PERFORM INTEGRATIONS 
IF (TIME LT. TMeOReTMEEQeXE) GU TO 98 
IF (IPT.EQ.1) GO TO 98 
HMIN = HMN 
HMAX = HMX 
FIRST = 0.0 
CONTINUE 
CALL KUTME9 (NEQS 9 TIME »HMAX 9X 9EPSE sAgHMINgF IRST) 
IKUTS=IKUTS¢1 
IF (FIRST.E9.2)GO0 TO 861 
IF (KOUNT NF el eANDeKOUNTeNE 041) GO TO 99 
WRITE (4991) 
KOUNT=1 
*# # @ # # # WRITE OUT TIME INTERVAL RESULTS 
WRITE (4992) TIME» (X(I) 9 I=] 96) s9NLoF lL oBWACL »CGACL 
WRITE (6993) Tl oT2oT39T4eTSoT65T7 9 T898MMoBF 
WRITE(9) TIMEs (X(1) 9 1=496) »BWACL »CGACL 
IF (TIME sLT.TMceOReoTMEcEQeXE) GU TO 200 
IF (IPT.EQe1) GO TO 200 
CALL PLUTE? (FX5XAgHMAX »LAMBDA sIBoNWAVEs IPT) 
IPT = 1 
52 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
