<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='ERRWRT'><A href='../../html_code/bufr/errwrt.f.html#ERRWRT' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
SUBROUTINE ERRWRT(STR) 418,12
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: ERRWRT
C PRGMMR: J. ATOR ORG: NP12 DATE: 2009-04-21
C
C ABSTRACT: THIS SUBROUTINE WRITES A GIVEN ERROR OR OTHER DIAGNOSTIC
C MESSAGE TO A USER-SPECIFIED LOGICAL UNIT. AS DISTRIBUTED WITHIN
C THE BUFR ARCHIVE LIBRARY, THIS SUBROUTINE WILL WRITE ANY SUCH
C MESSAGES TO STANDARD OUTPUT; HOWEVER, APPLICATION PROGRAMS MAY
C SUBSTITUTE AN IN-LINE VERSION OF ERRWRT (OVERRIDING THIS ONE) IN
C ORDER TO DEFINE AN ALTERNATE DESTINATION FOR SUCH MESSAGES.
C
C PROGRAM HISTORY LOG:
C 2009-04-21 J. ATOR -- ORIGINAL AUTHOR
C 2012-11-15 D. KEYSER -- USE FORMATTED PRINT
C
C USAGE: CALL ERRWRT
(STR)
C INPUT ARGUMENT LIST:
C STR - CHARACTER*(*): ERROR MESSAGE TO BE PRINTED TO
C STANDARD OUTPUT (DEFAULT) OR TO ANOTHER DESTINATION
C (IF SPECIFIED BY THE USER APPLICATION VIA AN IN-LINE
C REPLACEMENT FOR THIS SUBROUTINE)
C
C OUTPUT FILES:
C UNIT 06 - STANDARD OUTPUT PRINT
C
C REMARKS:
C THIS ROUTINE CALLS: None
C THIS ROUTINE IS CALLED BY: BORT BORT2 CKTABA CPDXMM
C DATEBF DUMPBF INVCON INVTAG
C INVWIN JSTNUM MAKESTAB MAXOUT
C MRGINV MSGUPD MSGWRT NVNWIN
C OPENBF OPENBT PKTDD RDBFDX
C RDMEMM RDMEMS READDX READERME
C READLC READMG READMT READS3
C STRNUM STRSUC UFBEVN UFBIN3
C UFBINT UFBMEM UFBMEX UFBOVR
C UFBREP UFBRMS UFBRW UFBSEQ
C UFBSTP UFBTAB UFBTAM USRTPL
C VALX WRDLEN
C Can also be called by application
C programs using an in-line version.
C
C ATTRIBUTES:
C LANGUAGE: FORTRAN 77
C MACHINE: PORTABLE TO ALL PLATFORMS
C
C$$$
CHARACTER*(*) STR
PRINT'(1X,A)',STR
RETURN
END