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