bort2.f

Go to the documentation of this file.

C> @file
C> @brief Log two error messages and abort application program.
C> @author D. Keyser @date 2003-11-04
 
C> Log two error messages and abort application program.
C>
C> This subroutine calls subroutine errwrt() to log two error messages,
C> then calls subroutine bort_exit() to abort the application program.
C>
C> It is similar to subroutine bort(), except that bort() logs
C> one error message instead of two.
C>
C> @param[in] STR1 - character*(*): First error message
C> @param[in] STR2 - character*(*): Second error message
C>
C> @author D. Keyser @date 2003-11-04
      SUBROUTINE bort2(STR1,STR2)
 
      use bufrlib
 
      CHARACTER*(*) STR1, STR2
 
      CALL errwrt(' ')
      CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
      CALL errwrt(str1)
      CALL errwrt(str2)
      CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
      CALL errwrt(' ')
 
      CALL bort_exit_c
 
      END