SUBROUTINE WTFIL C C WTFIL.SUB NAB 22-Mar-85/28-Mar-85. C C Description: C C Open the output image file. Write the prosessed data in the C virtual array to the output file. Close the file. C #include "CNVL2D.DAT" C 1 FORMAT ('+ ICOL =',I4) 2 FORMAT (/,' ?CNVL2D-F-IGTCOL error #',I2,A1,/) C C OPEN ( * ACCESS = 'DIRECT', * ASSOCIATEVARIABLE = IRECNO, * FORM = 'UNFORMATTED', * MAXREC = NCOL, * NAME = OUTFIL, * RECORDSIZE = 512/4, * TYPE = 'NEW', * UNIT = OLUN * ) C TYPE * DO 210 ICOL = 1,NCOL TYPE 1,ICOL IRET = IGTCOL (ICOL) IF (IRET .EQ. 0) GO TO 200 TYPE 2,IRET,BEEP(1) ERRFLG = 1 GO TO 220 200 CONTINUE IRECNO = ICOL WRITE (OLUN'IRECNO) (IOBUF(IROW),IROW=1,512) 210 CONTINUE C 220 CONTINUE CLOSE (UNIT = OLUN) C RETURN END