C
      SUBROUTINE CEASE
      COMMON INBUF(2048),IOUTBUF(8192),IWRK1(20),IWRK2(20),IFNAME1(3)
      COMMON ICMND,IFLAG1,IORG,INUM,IFORMT(20),IFLAG2
      CALL ERRSET2(IERR,99S,99S,IDCB)
      CALL CLOSEF(1,2)
99    CONTINUE
S     CAL1,9 1
      RETURN
      END

