bort.f

Go to the documentation of this file.

C> @file
C> @brief Log one error message and abort application program.

C> This subroutine calls subroutine errwrt() to log an error message,
C> then calls subroutine bort_exit() to abort the application program.
C>
C> <p>It is similar to subroutine bort2(), except that bort2() logs
C> two error messages instead of one.
C>
C> @author J. Woollen
C> @date 1998-07-08
C>
C> @param[in] STR   - character*(*): Error message
C>
C> <b>Program history log:</b>
C> - 1998-07-08  J. Woollen -- Original author
C> - 2003-11-04  J. Ator    -- Added documentation; replaced call to
C>                             intrinsic C routine "exit" with call
C>                             to bort_exit() to ensure return of
C>                             non-zero status code
C> - 2009-04-21  J. Ator    -- Use errwrt()
C>
      SUBROUTINE bort(STR)

      CHARACTER*(*) str

      CALL errwrt(' ')
      CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
      CALL errwrt(str)
      CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
      CALL errwrt(' ')

      CALL bort_exit

      END