45 CHARACTER*128 bort_str
52 IF(cf.NE.
'Y'.AND. cf.NE.
'N') goto 900
59 900
WRITE(bort_str,
'("BUFRLIB: CMPMSG - INPUT ARGUMENT IS ",A1,'//
60 .
'", IT MUST BE EITHER Y OR N")') cf
subroutine cmpmsg(CF)
This subroutine is used to specify whether BUFR messages output by future calls to message-writing su...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine capit(STR)
This subroutine capitalizes all of the alphabetic characters in a string.