rpad Interface

public interface rpad

Contents


Module Procedures

private function rpad_scalar(valuein, length) result(strout)

NAME

rpad(3f) - [M_strings:LENGTH] convert to a string and pad on the right
to requested length
(LICENSE:PD)

SYNOPSIS

function rpad(valuein,length) result(strout)

 class*,intent(in)       :: valuein(..)
 integer,intent(in)      :: length

DESCRIPTION

rpad(3f) converts a scalar intrinsic value to a string and then pads
it on the right with spaces to at least the specified length. If the
trimmed input string is longer than the requested length the string
is returned trimmed of leading and trailing spaces.

OPTIONS

str      The input may be scalar or a vector.
         the input value to return as a string, padded on the left to
         the specified length if shorter than length. The input may be
         any intrinsic scalar which is converted to a cropped string
         much as if written with list-directed output.
length   The minimum string length to return

RETURNS

strout  The input string padded to the requested length
        on the right with spaces.

EXAMPLE

Sample Program:

  program demo_rpad
   use M_strings, only : rpad
   implicit none
      write(*,'("[",a,"]")') rpad( 'my string', 20)
      write(*,'("[",a,"]")') rpad( 'my string   ', 20)
      write(*,'("[",a,"]")') rpad( '   my string', 20)
      write(*,'("[",a,"]")') rpad( '   my string   ', 20)
      write(*,'("[",a,"]")') rpad( valuein=42 , length=7)
      write(*,'("[",a,"]")') rpad( valuein=1.0/9.0 , length=20)
  end program demo_rpad

Results:

  > [my string           ]
  > [my string           ]
  > [my string           ]
  > [my string           ]
  > [42     ]
  > [0.111111112         ]

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: valuein
integer, intent(in), optional :: length

Return Value character(len=:), allocatable

private function rpad_vector(valuein, length) result(strout)

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: valuein(:)
integer, intent(in), optional :: length

Return Value character(len=:), allocatable, (:)