pro shell,ax,am

width = 10
ss =fltarr(7)



   dlafit, dla, amp, width, pk, dla1, fit, chi

   oplot,dla1,fit,color=200



d = [939.0,-560.0,660.0,955.0,0.0]
dlafitsys, d, ss, r
tlab = ['T1','T2','T4','T5','T6']
for i = 0, 4 do print,' '+tlab[i]+' adjusted =', r[i]

END