NCEPLIBS-bufr  11.6.0
 All Data Structures Files Functions Variables Pages
nemtba.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Search for a Table A descriptor within the internal DX
3 C> BUFR tables
4 
5 C> This subroutine searches for a descriptor within Table A of the
6 C> internal DX BUFR tables.
7 C>
8 C> <p>It is similar to subroutine nemtbax(), except that it calls
9 C> subroutine bort() if the descriptor is not found in Table A,
10 C> whereas nemtbax() will return an INOD value of 0 in such cases.
11 C>
12 C> @author J. Woollen
13 C> @date 1994-01-06
14 C>
15 C> @param[in] LUN -- integer: Internal I/O stream index associated
16 C> with DX BUFR tables
17 C> @param[in] NEMO -- character*(*): Mnemonic for Table A descriptor
18 C> @param[out] MTYP -- integer: Message type corresponding to NEMO
19 C> @param[out] MSBT -- integer: Message subtype corresponding to NEMO
20 C> @param[out] INOD -- integer: Positional index of NEMO within
21 C> internal Table A
22 C>
23 C> <b>Program history log:</b>
24 C> | Date | Programmer | Comments |
25 C> | -----|------------|----------|
26 C> | 1994-01-06 | J. Woollen | Original author |
27 C> | 1995-06-28 | J. Woollen | Increased the size of internal BUFR table arrays in order to handle bigger files |
28 C> | 1998-07-08 | J. Woollen | Replaced call to Cray library routine "ABORT" with call to new internal routine bort() |
29 C> | 1999-11-18 | J. Woollen | The number of bufr files which can be opened at one time increased from 10 to 32 |
30 C> | 2003-11-04 | J. Ator | Added documentation |
31 C> | 2003-11-04 | S. Bender | Added remarks/bufrlib routine interdependencies |
32 C> | 2003-11-04 | D. Keyser | Unified/portable for WRF; added documentation; outputs more complete diagnostic info when routine terminates abnormally |
33 C> | 2009-05-07 | J. Ator | Use nemtbax |()
34 C>
35  SUBROUTINE nemtba(LUN,NEMO,MTYP,MSBT,INOD)
36 
37  CHARACTER*(*) nemo
38  CHARACTER*128 bort_str
39 
40 C-----------------------------------------------------------------------
41 C-----------------------------------------------------------------------
42 
43 C LOOK FOR NEMO IN TABLE A
44 C ------------------------
45 
46  CALL nemtbax(lun,nemo,mtyp,msbt,inod)
47  IF(inod.EQ.0) goto 900
48 
49 C EXITS
50 C -----
51 
52  RETURN
53 900 WRITE(bort_str,'("BUFRLIB: NEMTBA - CAN''T FIND MNEMONIC ",A)')
54  . nemo
55  CALL bort(bort_str)
56  END
subroutine nemtbax(LUN, NEMO, MTYP, MSBT, INOD)
This subroutine searches for a descriptor within Table A of the internal DX BUFR tables.
Definition: nemtbax.f:33
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
Definition: bort.f:22
subroutine nemtba(LUN, NEMO, MTYP, MSBT, INOD)
This subroutine searches for a descriptor within Table A of the internal DX BUFR tables.
Definition: nemtba.f:35