25 CHARACTER*(*) str1,str2
39 IF(str1(i:i).NE.
' ') goto 2
48 IF(str1(j:j).EQ.
' ') goto 3
50 str2(lens:lens) = str1(j:j)
60 IF(str1(i:i).NE.
' ') lens = -1
63 IF(lens.EQ.-1 .AND. iprt.GE.0)
THEN
64 CALL
errwrt(
'++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
65 CALL
errwrt(
'BUFRLIB: STRSUC - INPUT STRING:')
67 CALL
errwrt(
'CONTAINS ONE OR MORE EMBEDDED BLANKS')
68 CALL
errwrt(
'++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
subroutine strsuc(STR1, STR2, LENS)
This subroutine removes leading and trailing blanks from a character string.
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...