69 SUBROUTINE ufbrp(LUN,USR,I1,I2,IO,IRET)
73 COMMON /usrstr/ nnod,ncon,nods(20),nodc(10),ivls(10),kons(10)
88 IF(nods(nz).GT.0) goto 1
95 1
IF(ins1+1.GT.nval(lun)) goto 100
96 IF(io.EQ.1 .AND. iret.EQ.i2) goto 100
97 ins1 =
invtag(nods(nz),lun,ins1+1,nval(lun))
98 IF(ins1.EQ.0) goto 100
100 ins2 =
invtag(nods(nz),lun,ins1+1,nval(lun))
101 IF(ins2.EQ.0) ins2 = nval(lun)
107 IF(io.EQ.0 .AND. iret.LE.i2)
THEN
109 IF(nods(i).GT.0)
THEN
110 invn =
invtag(nods(i),lun,ins1,ins2)
111 IF(invn.GT.0) usr(i,iret) = val(invn,lun)
119 IF(io.EQ.1 .AND. iret.LE.i2)
THEN
121 IF(nods(i).GT.0)
THEN
122 invn =
invtag(nods(i),lun,ins1,ins2)
123 IF(invn.GT.0) val(invn,lun) = usr(i,iret)
subroutine ufbrp(LUN, USR, I1, I2, IO, IRET)
THIS SUBROUTINE WRITES OR READS SPECIFIED VALUES TO OR FROM THE CURRENT BUFR DATA SUBSET WITHIN INTER...
function invtag(NODE, LUN, INV1, INV2)
THIS FUNCTION LOOKS FOR A SPECIFIED MNEMONIC WITHIN THE PORTION OF THE CURRENT SUBSET BUFFER BOUNDED ...