bort.f

Go to the documentation of this file.

C> @file
C> @brief Log one error message and abort application program.
C>
C> @author J. Woollen @date 1998-07-08
 
C> Log one error message and abort application program.
C>
C> This subroutine calls subroutine errwrt() to log an error message,
C> then calls subroutine bort_exit() to abort the application program.
C>
C> It is similar to subroutine bort2(), except that bort2() logs
C> two error messages instead of one.
C>
C> @param[in] STR - character*(*): Error message
C>
C> @author J. Woollen @date 1998-07-08
      SUBROUTINE bort(STR)
 
      use bufrlib
 
      CHARACTER*(*) STR
 
      CALL errwrt(' ')
      CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
      CALL errwrt(str)
      CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
      CALL errwrt(' ')
 
      CALL bort_exit_c
 
      END