SUBROUTINE PTAB (LINE) C C This subroutine processes out tabs from the input lines and C converts them to spaces to bring the following character into C the proper column of the input line. C IMPLICIT INTEGER (A - Z) LOGICAL*1 LINE, TAB, BLANK DIMENSION LINE (80) DATA TAB, BLANK /' ', ' '/ C COLUMN = 1 20 IF (COLUMN .GT. 80) RETURN C Locate tabs IF (LINE(COLUMN) .EQ. TAB) GO TO 10 COLUMN = COLUMN + 1 GO TO 20 C Find the tabulation column 10 TABLOC = ((COLUMN - 1) / 8) + 1 C Find the number of spaces to insert INS = (TABLOC * 8) - COLUMN C Push up the following text ILAST = 80 INDEX = COLUMN + INS 30 LINE(ILAST) = LINE(ILAST - INS) IF (ILAST .EQ. INDEX) GO TO 40 ILAST = ILAST - 1 GO TO 30 C Insert spaces to replace tab 40 DO 50 LP = COLUMN, INDEX LINE(LP) = BLANK 50 CONTINUE COLUMN = INDEX GO TO 20 END