crop(3f) - [M_strings:WHITESPACE] trim leading blanks and trailing blanks from a string (LICENSE:PD)
Synopsis
Description
Options
Returns
Example
Author
License
function crop(strin) result (strout)
character(len=*),intent(in) :: strin character(len=:),allocatable :: strout
trim leading and trailing blanks from a string
strin input string to trim leading and trailing space from
strout cropped version of input string
Sample program:
program demo_crop use M_strings, only: crop implicit none character(len=20) :: untrimmed = ABCDEFG abcdefg write(*,*) untrimmed string=[,untrimmed,] write(*,*) cropped string=[,crop(untrimmed),] end program demo_cropExpected output
untrimmed string=[ ABCDEFG abcdefg ] cropped string=[ABCDEFG abcdefg]
John S. Urban
Public Domain
crop (3) | March 11, 2021 |