.PSECT	DIE
	.TITLE	DIE - ERROR TERMINATION
	.IDENT	/781108/
;
;    THIS CODE HAS BEEN DEVELOPED BY THE COMPUTING
;    GROUP OF THE ATMOSPHERIC SCIENCES DIVISION,
;    ALBERTA RESEARCH. THIS WORK FUNDED BY THE
;    ALBERTA WEATHER MODIFICATION BOARD.
;
;    THERE IS EXPLICITLY NO COPYRIGHT ON THIS SOFTWARE,
;    AND ITS DISTRIBUTION IS ENCOURAGED. NO RESPONSIBILITY
;    NOR GUARANTEE IS MADE OR ASSUMED BY THE AUTHOR, OR
;    BY ALBERTA RESEARCH.
;
;    SUGGESTIONS OR CHANGES ARE INVITED, AND WILL BE
;    DISTRIBUTED TO OTHER USERS OF THIS SOFTWARE THROUGH
;    THE DECUS IAS/RSX SPECIAL INTEREST GROUP.
;
;
; VERSION:	781020
; WRITTEN BY:	W. KORENDYK
; DATE WRITTEN:	29-OCT-78
; 
;	
;
; MODIFICATIONS:
;
; CODE		NAME		DATE
;

;+
;
; *** - DIE -- ERROR TERMINATION ENTRY POINT.
;		AT THIS POINT, AN ERROR WAS ENCOUNTERED, AND
;		ALL THINGS SHOULD BE "TIDIED-UP".
;
;-
	.MCALL	PSTR
	.MCALL	MAIGBL
	.MCALL	FCSMC$
	.MCALL	EXIT$S
	MAIGBL
	FCSMC$
DIE:	CLOSE$	#INPFDB		; TRY TO CLOSE
	CLOSE$	#INDFDB		; ALL THE FILES
	CLOSE$	#OUTFDB		; THAT MAY BE OPEN
	EXIT$S
;
;
ERRPFX:	PSTR	^#<12>/MAIL - /#
	RETURN
	.END