63 CHARACTER*128 bort_str
68 IF(node.LT.inode(lun)) goto 900
69 IF(node.GT.isc(inode(lun))) goto 901
76 10
IF(typ(nod).NE.jbtyp)
THEN
87 900
WRITE(bort_str,
'("BUFRLIB: LSTJPB - TABLE NODE (",I7,") IS OUT '//
88 .
'OF BOUNDS, < LOWER BOUNDS (",I7,"); TAG IS ",A10)')
89 . node,inode(lun),tag(node)
91 901
WRITE(bort_str,
'("BUFRLIB: LSTJPB - TABLE NODE (",I7,") IS OUT '//
92 .
'OF BOUNDS, > UPPER BOUNDS (",I7,"); TAG IS ",A10)')
93 . node,isc(inode(lun)),tag(node)
function lstjpb(NODE, LUN, JBTYP)
THIS FUNCTION SEARCHES BACKWARDS, BEGINNING FROM A GIVEN NODE WITHIN THE JUMP/LINK TABLE...
This module contains array and variable declarations used to store the internal jump/link table...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...