function hsi_lo_pass_filter,A

flow=0
fhigh=0.25
coeff=digital_filter(flow,fhigh,50,10)
A_out=convol(float(A),coeff)

return,A_out

end