<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='BORT2'><A href='../../html_code/bufr/bort2.f.html#BORT2' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
SUBROUTINE BORT2(STR1,STR2) 54,1
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: BORT2
C PRGMMR: KEYSER ORG: NP22 DATE: 2003-11-04
C
C ABSTRACT: THIS SUBROUTINE WRITES (VIA BUFR ARCHIVE LIBRARY SUBROUTINE
C ERRWRT) TWO GIVEN ERROR STRINGS AND THEN CALLS BUFR ARCHIVE LIBRARY
C SUBROUTINE BORT_EXIT TO ABORT THE APPLICATION PROGRAM CALLING THE
C BUFR ARCHIVE LIBRARY SOFTWARE. IT IS SIMILAR TO BUFR ARCHIVE LIBRARY
C SUBROUTINE BORT, EXCEPT BORT PRINTS ONLY ONE ERROR STRING.
C
C PROGRAM HISTORY LOG:
C 2003-11-04 D. KEYSER -- ORIGINAL AUTHOR
C 2009-04-21 J. ATOR -- USE ERRWRT
C
C USAGE: CALL BORT2
(STR1, STR2)
C INPUT ARGUMENT LIST:
C STR1 - CHARACTER*(*): FIRST ERROR MESSAGE TO BE WRITTEN VIA
<A NAME='ERRWRT'><A href='../../html_code/bufr/bort2.f.html#ERRWRT' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
C SUBROUTINE ERRWRT 418,12
C STR2 - CHARACTER*(*): SECOND ERROR MESSAGE TO BE WRITTEN VIA
<A NAME='ERRWRT'><A href='../../html_code/bufr/bort2.f.html#ERRWRT' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
C SUBROUTINE ERRWRT 418,12
C
C REMARKS:
C THIS ROUTINE CALLS: BORT_EXIT ERRWRT
C THIS ROUTINE IS CALLED BY: ELEMDX GETNTBE MTINFO PARSTR
C PARUSR PARUTG RDUSDX READMT
C SEQSDX SNTBBE SNTBDE STRING
C UFBINT UFBOVR UFBREP UFBSTP
C VALX
C Normally not called by any application
C programs but it could be.
C
C ATTRIBUTES:
C LANGUAGE: FORTRAN 77
C MACHINE: PORTABLE TO ALL PLATFORMS
C
C$$$
CHARACTER*(*) STR1, STR2
CALL ERRWRT(' ')
CALL ERRWRT('***********BUFR ARCHIVE LIBRARY ABORT**************')
CALL ERRWRT(STR1)
CALL ERRWRT(STR2)
CALL ERRWRT('***********BUFR ARCHIVE LIBRARY ABORT**************')
CALL ERRWRT(' ')
CALL BORT_EXIT
END