SUBROUTINE PARSB(STR,LB,LE)
C          This routine deterimines the location of the first, LB, and
C          last, LE, non-blank characters in the string STR.  If STR is
C          entirely blank, LE = 0 (and LB = 1).
      CHARACTER*(*) STR
 
      NCH = LEN(STR)
      LB = 1
      DO 10 I=1,NCH
      IF (STR(I:I) .NE. ' ') GO TO 20
      LB = LB + 1
   10 CONTINUE
   20 LE = NCH
      DO 30 I=NCH,1,-1
      IF (STR(I:I) .NE. ' ') GO TO 40
      LE = LE - 1
   30 CONTINUE
   40 CONTINUE
      IF (LE .EQ. 0) LB = 1
 
      RETURN
      END