44 IF(num.EQ.-1) goto 100
47 READ(str(i:i),
'(I1)',err=99) j
48 IF(j.EQ.0 .AND. str(i:i).NE.
'0') goto 99
61 CALL
errwrt(
'++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
62 CALL
errwrt(
'BUFRLIB: STRNUM - BAD DECODE; RETURN WITH NUM = -1')
63 CALL
errwrt(
'++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
subroutine strsuc(STR1, STR2, LENS)
This subroutine removes leading and trailing blanks from a character string.
subroutine strnum(STR, NUM)
This subroutine decodes an integer from a character string.
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...