strz_I1P Function

  1. penf.F90
  2. penf_stringify
  3. strz_I1P

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

Arguments

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

Integer to be converted.
integer(kind=I4P), intent(in), optional :: nz_pad

Number of zeros padding.

Return Value character(len=DI1P)

Returned string containing input number plus padding zeros.

Description

Convert integer to string, prefixing with the right number of zeros.

Called By

proc~~strz_i1p~~CalledByGraph proc~strz_i1p strz_I1P interface~strz strz interface~strz->proc~strz_i1p
Help

Source Code

  elemental function strz_I1P(n, nz_pad) result(str)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Convert integer to string, prefixing with the right number of zeros.
  !---------------------------------------------------------------------------------------------------------------------------------
  integer(I1P), intent(in)           :: n      !< Integer to be converted.
  integer(I4P), intent(in), optional :: nz_pad !< Number of zeros padding.
  character(DI1P)                    :: str    !< Returned string containing input number plus padding zeros.
  !---------------------------------------------------------------------------------------------------------------------------------

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