SUBROUTINE FINISH 
    
      INTEGER     ECODE 
      INTEGER     CMCHAN
      INTEGER     RBCHAN
      INTEGER     OBCHAN
      INTEGER     MPCHAN
      INTEGER     DBCHAN
      INTEGER     TTYIN 
      INTEGER     TTYOUT
      COMMON      /IODEFN/ ECODE
      COMMON      /IODEFN/ CMCHAN   
      COMMON      /IODEFN/ RBCHAN   
      COMMON      /IODEFN/ OBCHAN   
      COMMON      /IODEFN/ MPCHAN   
      COMMON      /IODEFN/ DBCHAN   
      COMMON      /IODEFN/ TTYIN
      COMMON      /IODEFN/ TTYOUT   
C     WRITE (DBCHAN, 1) 
C    1FORMAT (' ENTER FINISH')  
      CALL CLOSF (CMCHAN, ECODE)
      IF (ECODE.NE.1) CALL ERROR (3)
      CALL CLOSF (OBCHAN, ECODE)
      IF (ECODE.NE.1) CALL ERROR (3)
C     WRITE (DBCHAN, 2) 
C    2FORMAT (' EXIT FINISH')   
      RETURN
      END