clip(3f) - [M_strings:WHITESPACE] trim leading and trailing blanks from a string (LICENSE:PD)
Synopsis
Description
Options
Returns
Example
Author
License
function clip(strin) result (strout)
character(len=*),intent(in) :: strin character(len=:),allocatable :: strout
leading and trailing spaces are trimmed from the resulting string.
strin input string to trim leading and trailing space characters from
strout clipped version of input string
Sample program:
program demo_clip use M_strings, only: clip implicit none character(len=20) :: untrimmed = ABCDEFG abcdefg write(*,*) untrimmed string=[,untrimmed,] write(*,*) clipped string=[,clip(untrimmed),] end program demo_clipExpected output
untrimmed string=[ ABCDEFG abcdefg ] clipped string=[ABCDEFG abcdefg]
John S. Urban
Public Domain
Nemo Release 3.1 | clip (3) | July 22, 2023 |