SUBROUTINE QUIT C C QUIT.SUB NAB 20-Mar-85/01-Apr-85. C C Description: C C Release the array processor. Call a routine to write out the C processed data in the virtual array to the output image file. C Eliminate the virtual array region. If running under TSX- C Plus, unlock the job from memory and turn off high efficiency C terminal mode. C #include "CNVL2D.DAT" C 1 FORMAT (/,' CNVL2D-F-IVELIM error #',I2,A1,/) C C #ifdef skymnk CALL VDONE #endif C CALL WTFIL C IRET = IVELIM () IF (IRET .EQ. 0) GO TO 100 TYPE 1,IRET,BEEP(1) ERRFLG = 1 100 CONTINUE C IF (TSXFLG .EQ. 0) GO TO 110 CALL IUNLKM CALL HIEFOF 110 CONTINUE C RETURN END