bort2.f

Go to the documentation of this file.

C> @file
C> @brief Log two error messages and abort application program.

C> This subroutine calls subroutine errwrt() to log two error messages,
C> then calls subroutine bort_exit() to abort the application program.
C>
C> <p>It is similar to subroutine bort(), except that bort() logs
C> one error message instead of two.
C>
C> @author D. Keyser
C> @date 2003-11-04
C>
C> @param[in] STR1  -- character*(*): First error message
C> @param[in] STR2  -- character*(*): Second error message
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2003-11-04 | D. Keyser | Original author |
C> | 2009-04-21 | J. Ator   | Use errwrt() |
C>
      SUBROUTINE bort2(STR1,STR2)

      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

      END