writdx.f

Go to the documentation of this file.

C> @file
C> @brief Write DX BUFR tables messages to the beginning of a
C> BUFR file.
C>
C> @author Woollen @date 1994-01-06
 
C> Write DX BUFR tables messages to the beginning of a BUFR file.
C>
C> This subroutine writes BUFR table (dictionary) messages to
C> the beginning of an output BUFR file in lunit. The table messages
C> are read from arrays in internal memory (module @ref moda_tababd).
C> An initial call to BUFR archive library subroutine readdx() generates
C> these internal arrays.
C>
C> @param[in] lunit - integer: fortran logical unit number for BUFR
C> file being written.
C> @param[in] lun - integer: file ID of open BUFR file.
C> @param[in] lundx - integer: fortran logical unit number containing
C> dictionary table information to be used (by readdx()) to create
C> internal tables written to lunit; if set equal to lunit, this
C> subroutine calls bort().
C>
C> @author Woollen @date 1994-01-06
 
      SUBROUTINE writdx(LUNIT,LUN,LUNDX)
 
      CHARACTER*128 BORT_STR
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C  CHECK UNITS, TABLE MUST BE COMING FROM AN INPUT FILE
C  ----------------------------------------------------
 
      IF(lunit.EQ.lundx) GOTO 900
 
C  MUST FIRST CALL READDX TO GENERATE INTERNAL DICTIONARY TABLE ARRAYS
C  -------------------------------------------------------------------
 
      CALL readdx(lunit,lun,lundx)
 
C  NOW CALL WRDXTB TO WRITE OUT DICTIONARY MESSAGES FROM THESE ARRAYS
C  ------------------------------------------------------------------
 
      CALL wrdxtb(lunit,lunit)
 
C  EXITS
C  -----
 
      RETURN
900   WRITE(bort_str,'("BUFRLIB: WRITDX - FILES CONTAINING BUFR DATA '//
     . 'AND DICTIONARY TABLE CANNOT BE THE SAME (HERE BOTH SHARE '//
     . 'FORTRAN UNIT NUMBER ",I3,")")') lunit
      CALL bort(bort_str)
      END