55 CHARACTER*128 bort_str
72 IF(
lstjpb(node,lun,
'RPC').NE.node) goto 900
73 jwin = iwin+val(iwin,lun)
79 900
WRITE(bort_str,
'("BUFRLIB: NEWWIN - LSTJPB FOR NODE",I6,'//
80 .
'" (LSTJPB=",I5,") DOES NOT EQUAL VALUE OF NODE, NOT RPC '//
81 .
'(IWIN =",I8,")")') node,
lstjpb(node,lun,
'RPC'),iwin
function lstjpb(NODE, LUN, JBTYP)
THIS FUNCTION SEARCHES BACKWARDS, BEGINNING FROM A GIVEN NODE WITHIN THE JUMP/LINK TABLE...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine newwin(LUN, IWIN, JWIN)
GIVEN AN INDEX WITHIN THE INTERNAL JUMP/LINK TABLE WHICH POINTS TO THE START OF AN "RPC" WINDOW (I...