<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='ERROR_HANDLER'><A href='../../html_code/obsproc/error_handler.F90.html#ERROR_HANDLER' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
SUBROUTINE error_handler (calling_routine,message1,message2,fatal) 36
!------------------------------------------------------------------------------!
! Print out an error message
!
! D. GILL, April 1998
! F. VANDENBERGHE, March 2001
!------------------------------------------------------------------------------!
IMPLICIT NONE
CHARACTER (LEN=*) , INTENT ( IN ) :: calling_routine
CHARACTER (LEN=*) , INTENT ( IN ) :: message1
CHARACTER (LEN=*) , INTENT ( IN ) :: message2
LOGICAL , INTENT ( IN ) :: fatal
WRITE (0,'(/,A,1X,A)') TRIM (message1),TRIM (message2)
IF (fatal) THEN
WRITE (0,'(/,A,A,/)') "FATAL ERROR: STOP in ",TRIM (calling_routine)
STOP
ELSE
WRITE (0,'(/,A,A,/)') "WARNING: ERROR in ",TRIM (calling_routine)
ENDIF
END SUBROUTINE error_handler