47 CHARACTER*128 bort_str
54 IF(cf.NE.
'Y'.AND. cf.NE.
'N') goto 900
61 900
WRITE(bort_str,
'("BUFRLIB: STDMSG - INPUT ARGUMENT IS ",A1,'//
62 .
'", IT MUST BE EITHER Y OR N")') cf
subroutine stdmsg(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.