FOhTSAN TV r, LEVFL 18 WAIN DATE • 71201 22/08/17 



0C54 IF ( R 2.GT.I?P( K) ) RP(K)xR2 



0C55 It^f S( J*2I.Lt.ENDS) GO TC 8001 



0056 R-? = ?;{ J*2)**0*3?.0 



OCS? n I FT 2 = H0UR ( J* 1 ) -HflUR ( Jl 



0058 '^IFP2=R2-UCU^'3 



0C59 rF(DIFR2.Le.':!) GAMMi=o.C 



0C60 IF ( TIFR2.LE.0) GO TC 15 



0061 H2=SORT(niFR2**2+OIFT**2» 



0062 GAMMA=H2/(PIFT2*3.0*niFR2) 

 0r63 15 U? = GA»<MA*n IFR2 



006^ UC UM<i = UC UM 3*U2 



0C65 IF ( UCU"4.LE. UCUV12) UCUM't=UCU^2 



0066 IF(UCUM4.GF.R2) UCLV4=R2 



0067 IF(UCUM2-R2) 10,11,12 



0068 IC DELAF = DFLAF*(UCUMl-HICUM2)/2.0*DIFT 

 006«> PFRC = 100.0-DELAF»1C0.0/RC 



0070 C'=LO=RC-OELAF 



0C7 1 SUBFL=SUBFL«-( UC UM 3 + UC U >'A-UC U 1 -UC U "2 )/2.0*DIFT2 



0C72 RFLO=OFLQ-SUBFL 



0073 I'"( T.FO.TP(K) ) OF L PK ( K ) =CF LC 



0C74 WRITE (6,13) T, UC UM2 , R 2 , DE L AF , RC , P E R C , OF LC , SU BF L , R FL 0, U CUM4 



0075 13 FORMATt 1X,F7.2, 9F I I. 6> 



0076 R1 = R2 



0077 R2=R3 



0078 UCUMl=UCU^•2 



0079 UCUM3=UCUMA 



0080 J=J+1 



0081 IF ( S( J ) .LE .ENDS ) GO TO 8C01 

 00B2 GP TO 200 



00F3 11 CELAF=DELAF + IUCU«'1+UCUM2) /2.C*DIFT 



0084 PEPC=100.0-DELAF*1 CC. C/RC 



0065 3FL0=RC-DFLAF 



00 86 SUeFL = SUBF L + < UC U H 3 ♦ UC UM^-UC U »' 1 - UCU M2 )/ 2. 0*0 I FT 2 



0087 SUBFF( K ) =SUBFL 



008«l ? FLr = 3FL0-SUBPL 



0089 PFLL(K)=RFLn 



0090 gFPPK( K)=QrLL(K )-OFLPK(K) 



0091 WRITE (6,13) T, UC UM2 , R2 , DE L 4F , RC , P E RC , QF L , SU B FL , R FL 0, U CUM 4 



0092 RE(K)=P2 



0093 TF(K)=T 

 009/^ OFLL(K)=OFLO 



009 5 PIFLO(K)=SUeFF(K)«lC0.0/CFLL(K) 



0096 PRFLO(K)=lC0.0/0FLLtK)*RFLL(K) 



0097 POBPK(K)=lCn.O/OFLL(K)«OFLPK(K) 

 OnoR °QAPK(K)=1C0.0/QFLL(K)*0FPPK(K) 



0099 K=K+l 



0100 J=J+l 



0101 IF { S( J ) .1 F .ENDS) GO TC 8001 



0102 GO TO 



0103 12 B1=(R?-R n/niFT 



0104 B2=U/n!FT 



0105 TIMF = (-R i + uCU«^l ) /( B1-B2) 



0106 T I •^FX = HCUP ( J ) tTI Mc 



0107 UCUM2 = UCU*^1 + B2»TIME 



0108 DELAF = DFLA ■= + ( UC U"l + 00 0^2) / 2. C*TI ^E 



0109 X'5=UCUM? 



0110 «C=RC-(P2+XP)/?.r*(0IFT-TI"E) 



0111 PFRC=lOC.O-rFlAF*lcr.O/RC 



0112 OFLO=RC-nEL AF 



0113 aFLL(K)=OFLO 



0114 OFPPK(K)=QFLL(K)-OFLPK(K) 



115 SUOFL = SUHi^L-K UC UV3-UCUfl)/2.C*TIvF 



0116 SUBPF( K )=SUBFL 



0117 PFLn=QFLO-SUBFl 



0118 RFLL(K)=RFLO 



0119 WRITE (6,13)TIVEX, LC t " ? , XR , CE L A F , RC , PE R C, F L C , S') BE L , R FLO , U CUM 2 

 CI 20 »E(K) = XR 



0121 TE(K)=TIMEX 



17 



