NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
codflg.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Specify inclusion of code and flag tables when reading
3 C> master BUFR tables.
4 
5 C> This subroutine is used to specify whether or not code and flag
6 C> table information should be included during all future reads of
7 C> master BUFR tables.
8 C>
9 C> @author J. Ator
10 C> @date 2017-10-13
11 C>
12 C> @param[in] CF - character*1: Flag indicating whether
13 C> or not to include code and flag table
14 C> information during all future reads of
15 C> master BUFR tables
16 C> - 'N' = No (the default)
17 C> - 'Y' = Yes
18 C>
19 C> <p>See [Master BUFR Tables](@ref dfbfmstab)
20 C> for more information about master BUFR tables. In particlar, note
21 C> that Table B and Table D files are always read whenever master BUFR
22 C> tables are being used, but the reading of Code/Flag table files is
23 C> optional and should only be included if the user intends to make
24 C> one or more future calls to subroutine getcfmng(); otherwise, the
25 C> reading of Code/Flag table files will result in the unnecessary use
26 C> of memory and other system resources.
27 C>
28 C> <p>If Code/Flag tables are to be read and used, they must reside in
29 C> the same directory as the master Table B and Table D files on the
30 C> local filesystem, as specified within a separate call to
31 C> subroutine mtinfo().
32 C>
33 C> <p>This subroutine can be called at any time after the first call
34 C> to subroutine openbf(), and the specified value for CF will remain
35 C> in effect for all future reads of master BUFR tables, unless a
36 C> subsequent call is made to this subroutine to reset the value of
37 C> CF again. If this subroutine is never called, a default value of
38 C> 'N' is used for CF, as set within subroutine bfrini().
39 C>
40 C> <b>Program history log:</b>
41 C> - 2017-10-13 J. Ator -- Original author
42 C>
43  SUBROUTINE codflg(CF)
44 
45  COMMON /tablef/ cdmf
46 
47  CHARACTER*128 bort_str
48  CHARACTER*1 cdmf, cf
49 
50 C-----------------------------------------------------------------------
51 C-----------------------------------------------------------------------
52 
53  CALL capit(cf)
54  IF(cf.NE.'Y'.AND. cf.NE.'N') goto 900
55  cdmf = cf
56 
57 C EXITS
58 C -----
59 
60  RETURN
61 900 WRITE(bort_str,'("BUFRLIB: CODFLG - INPUT ARGUMENT IS ",A1,'//
62  . '", IT MUST BE EITHER Y OR N")') cf
63  CALL bort(bort_str)
64  END
subroutine codflg(CF)
This subroutine is used to specify whether or not code and flag table information should be included ...
Definition: codflg.f:43
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
Definition: bort.f:23
subroutine capit(STR)
THIS SUBROUTINE CAPITALIZES A STRING OF CHARACTERS.
Definition: capit.f:39