strz_I4P Function

  1. mod_ir_vtk.f90
  2. IR_VTK
  3. strz_I4P

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

The function strz_I4P converts integer to string, prefixing with the right number of zeros. This function achieves casting of integer to string.

Arguments

Type IntentOptional AttributesName
integer(kind=I4P), intent(in), optional :: nz_pad
integer(kind=I4P), intent(in) :: n

Return Value character(len=DI4P)


Called by

proc~~strz_i4p~~CalledByGraph proc~strz_i4p strz_I4P interface~strz strz interface~strz->proc~strz_i4p

Contents

Source Code

strz_I4P

Source Code

  elemental function strz_I4P(nz_pad,n) result(str)
  !---------------------------------------------------------------------------------------------------------------------------------
  !!The function strz\_I4P converts integer to string, prefixing with the right number of zeros. This function achieves casting of
  !!integer to string.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  implicit none
  integer(I4P), intent(IN), optional:: nz_pad ! Number of zeros padding.
  integer(I4P), intent(IN)::           n      ! Integer to be converted.
  character(DI4P)::                    str    ! Returned string containing input number plus padding zeros.
  !---------------------------------------------------------------------------------------------------------------------------------

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