digit_I1 Function

private elemental function digit_I1(n) result(digit)

Compute the number of digits in decimal base of the input integer.

 use penf
 print FI4P, digit(100_I1P)

Arguments

Type IntentOptional Attributes Name
integer(kind=I1P), intent(in) :: n

Input integer.

Return Value integer(kind=I4P)

Number of digits.


Called by

proc~~digit_i1~~CalledByGraph proc~digit_i1 digit_I1 interface~digit digit interface~digit->proc~digit_i1 program~volatile_doctest~104 volatile_doctest program~volatile_doctest~104->interface~digit program~volatile_doctest~122 volatile_doctest program~volatile_doctest~122->interface~digit program~volatile_doctest~195 volatile_doctest program~volatile_doctest~195->interface~digit program~volatile_doctest~60 volatile_doctest program~volatile_doctest~60->interface~digit

Source Code

   elemental function digit_I1(n) result(digit)
   !< Compute the number of digits in decimal base of the input integer.
   !<
   !<```fortran
   !< use penf
   !< print FI4P, digit(100_I1P)
   !<```
   !=> 3 <<<
   integer(I1P), intent(in) :: n     !< Input integer.
   character(DI1P)          :: str   !< Returned string containing input number plus padding zeros.
   integer(I4P)             :: digit !< Number of digits.

   write(str, FI1P) abs(n)        ! Casting of n to string.
   digit = len_trim(adjustl(str)) ! Calculating the digits number of n.
   endfunction digit_I1