ufbqcp.f

Go to the documentation of this file.

C> @file
C> @brief Get the Table D mnemonic associated with an event program
C> code from an NCEP prepbufr file.
C>
C> @author J. Woollen @date 1994-01-06
 
C> Get the Table D mnemonic associated with an event program
C> code from an NCEP prepbufr file.
C>
C> Given an event program code, which is equivalent to the Y value
C> of a category 63 Table D descriptor from an NCEP
C> prepbufr file, this subroutine returns the corresponding
C> mnemonic.
C>
C> Logical unit LUNIT should have already been opened via a previous
C> call to subroutine openbf().
C>
C> This subroutine is the logical inverse of subroutine ufbqcd().
C>
C> @param[in] LUNIT - integer: Fortran logical unit number for
C> NCEP prepbufr file.
C> @param[in] IQCP - integer: Y value of a category 63 (i.e. X=63)
C> Table D descriptor.
C> @param[out] NEMO - character*(*): Mnemonic associated with IQCP.
C>
C> @author J. Woollen @date 1994-01-06
      RECURSIVE SUBROUTINE ufbqcp(LUNIT,IQCP,NEMO)
 
      USE modv_im8b
 
      CHARACTER*(*) nemo
      CHARACTER*1   tab
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C  CHECK FOR I8 INTEGERS
C  ---------------------
 
      IF(im8b) THEN
         im8b=.false.
 
         CALL x84(lunit,my_lunit,1)
         CALL x84(iqcp,my_iqcp,1)
         CALL ufbqcp(my_lunit,my_iqcp,nemo)
 
         im8b=.true.
         RETURN
      ENDIF
 
      CALL status(lunit,lun,il,im)
      IF(il.EQ.0) GOTO 900
 
      idn = ifxy('363000')+iqcp
c  .... get NEMO from IDN
      CALL numtab(lun,idn,nemo,tab,iret)
 
C  EXITS
C  -----
 
      RETURN
900   CALL bort('BUFRLIB: UFBQCP - BUFR FILE IS CLOSED, IT MUST BE'//
     . ' OPEN')
      END