function removerowslope,p

;11Oct02, CSEE

; removes the row slope value of p using a 2nd order fit to the mean.

s=size(p)
columns=s(1)
rows=s(2)

slope=fltarr(rows)	;dN at bottom
for i=0,rows-1 do slope(i)=mean(p(*,i))
x=findgen(rows)
fit=poly_fit(x,slope,2)
p2=fltarr(columns,rows)
for i=0l,rows-1 do p2(*,i)=p(*,i)-(fit(0)+fit(1)*i+fit(2)*i^2)

return,p2

end