pro histo,xin,yin,histout

;	Make a 2-d histogram from input detector hit data
;	written for QLA and modified for calibration data,
;	which allows for x and y positions of 0-640

;		PTB		1/20/97

;	**************************************************
 
xin=fix(xin)
yin=fix(yin)
 
nel=n_elements(xin)
x0=lonarr(nel+2)
x0(0:nel-1)=xin
x0(nel)=0
x0(nel+1)=640
y0=lonarr(nel+2)
y0(0:nel-1)=yin
y0(nel)=0
y0(nel+1)=640

 
;Now range of x and y are 0-640
 
histout=hist_2d(x0,y0)
end