ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c	This is a routine to delete CB_MBX in the case that the CB manager
c	fails to exit properly.
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
	integer status,sys$delmbx,sys$assign
	integer*2 mbx_chan
c	assign channel to mailbox
	status=sys$assign('cb_mbx',mbx_chan,,)
	if(.not.status) call lib$signal(%val(status))
c	delete the mailbox
	status=sys$delmbx(%val(mbx_chan))
	if(.not.status) call lib$signal(%val(status))
	end
