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