NCEPLIBS-bufr
11.7.0
Main Page
Related Pages
Data Types List
Files
File List
Globals
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> | Date | Programmer | Comments |
37
C> | -----|------------|----------|
38
C> | 1998-07-08 | J. Woollen | Original author |
39
C> | 2009-04-21 | J. Ator | Use errwrt() |
40
C>
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
errwrt
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
Definition:
errwrt.f:41
openbt
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:41
nceplibs-bufr
src
openbt.f
Generated by
1.8.5