81 SUBROUTINE getwin(NODE,LUN,IWIN,JWIN)
85 CHARACTER*128 bort_str
90 irpc =
lstjpb(node,lun,
'RPC')
93 iwin =
invwin(node,lun,jwin,nval(lun))
94 IF(iwin.EQ.0 .and. jwin.GT.1) goto 100
99 iwin =
invwin(irpc,lun,jwin,nval(lun))
102 ELSEIF(val(iwin,lun).EQ.0.)
THEN
108 jwin =
invwin(irpc,lun,iwin+1,nval(lun))
109 IF(jwin.EQ.0) goto 900
115 900
WRITE(bort_str,
'("BUFRLIB: GETWIN - SEARCHED BETWEEN",I5," AND"'//
116 .
',I5,", MISSING BRACKET")') iwin+1,nval(lun)
function lstjpb(NODE, LUN, JBTYP)
THIS FUNCTION SEARCHES BACKWARDS, BEGINNING FROM A GIVEN NODE WITHIN THE JUMP/LINK TABLE...
subroutine getwin(NODE, LUN, IWIN, JWIN)
GIVEN A NODE INDEX WITHIN THE INTERNAL JUMP/LINK TABLE, THIS SUBROUTINE LOOKS WITHIN THE CURRENT SUBS...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
function invwin(NODE, LUN, INV1, INV2)
THIS FUNCTION LOOKS FOR A SPECIFIED NODE WITHIN THE PORTION OF THE CURRENT SUBSET BUFFER BOUNDED BY T...