nenubd.f

Go to the documentation of this file.

C> @file
C> @brief Confirm that a mnemonic and FXY value haven't already been defined.
C>
C> @author J. Woollen @date 1994-01-06
 
C> Confirm that a mnemonic and FXY value haven't already been defined.
C>
C> This subroutine checks a mnemonic and FXY value pair that were read
C> from a user-supplied BUFR DX dictionary table in character format,
C> in order to make sure that neither value has already been
C> defined within internal BUFR table B or D (in module @ref moda_tababd) for
C> the given LUN. If either value has already been defined for this
C> LUN, then an appropriate call is made to BUFR archive library
C> subroutine bort().
C>
C> @param[in] NEMO - character*8: Mnemonic.
C> @param[in] NUMB - character*6: FXY value associated with NEMO.
C> @param[in] LUN - integer: File ID.
C>
C> @author J. Woollen @date 1994-01-06
      SUBROUTINE nenubd(NEMO,NUMB,LUN)
 
      USE moda_tababd
 
      CHARACTER*128 BORT_STR
      CHARACTER*8   NEMO
      CHARACTER*6   NUMB
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
C  CHECK TABLE B AND D
C  -------------------
 
      DO n=1,ntbb(lun)
      IF(numb.EQ.tabb(n,lun)(1: 6)) GOTO 900
      IF(nemo.EQ.tabb(n,lun)(7:14)) GOTO 901
      ENDDO
 
      DO n=1,ntbd(lun)
      IF(numb.EQ.tabd(n,lun)(1: 6)) GOTO 902
      IF(nemo.EQ.tabd(n,lun)(7:14)) GOTO 903
      ENDDO
 
C  EXITS
C  -----
 
      RETURN
900   WRITE(bort_str,'("BUFRLIB: NENUBD - TABLE B FXY VALUE (",A,") '//
     . 'HAS ALREADY BEEN DEFINED (DUPLICATE)")') numb
      CALL bort(bort_str)
901   WRITE(bort_str,'("BUFRLIB: NENUBD - TABLE B MNEMONIC (",A,") '//
     . 'HAS ALREADY BEEN DEFINED (DUPLICATE)")') nemo
      CALL bort(bort_str)
902   WRITE(bort_str,'("BUFRLIB: NENUBD - TABLE D FXY VALUE (",A,") '//
     . 'HAS ALREADY BEEN DEFINED (DUPLICATE)")') numb
      CALL bort(bort_str)
903   WRITE(bort_str,'("BUFRLIB: NENUBD - TABLE D MNEMONIC (",A,") '//
     . 'HAS ALREADY BEEN DEFINED (DUPLICATE)")') nemo
      CALL bort(bort_str)
      END