lenset Function

public function lenset(line, length) result(strout)

NAME

lenset(3f) - [M_strings:LENGTH] return string trimmed or padded to
             specified length
(LICENSE:PD)

SYNOPSIS

function lenset(str,length) result(strout)

 character(len=*)                     :: str
 character(len=length)                :: strout
 integer,intent(in)                   :: length

DESCRIPTION

lenset(3f) truncates a string or pads it with spaces to the specified
length.

OPTIONS

str     input string
length  output string length

RESULTS

strout  output string

EXAMPLE

Sample Program:

 program demo_lenset
  use M_strings, only : lenset
  implicit none
  character(len=10)            :: string='abcdefghij'
  character(len=:),allocatable :: answer
     answer=lenset(string,5)
     write(*,'("[",a,"]")') answer
     answer=lenset(string,20)
     write(*,'("[",a,"]")') answer
 end program demo_lenset

Expected output:

 [abcde]
 [abcdefghij          ]

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: line
integer, intent(in) :: length

Return Value character(len=length)


Contents

Source Code


Source Code

function lenset(line,length) result(strout)

! ident_45="@(#) M_strings lenset(3f) return string trimmed or padded to specified length"

character(len=*),intent(in)  ::  line
integer,intent(in)           ::  length
character(len=length)        ::  strout
   strout=line
end function lenset