49 SUBROUTINE strcpt(CF,IYR,IMO,IDY,IHR,IMI)
51 COMMON /tnkrcp/ itryr,itrmo,itrdy,itrhr,itrmi,ctrt
53 CHARACTER*128 bort_str
60 IF(cf.NE.
'Y'.AND. cf.NE.
'N') goto 900
75 900
WRITE(bort_str,
'("BUFRLIB: STRCPT - INPUT ARGUMENT IS ",A1,'//
76 .
'", IT MUST BE EITHER Y OR N")') cf
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine strcpt(CF, IYR, IMO, IDY, IHR, IMI)
This subroutine is used to specify a tank receipt time to be included within Section 1 of all BUFR me...
subroutine capit(STR)
This subroutine capitalizes all of the alphabetic characters in a string.