47 CHARACTER*128 bort_str
54 IF(cf.NE.
'Y'.AND. cf.NE.
'N') goto 900
61 900
WRITE(bort_str,
'("BUFRLIB: CODFLG - INPUT ARGUMENT IS ",A1,'//
62 .
'", IT MUST BE EITHER Y OR N")') cf
subroutine codflg(CF)
This subroutine is used to specify whether or not code and flag table information should be included ...
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.