57 SUBROUTINE pkbs1(IVAL,MBAY,S1MNEM)
63 character*128 bort_str
75 CALL
gets1loc(s1mnem,iben,isbyt,iwid,iret)
76 IF ( (iret.EQ.0) .AND.
77 . ( (s1mnem.EQ.
'USN') .OR. (s1mnem.EQ.
'BMT') .OR.
78 . (s1mnem.EQ.
'OGCE') .OR. (s1mnem.EQ.
'GSES') .OR.
79 . (s1mnem.EQ.
'MTYP') .OR. (s1mnem.EQ.
'MSBTI') .OR.
80 . (s1mnem.EQ.
'MSBT') .OR. (s1mnem.EQ.
'MTV') .OR.
81 . (s1mnem.EQ.
'MTVL') .OR. (s1mnem.EQ.
'YCEN') .OR.
82 . (s1mnem.EQ.
'CENT') .OR. (s1mnem.EQ.
'YEAR') .OR.
83 . (s1mnem.EQ.
'MNTH') .OR. (s1mnem.EQ.
'DAYS') .OR.
84 . (s1mnem.EQ.
'HOUR') .OR. (s1mnem.EQ.
'MINU') .OR.
85 . (s1mnem.EQ.
'SECO') ) )
THEN
89 ibit = (
iupbs01(mbay,
'LEN0')+isbyt-1)*8
90 CALL
pkb(ival,iwid,mbay,ibit)
96 900
WRITE(bort_str,
'("BUFRLIB: PKBS1 - CANNOT OVERWRITE LOCATION '//
97 .
'CORRESPONDING TO MNEMONIC (",A,") WITHIN BUFR EDITION '//
98 .
'(",I1,")")') s1mnem, iben
subroutine gets1loc(S1MNEM, IBEN, ISBYT, IWID, IRET)
THIS SUBROUTINE RETURNS THE LOCATION (I.E.
subroutine pkbs1(IVAL, MBAY, S1MNEM)
This subroutines writes a specified value into a specified location within Section 1 of a BUFR messag...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine pkb(NVAL, NBITS, IBAY, IBIT)
This subroutine encodes an integer value within a specified number of bits of an integer array...
function iupbs01(MBAY, S01MNEM)
This function returns a specified value from within Section 0 or Section 1 of a BUFR message...