30 SUBROUTINE getntbe ( LUNT, IFXYN, LINE, IRET )
33 character*128 bort_str1, bort_str2
43 IF ( iret .EQ. 0 )
THEN
48 CALL
parstr( line(1:20), tags, 4, ntag,
'|', .false. )
49 IF ( ntag .LT. 1 ) goto 900
50 IF (
igetfxy( tags(1), adsc ) .NE. 0 ) goto 900
59 900 bort_str1 =
'BUFRLIB: GETNTBE - CARD BEGINNING WITH: ' //
61 bort_str2 =
' HAS BAD OR MISSING FXY NUMBER'
62 CALL
bort2(bort_str1,bort_str2)
subroutine parstr(STR, TAGS, MTAG, NTAG, SEP, LIMIT80)
THIS SUBROUTINE PARSES A STRING CONTAINING ONE OR MORE SUBSTRINGS INTO AN ARRAY OF SUBSTRINGS...
subroutine bort2(STR1, STR2)
This subroutine calls subroutine errwrt() to log two error messages, then calls subroutine bort_exit(...
function igetfxy(STR, CFXY)
THIS FUNCTION LOOKS FOR AND RETURNS A VALID FXY NUMBER FROM WITHIN THE GIVEN INPUT STRING...
function ifxy(ADSC)
This function converts an FXY value from its 6 character representation to its bit-wise (integer) rep...
function igetntbl(LUNT, LINE)
This subroutine reads the next line from an ASCII master table B, table D or Code/Flag table file...
subroutine getntbe(LUNT, IFXYN, LINE, IRET)
This subroutine reads the first line of the next entry from the specified ASCII master table B...