27 SUBROUTINE ipkm(CBAY,NBYT,N)
29 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
31 CHARACTER*128 bort_str
38 IF(nbyt.GT.nbytw) goto 900
44 int =
irev(ishft(n,(nbytw-nbyt)*8))
53 900
WRITE(bort_str,
'("BUFRLIB: IPKM - NUMBER OF BYTES BEING PACKED '//
54 .
', NBYT (",I4,"), IS > THE INTEGER WORD LENGTH ON THIS '//
55 .
'MACHINE, NBYTW (",I3,")")') nbyt,nbytw
function irev(N)
THIS FUNCTION WILL, WHEN THE LOCAL MACHINE IS "LITTLE- ENDIAN" (I.E., USES A RIGHT TO LEFT SCHEME ...
subroutine ipkm(CBAY, NBYT, N)
This subroutine encodes an integer value within a specified number of bytes of a character string...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...