1      SUBROUTINE SKIPBL(KOL, KCOL)
2C
3C***  SKIP BLANK CHARACTERS IN ARRAY KOL, UPDATE KCOL POINTER.
4C***  KCOL IS SET TO 81 IF ALL LOCATIONS STARTING AT KCOL ARE BLANK.
5C
6      INTEGER BLANK
7C
8      DIMENSION KOL(80)
9C
10      DATA BLANK / 4H     /
11C
12 1000 IF(KOL(KCOL) .NE. BLANK)GO TO 1010
13      KCOL=KCOL+1
14C
15      IF(KCOL .LT. 81)GO TO 1000
16C
17 1010 CONTINUE
18C
19      RETURN
20      END
21