; Copyright (c) 2009 A.P. Hitchcock  All rights reserved
;+
;NAME:
;		CATCH_ERROR
;
;LAST CHANGED: ----------------------------------- 	11-Aug-09
;
; PURPOSE:
;	This procedure prints erorr messages in aXis log.
; This provides a mechanism to identify errors in VM operation
;
; CATEGORY:
;	Utility
;
; CALLING SEQUENCE:
;  Establish error handler.
; When errors occur, the index of the
; error is returned in the variable Error_status:
;   CATCH, Error_status
;
   ;This statement begins the error handler:
;   IF Error_status NE 0 THEN CATCH_ERROR
   ;
; INPUTS: none
;
; OUTPUTS:
;	Error message printed by axis_log
;
; PROCEDURE:
;	details where needed
;
; MODIFICATION HISTORY:
; (01-Aug-09 aph) first prepared ; use as can the extend error messaging
;              without regenerating the CATCH mechanism in the individual files
;-

PRO CATCH_ERROR
      axis_log, 'Error message: ', !ERROR_STATE.MSG
END