var/external/bufr/nmwrd.f

   1         FUNCTION NMWRD(MBAY)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    NMWRD
   6 C   PRGMMR: ATOR             ORG: NP12       DATE: 2005-11-29
   7 C
   8 C ABSTRACT: GIVEN AN INTEGER ARRAY 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 2005-11-29  J. ATOR    -- ORIGINAL AUTHOR
  16 C
  17 C USAGE:    NMWRD (MBAY)
  18 C   INPUT ARGUMENT LIST:
  19 C     MBAY     - INTEGER: *-WORD ARRAY CONTAINING SECTION ZERO
  20 C                FROM A BUFR MESSAGE
  21 C
  22 C   OUTPUT ARGUMENT LIST:
  23 C     NMWRD    - INTEGER: BUFR MESSAGE LENGTH (IN MACHINE WORDS)
  24 C
  25 C REMARKS:
  26 C    THIS ROUTINE CALLS:        IUPBS01
  27 C    THIS ROUTINE IS CALLED BY: CNVED4   CPDXMM   LMSG     MSGWRT
  28 C                               PADMSG   STBFDX   UFBMEM   UFBMEX
  29 C                               Also called by application programs.
  30 C
  31 C ATTRIBUTES:
  32 C   LANGUAGE: FORTRAN 77
  33 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  34 C
  35 C$$$
  36
  37         COMMON /HRDWRD/ NBYTW,NBITW,IORD(8)
  38
  39         DIMENSION MBAY(*)
  40
  41 C-----------------------------------------------------------------------
  42 C-----------------------------------------------------------------------
  43
  44         LENM = IUPBS01(MBAY,'LENM')
  45         IF(LENM.EQ.0) THEN
  46             NMWRD = 0
  47         ELSE
  48             NMWRD = ((LENM/8)+1)*(8/NBYTW)
  49         ENDIF
  50
  51         RETURN
  52         END