44 CHARACTER*128 bort_str
51 IF(cf.NE.
'Y'.AND. cf.NE.
'N') goto 900
58 900
WRITE(bort_str,
'("BUFRLIB: CMPMSG - INPUT ARGUMENT IS ",A1,'//
59 .
'", 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 A STRING OF CHARACTERS.