var/external/bufr/bort2.f

   1       SUBROUTINE BORT2(STR1,STR2)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    BORT2
   6 C   PRGMMR: KEYSER           ORG: NP22       DATE: 2003-11-04
   7 C
   8 C ABSTRACT: THIS SUBROUTINE WRITES (VIA BUFR ARCHIVE LIBRARY SUBROUTINE
   9 C   ERRWRT) TWO GIVEN ERROR STRINGS AND THEN CALLS BUFR ARCHIVE LIBRARY
  10 C   SUBROUTINE BORT_EXIT TO ABORT THE APPLICATION PROGRAM CALLING THE
  11 C   BUFR ARCHIVE LIBRARY SOFTWARE. IT IS SIMILAR TO BUFR ARCHIVE LIBRARY
  12 C   SUBROUTINE BORT, EXCEPT BORT PRINTS ONLY ONE ERROR STRING.
  13 C
  14 C PROGRAM HISTORY LOG:
  15 C 2003-11-04  D. KEYSER  -- ORIGINAL AUTHOR
  16 C 2009-04-21  J. ATOR    -- USE ERRWRT
  17 C
  18 C USAGE:    CALL BORT2 (STR1, STR2)
  19 C   INPUT ARGUMENT LIST:
  20 C     STR1     - CHARACTER*(*): FIRST ERROR MESSAGE TO BE WRITTEN VIA
  21 C                SUBROUTINE ERRWRT
  22 C     STR2     - CHARACTER*(*): SECOND ERROR MESSAGE TO BE WRITTEN VIA
  23 C                SUBROUTINE ERRWRT
  24 C
  25 C REMARKS:
  26 C    THIS ROUTINE CALLS:        BORT_EXIT ERRWRT
  27 C    THIS ROUTINE IS CALLED BY: ELEMDX   GETNTBE  MTINFO   PARSTR
  28 C                               PARUSR   PARUTG   RDUSDX   READMT
  29 C                               SEQSDX   SNTBBE   SNTBDE   STRING
  30 C                               UFBINT   UFBOVR   UFBREP   UFBSTP
  31 C                               VALX
  32 C                               Normally not called by any application
  33 C                               programs but it could be.
  34 C
  35 C ATTRIBUTES:
  36 C   LANGUAGE: FORTRAN 77
  37 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  38 C
  39 C$$$
  40
  41       CHARACTER*(*) STR1, STR2
  42
  43       CALL ERRWRT(' ')
  44       CALL ERRWRT('***********BUFR ARCHIVE LIBRARY ABORT**************')
  45       CALL ERRWRT(STR1)
  46       CALL ERRWRT(STR2)
  47       CALL ERRWRT('***********BUFR ARCHIVE LIBRARY ABORT**************')
  48       CALL ERRWRT(' ')
  49
  50       CALL BORT_EXIT
  51
  52       END