search

NOAA-EMC / NCEPLIBS-bufr

The NCEPLIBS-bufr library contains routines and utilites for working with the WMO BUFR format.
Other
44 stars 19 forks source link

complete testing of cnved4.f #348

Closed edwardhartnett closed 1 year ago

edwardhartnett commented 1 year ago

This code is untested:

C       Check for I8 integers.

        IF(IM8B) THEN
           IM8B=.FALSE.

           CALL X84 ( LMSGOT, MY_LMSGOT, 1 )
           CALL CNVED4 ( MSGIN, MY_LMSGOT*2, MSGOT )

           IM8B=.TRUE.
           RETURN
        ENDIF

        IF(IUPBS01(MSGIN,'BEN').EQ.4) THEN

C         The input message is already encoded using edition 4, so just
C         copy it from MSGIN to MSGOT and then return.

          NMW = NMWRD(MSGIN)
          IF(NMW.GT.LMSGOT) GOTO 900
          DO I = 1, NMW
            MSGOT(I) = MSGIN(I)
          ENDDO
          RETURN
        ENDIF