30 CHARACTER*128 bort_str1,bort_str2
40 IF(lens.GT.99) goto 900
41 bstr(1:lens) = adjustr(str)
42 WRITE(fmt,
'(''(F'',I2,''.0)'')') lens
44 READ(bstr,fmt,err=800) val
47 800
IF(iprt.GE.0)
THEN
48 CALL
errwrt(
'+++++++++++++++++++++WARNING+++++++++++++++++++++++')
49 CALL
errwrt(
'BUFRLIB: VALX - ERROR READING STRING:')
51 CALL
errwrt(
'RETURN WITH VALX = MISSING')
52 CALL
errwrt(
'+++++++++++++++++++++WARNING+++++++++++++++++++++++')
60 900
WRITE(bort_str1,
'("STRING IS: ",A)') str
61 WRITE(bort_str2,
'("BUFRLIB: VALX - STRING LENGTH EXCEEDS LIMIT '//
62 .
' OF 99 CHARACTERS")')
63 CALL
bort2(bort_str1,bort_str2)
subroutine bort2(STR1, STR2)
This subroutine calls subroutine errwrt() to log two error messages, then calls subroutine bort_exit(...
function valx(STR)
This function decodes a real number from a character string.
This module declares and initializes the BMISS variable.
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...