18 character*(*),
intent(in) :: str
21 call errwrt(
'***********BUFR ARCHIVE LIBRARY ABORT**************')
23 call errwrt(
'***********BUFR ARCHIVE LIBRARY ABORT**************')
42 character*(*),
intent(in) :: str1, str2
45 call errwrt(
'***********BUFR ARCHIVE LIBRARY ABORT**************')
48 call errwrt(
'***********BUFR ARCHIVE LIBRARY ABORT**************')
subroutine bort(str)
Log an error message, then abort the application program.
subroutine bort2(str1, str2)
Log two error messages, then abort the application program.
subroutine errwrt(str)
Specify a custom location for the logging of error and diagnostic messages generated by the NCEPLIBS-...