strz_I8P Function

private elemental function strz_I8P(n, nz_pad) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I8P), intent(in) :: n
integer(kind=I4P), intent(in), optional :: nz_pad

Return Value character


Called by

proc~~strz_i8p~3~~CalledByGraph proc~strz_i8p~3 strz_I8P interface~strz~3 strz interface~strz~3->proc~strz_i8p~3

Contents

Source Code


Source Code

   elemental function strz_I8P(n, nz_pad) result(str)
   !< Converting integer to string, prefixing with the right number of zeros.
   !<
   !<```fortran
   !< use penf
   !< print "(A)", strz(n=1_I8P)
   !<```
   !=> 0000000000000000001 <<<
   !<
   !<```fortran
   !< use penf
   !< print "(A)", strz(n=1_I8P, nz_pad=5)
   !<```
   !=> 00001 <<<
   integer(I8P), intent(in)           :: n      !< Integer to be converted.
   integer(I4P), intent(in), optional :: nz_pad !< Number of zeros padding.
   character(DI8P)                    :: str    !< Returned string containing input number plus padding zeros.

   write(str,FI8PZP) n                              ! Casting of n to string.
   str=str(2:)                                      ! Leaving out the sign.
   if (present(nz_pad)) str=str(DI8P-nz_pad:DI8P-1) ! Leaving out the extra zeros padding
   endfunction strz_I8P