subroutine stripStr(inStr, outStr, isPreceedingOnly) character(*), intent(in) :: inStr character(*), intent(out) :: outStr logical, intent(in), optional :: isPreceedingOnly ! .false. in default. end subroutine stripStr
This “strips” the input string, namely removes the preceeding and trailing spaces, tabs, line-feeds, carriage-returns. If isPreceedingOnly is given and TRUE, no trailing space is deleted.