        SUBROUTINE SKIPBL(S,N,I)
C
C               T.J.PEARSON  1978 MAY 11
C               MODIFIED 1979 FEB 6  (VAX/VMS FORTRAN 4)
C               MODIFIED 1987 APR 12 (RSS)
C
C               SKIP BLANKS FROM S(I); INCREMENT I
C
        INTEGER   N,I
        INTEGER*2 S(N),BLANK,TAB
        CHARACTER*2 CBLANK,CTAB
        EQUIVALENCE (CBLANK,BLANK), (CTAB,TAB)
        DATA      CBLANK/' '/,CTAB/'	'/
C
   10   IF(I.GT.N) RETURN
        IF(S(I).NE.BLANK.AND.S(I).NE.TAB) RETURN
        I=I+1
        GOTO 10
        END

