var/external/bufr/lmsg.f

   1       FUNCTION LMSG(SEC0)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    LMSG
   6 C   PRGMMR: WOOLLEN          ORG: NP20       DATE: 1994-01-06
   7 C
   8 C ABSTRACT: GIVEN A CHARACTER STRING CONTAINING SECTION ZERO FROM A
   9 C   BUFR MESSAGE, THIS FUNCTION DETERMINES A COUNT OF MACHINE WORDS
  10 C   (I.E. INTEGER ARRAY MEMBERS) THAT WILL HOLD THE ENTIRE MESSAGE.
  11 C   NOTE THAT THIS COUNT MAY BE GREATER THAN THE MINIMUM NUMBER
  12 C   OF WORDS REQUIRED TO HOLD THE MESSAGE.
  13 C
  14 C PROGRAM HISTORY LOG:
  15 C 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR
  16 C 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
  17 C                           INTERDEPENDENCIES
  18 C 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
  19 C                           DOCUMENTATION (INCLUDING HISTORY)
  20 C 2004-08-18  J. ATOR    -- IMPROVED DOCUMENTATION
  21 C 2005-11-29  J. ATOR    -- USE NMWRD
  22 C
  23 C USAGE:    LMSG (SEC0)
  24 C   INPUT ARGUMENT LIST:
  25 C     SEC0     - CHARACTER*8: PACKED BUFR MESSAGE SECTION ZERO
  26 C
  27 C   OUTPUT ARGUMENT LIST:
  28 C     LMSG     - INTEGER: BUFR MESSAGE LENGTH (IN MACHINE WORDS)
  29 C
  30 C REMARKS:
  31 C    THIS ROUTINE CALLS:        NMWRD
  32 C    THIS ROUTINE IS CALLED BY: RDMSGB   RDMSGW   READERME
  33 C                               Also called by application programs.
  34 C
  35 C ATTRIBUTES:
  36 C   LANGUAGE: FORTRAN 77
  37 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  38 C
  39 C$$$
  40
  41       CHARACTER*8 SEC0,CSEC0
  42       DIMENSION   MSEC0(2)
  43
  44       EQUIVALENCE(MSEC0,CSEC0)
  45
  46 C-----------------------------------------------------------------------
  47 C-----------------------------------------------------------------------
  48
  49       CSEC0 = SEC0
  50       LMSG = NMWRD(MSEC0)
  51
  52 C  EXIT
  53 C  ----
  54
  55       RETURN
  56       END