%N grskpb %F $MIR/src/grskpb.f
%D Skip blanks in character string
%B
      SUBROUTINE GRSKPB (S, I)
      CHARACTER*(*) S
      INTEGER I

 GRSKPB: increment I so that it points to the next non-blank
 character in string S.  'Blank' characters are space and tab (ASCII 
 character value 9).

 Arguments:
  S      (input)  : character string to be parsed.
  I      (in/out) : on input, I is the index of the first character
                    in S to be examined; on output, either it points
                    to the next non-blank character, or it is equal
                    to LEN(S)+1 (if all the rest of the string is 
                    blank).
