function sign, variable
;mimics the sign function in C
;if variable eq 0.0 then variable=1.0
;return, variable/abs(variable)
;return, variable gt 0 ? 1 : -1
return, (variable ge 0) + (variable lt 0)*(-1)
end