;+ ; Contains the auto_db function ; ; :Author: ; Philippe Zarka ; ; :History: ; 2004/06/04: Created ; ; 2004/06/04: Last Edit ;- ; ;+ ; auto_db is a function that <behavior desc here> ; ; :Returns: ; <return desc here> ; ; :Params: ; auto: in, required, type=sometype ; A parameter named auto ;- Function AUTO_dB, auto dB = 10.*alog10( (8.+(auto and '07'x)) *2.^(ishft(auto and 'f8'x, -3)) ) return, dB end