TR No. 22 
a@ 
@®SEQUENCEs0 8 
@®JOB267sTC21202ND 
@EQUIPs1#MTCOEOU0] 
@EQUIPs2#MTCOEOQUO02 
@FORTRAN »L 9X 
PROGRAM FITNSUB 
DIMENSION V%452097%452n 
DIMENSION TIM%5000sVEL%5008 
DIMENSION ZA%80n 
COMMON VEL%50002TIM%500H 
VSUM# . 
YO4#19.261 
SUESIO 
CODE# . 
READ%60.30%ZA%IlOs1#19800 
FORMAT%80R140 
IF%ZA%20eEQe00H80281 
81 M1#50 
READ%60»130DMIN»sDMAX 
13 FORMAT%2F10.5H 
SXFO 0 
SY#06 
SXX#Q 6 
SXY#0 © 
100 FORMAT%1H12 
PRINT LOG 
WRITES61240%ZA%INoI#12800 
4 FORMAT%25Xs80R14a 
DO le elo SOO 
READ%1s2000VEL%IO»TIM%I4u 
200 FORMAT%12X3F1l0.529F12e5n 
COP Or lew Gia BORG Risin 
16 CONTINUE 
DO 76 J#225C0 
IFYVEL%JOeoLT eDMING22 523 
ZZ NEE SUE EN eo) ver 
G@ 1O. 76 
23 ITF SVEL%IJOeGTeDMAXH24 976 
24 VELSIJOFV ELS J= 15 
Wr 
