NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
bort.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Log one error message and abort application program.
3 
4 C> This subroutine calls subroutine errwrt() to log an error message,
5 C> then calls subroutine bort_exit() to abort the application program.
6 C>
7 C> <p>It is similar to subroutine bort2(), except that bort2() logs
8 C> two error messages instead of one.
9 C>
10 C> @author J. Woollen
11 C> @date 1998-07-08
12 C>
13 C> @param[in] STR - character*(*): Error message
14 C>
15 C> <b>Program history log:</b>
16 C> - 1998-07-08 J. Woollen -- Original author
17 C> - 2003-11-04 J. Ator -- Added documentation; replaced call to
18 C> intrinsic C routine "exit" with call
19 C> to bort_exit() to ensure return of
20 C> non-zero status code
21 C> - 2009-04-21 J. Ator -- Use errwrt()
22 C>
23  SUBROUTINE bort(STR)
24 
25  CHARACTER*(*) str
26 
27  CALL errwrt(' ')
28  CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
29  CALL errwrt(str)
30  CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
31  CALL errwrt(' ')
32 
33  CALL bort_exit
34 
35  END
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
Definition: errwrt.f:39
void bort_exit(void)
This subroutine terminates the application program with a non-zero status code.
Definition: bort_exit.c:21
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
Definition: bort.f:23