NCEPLIBS-bufr  11.7.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> | Date | Programmer | Comments |
17 C> | -----|------------|----------|
18 C> | 1998-07-08 | J. Woollen | Original author |
19 C> | 2003-11-04 | J. Ator | Added documentation; replaced call to intrinsic C routine "exit" with call to bort_exit() to ensure return of non-zero status code |
20 C> | 2009-04-21 | J. Ator | Use errwrt() |
21 C>
22  SUBROUTINE bort(STR)
23 
24  CHARACTER*(*) str
25 
26  CALL errwrt(' ')
27  CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
28  CALL errwrt(str)
29  CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
30  CALL errwrt(' ')
31 
32  CALL bort_exit
33 
34  END
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
Definition: errwrt.f:41
void bort_exit(void)
This subroutine terminates the application program with a non-zero status code.
Definition: bort_exit.c:23
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
Definition: bort.f:22