26 SUBROUTINE getntbe ( LUNT, IFXYN, LINE, IRET )
29 character*128 bort_str1, bort_str2
39 IF ( iret .EQ. 0 )
THEN
44 CALL
parstr( line(1:20), tags, 4, ntag,
'|', .false. )
45 IF ( ntag .LT. 1 ) goto 900
46 IF (
igetfxy( tags(1), adsc ) .NE. 0 ) goto 900
55 900 bort_str1 =
'BUFRLIB: GETNTBE - CARD BEGINNING WITH: ' //
57 bort_str2 =
' HAS BAD OR MISSING FXY NUMBER'
58 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 RETURNS THE INTEGER CORRESPONDING TO THE BIT-WISE REPRESENTATION OF AN INPUT CHARACTER ...
function igetntbl(LUNT, LINE)
THIS FUNCTION GETS THE NEXT LINE FROM THE ASCII MASTER TABLE FILE SPECIFIED BY LUNT, IGNORING ANY BLANK LINES OR COMMENT LINES IN THE PROCESS.
subroutine getntbe(LUNT, IFXYN, LINE, IRET)
This subroutine gets the first line of the next entry in the specified ASCII master table B...