3200 FORTRAN (2.1) TM No. 3^7/ 



PROGRAM VFLTIMF 



DIMENSION X (4500) . INU(4bOO) 

 1 1=2 



NN=1 



Ns\ 



RFAO(60«100)EmSFC 



READ(60.102)X(l).IrMU(l)»X(2),IND(2).X(3).IND(3).X(4) tlNij(4) .X(i)) . 

 IIMOCS) 

 fl IF(X(I) .LT. 999999)9,5 

 9 IF(IND(I)-l ) 70.16,70 



70 IF(IN0(T)-TND(I-1) ) 16,71 ,16 

 16 1=1*1 



78 IF(T-(5*N*1 ) )8,7,22 

 ?? N=N*1 



GO TO 28 

 7 HFAD(6 0,10?)X(I) »IMD(I) ,X(I + 1) ,IND(I*1) ,X (1+2) ,iNr.)(I*2) ,X (I*J) , 

 llND(I*3) ,X(I*4) ,l!\iO(I*4) 

 GO TO 8 



71 COMTINUE 



14 D=X(I)-X(I-1) 



TIME=(X(I)*X(I-1) )/2. 



D=( (n/15.6)/EMSFC)«1000. 



TIME=TIME/i5.6 



TTME = TIME/FMSEC >, 



IF(0 .LE. 20.99)36,37 

 36 Y= (0-15.54)/ (741 0.290 7E-05-7837.2527E-06»D)*2in, 700 



GO TO 25 

 •^7 IF(0 .LE. 33.4fl)3'^,39 



38 Y=(D-23.00)/(5994.0l37E-05-a476.9629E-06*D)*Uo.OOO 

 GO TO 25 



39 IF(0 .LE. Q3. 62)40, 41 



4 Y=.66680522E-0 7*U«»5-. 1469901 1E-04«D*«4*. 72463 J50E-'I3»D«»3 

 Y3y+.55538870E-T5I»0*»2-.69160109E + OI«D*'.~2503236"2E*Oi 

 GO TO 25 



41 IF{0 .LE. 239.2)42,43 



42 Ya( 0-11 5.5 )/(.20498400-.038643265«D) ♦28.40 

 Go TO 25 



43 Y=(D-288.7)/(34.1995l7-.16685755»D) ♦12.60 

 ?5 IF(1N0(I)-1 )26,26,27 



■?7 Ya-1.»Y 



?6 WRTTEdo.inl) Y,TImE,1 



WRITE(61,lol) Y,TIME,I 



I = I + 1 



NNaNN+1 



Go TO 29 ^ 

 5 END FILE 10 



RFWINO 10 



00 60 Ksi,NN 



HEAD(10,101)Y,TIME»I 



WRlTE(62,10l)Y,TI.vt£,I 



60 CONTINUE " ■" ■ 



REWIND 10 



100 FowmaT(F6.0,I3,T3,F4.0) 



101 FORMAT (FIO. 5, Flo, 5, 15) 

 ln2 FoRMAT(5(F6.0,I2f8X)) 



GO TO 1 _ 



End' "^ D-2 



