nmwrd.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2005-11-29
    
C> GIVEN AN INTEGER ARRAY CONTAINING SECTION ZERO FROM A
C>   BUFR MESSAGE, THIS FUNCTION DETERMINES A COUNT OF MACHINE WORDS
C>   (I.E. INTEGER ARRAY MEMBERS) THAT WILL HOLD THE ENTIRE MESSAGE.
C>   NOTE THAT THIS COUNT MAY BE GREATER THAN THE MINIMUM NUMBER
C>   OF WORDS REQUIRED TO HOLD THE MESSAGE.
C>
C> PROGRAM HISTORY LOG:
C> 2005-11-29  J. ATOR    -- ORIGINAL AUTHOR
C>
C> USAGE:    NMWRD (MBAY)
C>   INPUT ARGUMENT LIST:
C>     MBAY     - INTEGER: *-WORD ARRAY CONTAINING SECTION ZERO
C>                FROM A BUFR MESSAGE
C>
C>   OUTPUT ARGUMENT LIST:
C>     NMWRD    - INTEGER: BUFR MESSAGE LENGTH (IN MACHINE WORDS)
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        IUPBS01
C>    THIS ROUTINE IS CALLED BY: CNVED4   CPDXMM   LMSG     MSGWRT
C>                               PADMSG   UFBMEM   UFBMEX
C>                               Also called by application programs.
C>
    FUNCTION nmwrd(MBAY)


    
    COMMON /hrdwrd/ nbytw,nbitw,iord(8)

    dimension mbay(*)

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

    lenm = iupbs01(mbay,'LENM')
    IF(lenm.EQ.0) THEN
        nmwrd = 0
    ELSE
        nmwrd = ((lenm/8)+1)*(8/nbytw)
    ENDIF

    RETURN
    END