rtr 



4^ 



6ft 



GO TO '*« 



•=T(J)-1 (J-1 ) 



TnTFF 

 VnTFF 



Tmom 



=V(J)-V(J-1) 

 AA-T(J-l) 



Rfi 



IB- (T 



Ratio 

 TTtntp 

 YMg:w( 



211 



P??* 



Gn TO 



YMFWl 

 WOTTE 

 MOsMO 

 trsT's 

 IP- (T 



■990 



777 



AAasAA 

 Gn TO 

 CoMTI 

 W^TTE 



J l=MO 



(,j-l)_AA) fl8*?ll»210 



TMUM/TOIFF 

 HA Tl n*VDTl=T' 



M lO ) = vM J"l) »DTMTP 



222 



MO)=v(j-n 



"(6i»1T) YMFW"(m"0) tAAtMO 



♦I ^_ 



TnTFF-TNUM 



F;ST-H) 990*990*250 



♦ 7 ^ 



66 _ 



NllIF" ' " 



(6i«inoo) 



MO) 8R«»443»77T 

 1 



Go TO 443 



J.I=M-1 



rFfC^on 555. 555 ,444 



Call CORRFrT (JJ) 



CaLL 5PFCTRA ( JJ.rODT.MT ♦TUittTOl .T132»T03T 



GO TO TM 



8R« 

 "*43 



444 

 "555 



EMO 



3200" FORTRAN niAGNOSTIC RESULTS - FOR BBELS 



NO B-RRoRS 



D- 



