34 SUBROUTINE atrcpt(MSGIN,LMSGOT,MSGOT)
36 dimension msgin(*), msgot(*)
38 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
39 COMMON /tnkrcp/ itryr,itrmo,itrdy,itrhr,itrmi,ctrt
48 CALL
getlens(msgin,1,len0,len1,l2,l3,l4,l5)
59 IF(lenmot.GT.(lmsgot*nbytw)) goto 900
65 CALL
mvb( msgin, 1, msgot, 1, 4 )
67 CALL
pkb( lenmot, 24, msgot, ibit )
68 CALL
mvb( msgin, 8, msgot, 8, 1 )
73 CALL
pkb( len1ot, 24, msgot, ibit )
78 CALL
mvb( msgin, iad1+4, msgot, (ibit/8)+1, len1-3 )
83 CALL
pkb( itryr, 16, msgot, ibit )
84 CALL
pkb( itrmo, 8, msgot, ibit )
85 CALL
pkb( itrdy, 8, msgot, ibit )
86 CALL
pkb( itrhr, 8, msgot, ibit )
87 CALL
pkb( itrmi, 8, msgot, ibit )
92 CALL
mvb( msgin, iad2+1, msgot, (ibit/8)+1, lenm-iad2 )
95 900 CALL
bort(
'BUFRLIB: ATRCPT - OVERFLOW OF OUTPUT MESSAGE '//
96 .
'ARRAY; TRY A LARGER DIMENSION FOR THIS ARRAY')
subroutine mvb(IB1, NB1, IB2, NB2, NBM)
THIS SUBROUTINE COPIES A SPECIFIED NUMBER OF BYTES FROM ONE PACKED BINARY ARRAY TO ANOTHER...
subroutine getlens(MBAY, LL, LEN0, LEN1, LEN2, LEN3, LEN4, LEN5)
This subroutine reads the lengths of all of the individual sections of a given BUFR message...
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...
subroutine atrcpt(MSGIN, LMSGOT, MSGOT)
This subroutine reads an input message and outputs an equivalent BUFR message with a tank receipt tim...
function iupbs01(MBAY, S01MNEM)
This function returns a specified value from within Section 0 or Section 1 of a BUFR message...