%N nfig %F $MIR/src/subs/utilities.for
%D Find number of digits in a number
%P bpw
%: utilities
%B
      integer          function nfigi ( ivalue )
      integer          function nfigr ( rvalue )
      integer          function nfigd ( dvalue )
      integer          ivalue
      real             rvalue
      double precision dvalue

 nfigi returns the number of digits of an integer number, e.g.
 nfigi(4)=1, nfigi(55)=2, nfigi(-10)=3 etc.
 nfigr returns the number of digits in the integer part of a real
 number. I.e. nfigr(1.)=1, nfigr(1.01)=1, nfigr(555.)=3, nfigr(-10.)=3
 etc.
 nfigd returns the number of digits in the integer part of a double
 precision number. I.e. nfigd(1.d0)=1, nfigd(1.01d0)=1, nfigd(-10.d0)=3
 etc.

 Input:
   value:     value to work on
