NCEPLIBS-bufr  12.1.0
borts.F90
Go to the documentation of this file.
1 
5 
14 subroutine bort(str)
15 
16  implicit none
17 
18  character*(*), intent(in) :: str
19 
20  call errwrt(' ')
21  call errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
22  call errwrt(str)
23  call errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
24  call errwrt(' ')
25 
26  stop 8
27 end subroutine bort
28 
38 subroutine bort2(str1,str2)
39 
40  implicit none
41 
42  character*(*), intent(in) :: str1, str2
43 
44  call errwrt(' ')
45  call errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
46  call errwrt(str1)
47  call errwrt(str2)
48  call errwrt('***********BUFR ARCHIVE LIBRARY ABORT**************')
49  call errwrt(' ')
50 
51  stop 8
52 end subroutine bort2
subroutine bort(str)
Log an error message, then abort the application program.
Definition: borts.F90:15
subroutine bort2(str1, str2)
Log two error messages, then abort the application program.
Definition: borts.F90:39
subroutine errwrt(str)
Specify a custom location for the logging of error and diagnostic messages generated by the NCEPLIBS-...
Definition: errwrt.F90:32