37 COMMON /dateln/ lendat
39 CHARACTER*128 bort_str
50 IF(len.NE.8 .AND. len.NE.10) goto 900
57 900
WRITE(bort_str,
'("BUFRLIB: DATELEN - INPUT ARGUMENT IS",I4," - '//
58 .
'IT MUST BE EITHER 8 OR 10")') len
subroutine datelen(LEN)
This subroutine is used to specify the format of Section 1 date-time values that will be output by fu...
subroutine wrdlen
This subroutine figures out some important information about the local machine on which the BUFRLIB s...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...