28 character*160 stline, ltline
29 character*128 bort_str
30 character*6 cmatch,
adn30
47 CALL
gettbh( lunstf, lunltf,
'F', imt, imtv, iogce, iltv )
52 CALL
getntbe( lunstf, isfxyn, stline, iers )
53 CALL
getntbe( lunltf, ilfxyn, ltline, ierl )
54 DO WHILE ( ( iers .EQ. 0 ) .OR. ( ierl .EQ. 0 ) )
55 IF ( ( iers .EQ. 0 ) .AND. ( ierl .EQ. 0 ) )
THEN
56 IF ( isfxyn .EQ. ilfxyn )
THEN
57 cmatch =
adn30( isfxyn, 6 )
59 ELSE IF ( isfxyn .LT. ilfxyn )
THEN
60 CALL
sntbfe( lunstf, isfxyn, stline )
61 CALL
getntbe( lunstf, isfxyn, stline, iers )
63 CALL
sntbfe( lunltf, ilfxyn, ltline )
64 CALL
getntbe( lunltf, ilfxyn, ltline, ierl )
66 ELSE IF ( iers .EQ. 0 )
THEN
67 CALL
sntbfe( lunstf, isfxyn, stline )
68 CALL
getntbe( lunstf, isfxyn, stline, iers )
69 ELSE IF ( ierl .EQ. 0 )
THEN
70 CALL
sntbfe( lunltf, ilfxyn, ltline )
71 CALL
getntbe( lunltf, ilfxyn, ltline, ierl )
80 900
WRITE(bort_str,
'("BUFRLIB: RDMTBF - STANDARD AND LOCAL'//
81 .
' CODE/FLAG TABLE FILES BOTH CONTAIN SAME FXY NUMBER: ",5A)')
82 . cmatch(1:1),
'-', cmatch(2:3),
'-', cmatch(4:6)
void sorttbf(void)
This subroutine sorts the entries within the internal memory structure for storage of master Code/Fla...
void inittbf(void)
This subroutine initializes the internal memory structure for storage of master Code/Flag table entri...
subroutine rdmtbf(LUNSTF, LUNLTF)
This subroutine reads master Code/Flag table information from two separate ASCII files (one standard ...
subroutine gettbh(LUNS, LUNL, TAB, IMT, IMTV, IOGCE, ILTV)
This subroutine reads the header lines from two separate ASCII files (one standard and one local) con...
character *(*) function adn30(IDN, L30)
This function converts an FXY value from its bit-wise (integer) representation to its 5 or 6 characte...
subroutine wrdlen
This subroutine figures out some important information about the local machine on which the BUFRLIB s...
subroutine sntbfe(LUNT, IFXYN, LINE)
This subroutine stores the first line of an entry that was previously read from an ASCII master Code/...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine getntbe(LUNT, IFXYN, LINE, IRET)
This subroutine reads the first line of the next entry from the specified ASCII master table B...