70 SUBROUTINE trybump(LUNIT,LUN,USR,I1,I2,IO,IRET)
74 COMMON /usrstr/ nnod,ncon,nods(20),nodc(10),ivls(10),kons(10)
84 ndrp =
lstjpb(nods(1),lun,
'DRP')
85 IF(ndrp.LE.0) goto 100
90 invn =
invwin(ndrp,lun,1,nval(lun))
93 DO WHILE(nint(val(jnvn,lun)).GT.0)
94 jnvn = jnvn+nint(val(jnvn,lun))
96 DO knvn=1,nval(lun)-jnvn+1
97 inv(invn+knvn,lun) = inv(jnvn+knvn-1,lun)
98 val(invn+knvn,lun) = val(jnvn+knvn-1,lun)
100 nval(lun) = nval(lun)-(jnvn-invn-1)
106 CALL
ufbrw(lun,usr,i1,i2,io,iret)
function lstjpb(NODE, LUN, JBTYP)
THIS FUNCTION SEARCHES BACKWARDS, BEGINNING FROM A GIVEN NODE WITHIN THE JUMP/LINK TABLE...
subroutine ufbrw(LUN, USR, I1, I2, IO, IRET)
THIS SUBROUTINE WRITES OR READS SPECIFIED VALUES TO OR FROM THE CURRENT BUFR DATA SUBSET WITHIN INTER...
subroutine usrtpl(LUN, INVN, NBMP)
THIS SUBROUTINE STORES THE SUBSET TEMPLATE INTO INTERNAL SUBSET ARRAYS IN MODULE USRINT FOR CASES OF ...
subroutine trybump(LUNIT, LUN, USR, I1, I2, IO, IRET)
THIS SUBROUTINE CHECKS THE FIRST NODE ASSOCIATED WITH A CHARACTER STRING (PARSED INTO ARRAYS IN COMMO...
function invwin(NODE, LUN, INV1, INV2)
THIS FUNCTION LOOKS FOR A SPECIFIED NODE WITHIN THE PORTION OF THE CURRENT SUBSET BUFFER BOUNDED BY T...