NCEPLIBS-bufr 11.7.1
bort.f
Go to the documentation of this file.
1C> @file
2C> @brief Log one error message and abort application program.
3
4C> This subroutine calls subroutine errwrt() to log an error message,
5C> then calls subroutine bort_exit() to abort the application program.
6C>
7C> <p>It is similar to subroutine bort2(), except that bort2() logs
8C> two error messages instead of one.
9C>
10C> @author J. Woollen
11C> @date 1998-07-08
12C>
13C> @param[in] STR -- character*(*): Error message
14C>
15C> <b>Program history log:</b>
16C> | Date | Programmer | Comments |
17C> | -----|------------|----------|
18C> | 1998-07-08 | J. Woollen | Original author |
19C> | 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 |
20C> | 2009-04-21 | J. Ator | Use errwrt() |
21C>
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 bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
Definition: bort.f:23
void bort_exit(void)
This subroutine terminates the application program with a non-zero status code.
Definition: bort_exit.c:23
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
Definition: errwrt.f:42