var/external/bufr/stdmsg.f

   1       SUBROUTINE STDMSG(CF)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    STDMSG
   6 C   PRGMMR: ATOR            ORG: NP12       DATE: 2004-08-18
   7 C
   8 C ABSTRACT: THIS SUBROUTINE IS USED TO SPECIFY WHETHER OR NOT BUFR
   9 C   MESSAGES THAT WILL BE OUTPUT BY FUTURE CALLS TO ANY OF THE BUFR
  10 C   ARCHIVE LIBRARY SUBROUTINES WHICH CREATE SUCH MESSAGES (E.G. WRITCP,
  11 C   WRITSB, COPYMG, WRITSA, ETC.) ARE TO BE "STANDARDIZED".  SEE THE
  12 C   DOCUMENTATION BLOCK WITHIN BUFR ARCHIVE LIBRARY SUBROUTINE STNDRD
  13 C   FOR AN EXPLANATION OF WHAT "STANDARDIZATION" MEANS.  THIS SUBROUTINE
  14 C   CAN BE CALLED AT ANY TIME AFTER THE FIRST CALL TO BUFR ARCHIVE
  15 C   LIBRARY SUBROUTINE OPENBF, AND THE POSSIBLE VALUES FOR CF ARE 'N'
  16 C   (= 'NO', WHICH IS THE DEFAULT) AND 'Y' (= 'YES').
  17 C
  18 C PROGRAM HISTORY LOG:
  19 C 2004-08-18  J. ATOR    -- ORIGINAL AUTHOR
  20 C
  21 C USAGE:    CALL STDMSG (CF)
  22 C   INPUT ARGUMENT LIST:
  23 C     CF       - CHARACTER*1: FLAG INDICATING WHETHER BUFR MESSAGES
  24 C                OUTPUT BY FUTURE CALLS TO WRITCP, WRITSB, COPYMG, ETC.
  25 C                SHOULD BE "STANDARDIZED":
  26 C                       'N' = 'NO' (THE DEFAULT)
  27 C                       'Y' = 'YES'
  28 C
  29 C REMARKS:
  30 C    THIS ROUTINE CALLS:        BORT     CAPIT
  31 C    THIS ROUTINE IS CALLED BY: None
  32 C                               Normally called only by application
  33 C                               programs.
  34 C
  35 C ATTRIBUTES:
  36 C   LANGUAGE: FORTRAN 77
  37 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  38 C
  39 C$$$
  40
  41       COMMON /MSGSTD/ CSMF
  42
  43       CHARACTER*128 BORT_STR
  44       CHARACTER*1   CSMF, CF
  45
  46 C-----------------------------------------------------------------------
  47 C-----------------------------------------------------------------------
  48
  49       CALL CAPIT(CF)
  50       IF(CF.NE.'Y'.AND. CF.NE.'N') GOTO 900
  51       CSMF = CF
  52
  53 C  EXITS
  54 C  -----
  55
  56       RETURN
  57 900   WRITE(BORT_STR,'("BUFRLIB: STDMSG - INPUT ARGUMENT IS ",A1,'//
  58      . '", IT MUST BE EITHER Y OR N")') CF
  59       CALL BORT(BORT_STR)
  60       END