NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
openbt.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Specify DX BUFR table file of last resort.
3 
4 C> This subroutine is called as a last resort from within subroutine
5 C> cktaba(), in the event the latter subroutine is unable to locate
6 C> a DX BUFR table for use in reading/decoding a given BUFR message.
7 C>
8 C> <p>Within the BUFRLIB distribution package, this subroutine
9 C> is a default placeholder which always returns LUNDX = 0
10 C> and is only included to allow application programs to compile
11 C> without generating a link error for an unresolved external
12 C> reference. However, users are free to define their own inline
13 C> version of this subroutine with the same name and calling sequence
14 C> and include it within the compilation of their application program
15 C> in order to override the default placeholder version of this
16 C> subroutine. In such cases, subroutine cktaba() will then use
17 C> the inline version of this subroutine as a last resort when
18 C> attempting to locate the required DX BUFR table file.
19 C>
20 C> @author J. Woollen
21 C> @date 1998-07-08
22 C>
23 C> @param[in] MTYP - integer: Data category of BUFR message for which
24 C> subroutine cktaba() was unable to locate a
25 C> DX BUFR table file
26 C> @param[out] LUNDX - integer: Fortran logical unit number for file
27 C> containing DX BUFR table information to be
28 C> used in decoding message
29 C> - 0 = No such file is available
30 C>
31 C> @remarks
32 C> - See [DX BUFR Tables](@ref dfbftab) for more information about
33 C> the format and contents of DX BUFR table files.
34 C>
35 C> <b>Program history log:</b>
36 C> - 1998-07-08 J. Woollen -- Original author
37 C> - 2009-04-21 J. Ator -- Use errwrt()
38 C>
39  SUBROUTINE openbt(LUNDX,MTYP)
40 
41  COMMON /quiet / iprt
42 
43  CHARACTER*128 errstr
44 
45  IF(iprt.GE.0) THEN
46  CALL errwrt('+++++++++++++++++++++WARNING+++++++++++++++++++++++')
47  errstr = 'BUFRLIB: OPENBT - THIS IS A DUMMY BUFRLIB ROUTINE'//
48  . ' CALLED BY CKTABA OR APPL. PGM; OPENBT SHOULD BE INCL.'//
49  . ' IN-LINE IN APPL. PGM'
50  CALL errwrt(errstr)
51  CALL errwrt('+++++++++++++++++++++WARNING+++++++++++++++++++++++')
52  CALL errwrt(' ')
53  ENDIF
54 
55  lundx = 0
56 
57  RETURN
58  END
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
Definition: errwrt.f:39
subroutine openbt(LUNDX, MTYP)
This subroutine is called as a last resort from within subroutine cktaba(), in the event the latter s...
Definition: openbt.f:39