'HEAD'  LINKER, FINISH UP
C     EDIT DATE   10JAN79  09:53
C     SOURCE FILE FINISHGAK.FS
C     AUTHOR      GARY A. KUDIS
C     CLUSTER     7
      'OUTFILE' FINISHGAK.FR
      SUBROUTINE FINISH
      'INCLUDE' IODEFNGAK.IN,
C FINISH ::
X     WRITE (DBCHAN, 1)
X1    FORMAT (' ENTER FINISH')
      CALL CLOSF (CMCHAN, ECODE)
      IF (ECODE.NE.1) CALL ERROR (3)
      CALL CLOSF (OBCHAN, ECODE)
      IF (ECODE.NE.1) CALL ERROR (3)
N     CALL CLOSF (MPCHAN, ECODE)
N     IF (ECODE.NE.1) CALL ERROR (3)
P     CALL SPOOL (MPCHAN, ECODE)
X     WRITE (DBCHAN, 2)
X2    FORMAT (' EXIT FINISH')
      RETURN
      END