rdmsgw.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2005-11-29
      
C> THIS SUBROUTINE READS THE NEXT BUFR MESSAGE FROM LOGICAL
C>   UNIT LUNIT AS AN ARRAY OF INTEGER WORDS.
C>
C> PROGRAM HISTORY LOG:
C> 2005-11-29  J. ATOR    -- ORIGINAL AUTHOR
C> 2009-03-23  D. KEYSER  -- CALL BORT IN CASE OF MESG OVERFLOW
C> 2012-09-15  J. WOOLLEN -- CONVERT TO C LANGUAGE I/O INTERFACE;
C>                           USE C ROUTINE CRDBUFR TO OBTAIN BUFR 
C>                           MESSAGE; REMOVE CODE WHICH CHECKS SEC0
C>                           AND MESSAGE LENGTH AS CRDBUFR DOES THAT
C>
C> USAGE:    CALL RDMSGW (LUNIT, MESG, IRET)
C>   INPUT ARGUMENT LIST:
C>     LUNIT    - INTEGER: FORTRAN LOGICAL UNIT NUMBER FOR BUFR FILE
C>
C>   OUTPUT ARGUMENT LIST:
C>     MESG     - *-WORD ARRAY CONTAINING BUFR MESSAGE READ FROM LUNIT
C>     IRET     - INTEGER: RETURN CODE:
C>                       0 = normal return
C>                      -1 = end-of-file encountered while reading
C>                           from LUNIT
C>
C>   INPUT FILES:
C>     UNIT "LUNIT" - BUFR FILE
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        CRDBUFR  ERRWRT   STATUS
C>    THIS ROUTINE IS CALLED BY: COPYBF   CPDXMM   DATEBF   DUMPBF
C>                               MESGBC   MESGBF   POSAPX   RDBFDX
C>                               READMG   UFBMEM   UFBMEX
C>                               Normally not called by any application
C>                               programs.
C>
      SUBROUTINE rdmsgw(LUNIT,MESG,IRET)
 
      USE modv_mxmsgl
 
      COMMON /hrdwrd/ nbytw,nbitw,iord(8)
 
      dimension   mesg(*)
 
      CHARACTER*128 BORT_STR
      INTEGER CRDBUFR
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
      CALL status(lunit,lun,il,im)
1     iret=crdbufr(lun,mesg,mxmsgl)
      IF(iret.eq.-3)
     +   CALL errwrt('BUFRLIB: RDMSGW - SKIPPING OVERLARGE MESSAGE')
      IF(iret.eq.-2)
     +   CALL errwrt('BUFRLIB: RDMSGW - SKIPPING CORRUPTED MESSAGE')
      IF(iret.LT.-1) GOTO 1
      RETURN
      END