DO 300 1=1,2048 

 N=NSTART+(I-1) 



300 DATA(N)=SQRT((DATA(N)*DATA(N))+(REAL(XDATA(I))**2)) 

 NSTART=NSTART+2048 

 GO TO 10 

 END 



173 



