cpbfdx.f

Go to the documentation of this file.

C> @file
C> @brief Copy DX BUFR table information within internal memory.
C>
C> @author Woollen @date 1994-01-06
 
C> This subroutine copies all of the DX BUFR table information from
C> one unit to another within internal memory.
C>
C> @param[in] LUD - integer: I/O stream index into internal memory
C>                  arrays for input unit.
C> @param[in] LUN - integer: I/O stream index into internal memory
C>                  arrays for output unit.
C>
C> @author Woollen @date 1994-01-06
 
      SUBROUTINE cpbfdx(LUD,LUN)
 
      USE moda_msgcwd
      USE moda_tababd
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C  INITIALIZE THE DICTIONARY TABLE PARTITION
C  -----------------------------------------
 
      CALL dxinit(lun,0)
 
C  COPY ONE TABLE PARTITION TO ANOTHER
C  -----------------------------------
 
c  .... Positional index for Table A mnem.
      inode(lun) = inode(lud)
 
c  .... Set the number of Table A entries
      ntba(lun) = ntba(lud)
c  .... Set the number of Table B entries
      ntbb(lun) = ntbb(lud)
c  .... Set the number of Table D entries
      ntbd(lun) = ntbd(lud)
 
c  .... Copy Table A entries
      DO i=1,ntba(lud)
c  .... Message type
      idna(i,lun,1) = idna(i,lud,1)
c  .... Message subtype
      idna(i,lun,2) = idna(i,lud,2)
c  .... Table A entries
      taba(i,lun) = taba(i,lud)
c  .... Pointer indices into internal tbl
      mtab(i,lun) = mtab(i,lud)
      ENDDO
 
c  .... Copy Table B entries
      DO i=1,ntbb(lud)
c  .... Integer repr. of FXY descr.
      idnb(i,lun) = idnb(i,lud)
c  .... Table B entries
      tabb(i,lun) = tabb(i,lud)
      ENDDO
 
c  .... Copy Table D entries
      DO i=1,ntbd(lud)
c  .... Integer repr. of FXY descr.
      idnd(i,lun) = idnd(i,lud)
c  .... Table B entries
      tabd(i,lun) = tabd(i,lud)
      ENDDO
 
      RETURN
      END