stdmsg.f

Go to the documentation of this file.

C> @file
C> @brief Specify the use of standardization when writing BUFR messages.

C> This subroutine is used to specify whether BUFR messages output by
C> future calls to [message-writing subroutines](@ref hierarchy) and
C> [subset-writing subroutines](@ref hierarchy) should be internally
C> reformatted to remove all BUFRLIB software extensions to the
C> WMO standard, prior to actually writing each message. 
C>
C> <p>It is strongly recommended to use this subroutine (or,
C> alternatively, subroutine stndrd() for messages which already exist
C> in memory arrays) whenever BUFR messages are being written that will
C> potentially be read using software other than the BUFRLIB software.
C> Otherwise, by default the output messages will contain a number of
C> extensions to allow for faster reading and more efficient storage,
C> but which will be encoded using non-standard descriptors in
C> Section 3, and therefore likely be unrecognizable to other software
C> packages.
C>
C> <p>This subroutine can be called at any time after the first call
C> to subroutine openbf(), and the specified value for CF will remain
C> in effect for all future calls to 
C> [message-writing subroutines](@ref hierarchy) and
C> [subset-writing subroutines](@ref hierarchy) for all Fortran logical
C> units that are open for output within the application program,
C> unless a subsequent call is made to this subroutine to reset the
C> value of CF again.  If this subroutine is never called, a default
C> value of 'N' is used for CF, as set within subroutine bfrini().
C>
C> @author J. Ator
C> @date 2004-08-18
C>
C> @param[in] CF   -- character*1: Flag indicating whether future BUFR
C>                    output messages are to be standardized
C>                     - 'N' = No (the default)
C>                     - 'Y' = Yes
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2004-08-18 | J. Ator | Original author |
C>
      SUBROUTINE stdmsg(CF)

      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