1 subroutine strip (text, start, end)
10 parameter(blank =
' ')
11 parameter(no_text = 0)
22 do while ((text(start:start) .eq. blank)
23 & .and. (start .le. lentext))
29 if (start .gt. lentext)
then
38 do while (text(end:end) .eq. blank)
subroutine strip(text, start, end)