SUBROUTINE RDFIL C C RDFIL.SUB NAB 22-Mar-85/28-Mar-85. C C Description: C C Open the input image file. Read it into the virtual array. C Close the file. C #include "CNVL2D.DAT" C 1 FORMAT ('+ ICOL =',I4) 2 FORMAT (/,' ?CNVL2D-F-IPTCOL error #',I2,A1,/) C C OPEN ( * ACCESS ='DIRECT', * FORM = 'UNFORMATTED', * NAME = INFIL, * READONLY, * RECORDSIZE = 512/4, * TYPE = 'OLD', * UNIT = ILUN * ) C TYPE * DO 210 ICOL = 1,NCOL TYPE 1,ICOL READ (ILUN'ICOL) (IOBUF(IROW),IROW=1,512) IRET = IPTCOL (ICOL) IF (IRET .EQ. 0) GO TO 200 TYPE 2,IRET,BEEP(1) ERRFLG = 1 GO TO 220 200 CONTINUE 210 CONTINUE TYPE * C 220 CONTINUE CLOSE (UNIT = ILUN) C RETURN END