68 COMMON /usrstr/ nnod,ncon,nods(20),nodc(10),ivls(10),kons(10)
86 15 CALL
getwin(nodc(1),lun,inc1,inc2)
89 icon =
invcon(nc,lun,inc1,inc2)
subroutine getwin(NODE, LUN, IWIN, JWIN)
GIVEN A NODE INDEX WITHIN THE INTERNAL JUMP/LINK TABLE, THIS SUBROUTINE LOOKS WITHIN THE CURRENT SUBS...
function invcon(NC, LUN, INV1, INV2)
THIS FUNCTION SEARCHES A "WINDOW" (SEE BELOW REMARKS) FOR AN ELEMENT IDENTIFIED IN THE USER STRING AS...
subroutine conwin(LUN, INC1, INC2)
THIS SUBROUTINE SEARCHES CONSECUTIVE SUBSET BUFFER SEGMENTS FOR AN ELEMENT IDENTIFIED IN THE USER STR...