78 CHARACTER*128 bort_str
88 IF ( ( .NOT.
ALLOCATED(cmnem) ) .OR.
89 . ( .NOT.
ALLOCATED(ivmnem) ) )
THEN
98 IF(s01mnem.EQ.cmnem(i))
THEN
107 IF(ns01v.GE.mxs01v) goto 900
110 cmnem(ns01v) = s01mnem
117 900
WRITE(bort_str,
'("BUFRLIB: PKVS01 - CANNOT OVERWRITE MORE THAN '//
118 .
'",I2," DIFFERENT LOCATIONS WITHIN SECTION 0 OR SECTION 1")')
subroutine openbf(LUNIT, IO, LUNDX)
This subroutine connects a new file to the BUFRLIB software for input or output operations.
subroutine pkvs01(S01MNEM, IVAL)
This subroutine is used to specify a value to be written into a specified location within Section 0 o...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...