<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='STDMSG'><A href='../../html_code/bufr/stdmsg.f.html#STDMSG' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
SUBROUTINE STDMSG(CF) 1
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: STDMSG
C PRGMMR: ATOR ORG: NP12 DATE: 2004-08-18
C
C ABSTRACT: THIS SUBROUTINE IS USED TO SPECIFY WHETHER OR NOT BUFR
C MESSAGES THAT WILL BE OUTPUT BY FUTURE CALLS TO ANY OF THE BUFR
C ARCHIVE LIBRARY SUBROUTINES WHICH CREATE SUCH MESSAGES (E.G. WRITCP,
C WRITSB, COPYMG, WRITSA, ETC.) ARE TO BE "STANDARDIZED". SEE THE
<A NAME='STNDRD'><A href='../../html_code/bufr/stdmsg.f.html#STNDRD' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
C DOCUMENTATION BLOCK WITHIN BUFR ARCHIVE LIBRARY SUBROUTINE STNDRD 2,27
C FOR AN EXPLANATION OF WHAT "STANDARDIZATION" MEANS. THIS SUBROUTINE
C CAN BE CALLED AT ANY TIME AFTER THE FIRST CALL TO BUFR ARCHIVE
C LIBRARY SUBROUTINE OPENBF, AND THE POSSIBLE VALUES FOR CF ARE 'N'
C (= 'NO', WHICH IS THE DEFAULT) AND 'Y' (= 'YES').
C
C PROGRAM HISTORY LOG:
C 2004-08-18 J. ATOR -- ORIGINAL AUTHOR
C
C USAGE: CALL STDMSG
(CF)
C INPUT ARGUMENT LIST:
C CF - CHARACTER*1: FLAG INDICATING WHETHER BUFR MESSAGES
C OUTPUT BY FUTURE CALLS TO WRITCP, WRITSB, COPYMG, ETC.
C SHOULD BE "STANDARDIZED":
C 'N' = 'NO' (THE DEFAULT)
C 'Y' = 'YES'
C
C REMARKS:
C THIS ROUTINE CALLS: BORT CAPIT
C THIS ROUTINE IS CALLED BY: None
C Normally called only by application
C programs.
C
C ATTRIBUTES:
C LANGUAGE: FORTRAN 77
C MACHINE: PORTABLE TO ALL PLATFORMS
C
C$$$
COMMON /MSGSTD/ CSMF
CHARACTER*128 BORT_STR
CHARACTER*1 CSMF, CF
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
CALL CAPIT(CF)
IF(CF.NE.'Y'.AND. CF.NE.'N') GOTO 900
CSMF = CF
C EXITS
C -----
RETURN
900 WRITE(BORT_STR,'("BUFRLIB: STDMSG - INPUT ARGUMENT IS ",A1,'//
. '", IT MUST BE EITHER Y OR N")') CF
CALL BORT(BORT_STR)
END