digit_I4 Function

private elemental function digit_I4(n) result(digit)

Arguments

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

Return Value integer(kind=I4P)


Called by

proc~~digit_i4~~CalledByGraph proc~digit_i4 digit_I4 interface~digit digit interface~digit->proc~digit_i4 program~volatile_doctest~1187 volatile_doctest program~volatile_doctest~1187->interface~digit program~volatile_doctest~1188 volatile_doctest program~volatile_doctest~1188->interface~digit program~volatile_doctest~1244 volatile_doctest program~volatile_doctest~1244->interface~digit program~volatile_doctest~127 volatile_doctest program~volatile_doctest~127->interface~digit program~volatile_doctest~131 volatile_doctest program~volatile_doctest~131->interface~digit program~volatile_doctest~1353 volatile_doctest program~volatile_doctest~1353->interface~digit program~volatile_doctest~1406 volatile_doctest program~volatile_doctest~1406->interface~digit program~volatile_doctest~155 volatile_doctest program~volatile_doctest~155->interface~digit program~volatile_doctest~1575 volatile_doctest program~volatile_doctest~1575->interface~digit program~volatile_doctest~1631 volatile_doctest program~volatile_doctest~1631->interface~digit program~volatile_doctest~17 volatile_doctest program~volatile_doctest~17->interface~digit program~volatile_doctest~1710 volatile_doctest program~volatile_doctest~1710->interface~digit program~volatile_doctest~1736 volatile_doctest program~volatile_doctest~1736->interface~digit program~volatile_doctest~1823 volatile_doctest program~volatile_doctest~1823->interface~digit program~volatile_doctest~1912 volatile_doctest program~volatile_doctest~1912->interface~digit program~volatile_doctest~1939 volatile_doctest program~volatile_doctest~1939->interface~digit program~volatile_doctest~209 volatile_doctest program~volatile_doctest~209->interface~digit program~volatile_doctest~405 volatile_doctest program~volatile_doctest~405->interface~digit program~volatile_doctest~567 volatile_doctest program~volatile_doctest~567->interface~digit program~volatile_doctest~587 volatile_doctest program~volatile_doctest~587->interface~digit program~volatile_doctest~615 volatile_doctest program~volatile_doctest~615->interface~digit program~volatile_doctest~649 volatile_doctest program~volatile_doctest~649->interface~digit program~volatile_doctest~772 volatile_doctest program~volatile_doctest~772->interface~digit program~volatile_doctest~802 volatile_doctest program~volatile_doctest~802->interface~digit program~volatile_doctest~904 volatile_doctest program~volatile_doctest~904->interface~digit program~volatile_doctest~919 volatile_doctest program~volatile_doctest~919->interface~digit program~volatile_doctest~923 volatile_doctest program~volatile_doctest~923->interface~digit program~volatile_doctest~991 volatile_doctest program~volatile_doctest~991->interface~digit

Source Code

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

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