pow_ten

Source: utils/misc/pow_ten.pro

  POW_TEN
        Checks whether the argument is an integer power of 10 or not.

  Usage:
        pt = pow_ten(v)

  Return Value:
        pt      byte    1 if (where) v is a power of 10,
                        0 if (where) v is not a power of 10.

  Argument:
        v       any     input   Thw value(s) to be checked.


  Restrictions:
        Won't work for strings or structures.

  History:
        Original: 17/2/92; SJT
        Fix problem if all values are non-positive: 15/11/01; SJT