Function Alog10

Part of:

package f2cl-lib
( alog10 < x > )