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
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
LICENSE
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
character(len=*),
|
intent(in) |
|
|
:: |
line |
|
integer,
|
intent(in) |
|
|
:: |
length |
|
Return Value
character(len=length)
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