32 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
43 IF(nmw.GT.lmesg) goto 900
49 npbyt = ( nmw * nbytw ) - nmb
51 CALL
pkb(0,8,mesg,ibit)
55 900 CALL
bort(
'BUFRLIB: PADMSG - CANNOT ADD PADDING TO MESSAGE '//
56 .
'ARRAY; TRY A LARGER DIMENSION FOR THIS ARRAY')
function nmwrd(MBAY)
GIVEN AN INTEGER ARRAY CONTAINING SECTION ZERO FROM A BUFR MESSAGE, THIS FUNCTION DETERMINES A COUNT ...
subroutine padmsg(MESG, LMESG, NPBYT)
THIS SUBROUTINE PADS A BUFR MESSAGE WITH ZEROED-OUT BYTES FROM THE END OF THE MESSAGE UP TO THE NEXT ...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine pkb(NVAL, NBITS, IBAY, IBIT)
This subroutine encodes an integer value within a specified number of bits of an integer array...
function iupbs01(MBAY, S01MNEM)
This function returns a specified value from within Section 0 or Section 1 of a BUFR message...