NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
bort2.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Log two error messages and abort application program.
3 
4 C> This subroutine calls subroutine errwrt() to log two error messages,
5 C> then calls subroutine bort_exit() to abort the application program.
6 C>
7 C> <p>It is similar to subroutine bort(), except that bort() logs
8 C> one error message instead of two.
9 C>
10 C> @author D. Keyser
11 C> @date 2003-11-04
12 C>
13 C> @param[in] STR1 -- character*(*): First error message
14 C> @param[in] STR2 -- character*(*): Second error message
15 C>
16 C> <b>Program history log:</b>
17 C> | Date | Programmer | Comments |
18 C> | -----|------------|----------|
19 C> | 2003-11-04 | D. Keyser | Original author |
20 C> | 2009-04-21 | J. Ator | Use errwrt() |
21 C>
22  SUBROUTINE bort2(STR1,STR2)
23 
24  CHARACTER*(*) str1, str2
25 
26  CALL errwrt(' ')
27  CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
28  CALL errwrt(str1)
29  CALL errwrt(str2)
30  CALL errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
31  CALL errwrt(' ')
32 
33  CALL bort_exit
34 
35  END
subroutine bort2(STR1, STR2)
This subroutine calls subroutine errwrt() to log two error messages, then calls subroutine bort_exit(...
Definition: bort2.f:22
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