lenset(3f) - [M_strings:LENGTH] return string trimmed or padded to specified length (LICENSE:PD)
Synopsis
Description
Options
Returns
Examples
Author
License
function lenset(str,length) result(strout)
character(len=*) :: str character(len=length) :: strout integer,intent(in) :: length
lenset(3f) truncates a string or pads it with spaces to the specified length.
str input string length output string length
strout output string
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_lensetExpected output:
[abcde] [abcdefghij ]
John S. Urban
Public Domain
Nemo Release 3.1 | lenset (3m_strings) | January 10, 2025 |