14 character blank*1, comma*1
15 parameter(blank =
' ', comma =
',')
16 parameter(no_text = 0)
27 do while (((text(start:start) .eq. blank)
28 & .or . (text(start:start) .eq. comma))
29 & .and. (start .le. lentext))
35 if (start .gt. lentext)
then
44 do while ((text(end:end) .eq. blank)
45 & .or. (text(end:end) .eq. comma))
subroutine strip_blanks_commas(text, start, end)