57 SUBROUTINE drstpl(INOD,LUN,INV1,INV2,INVN)
66 IF(node.EQ.0) goto 100
67 IF(typ(node).EQ.
'DRS' .OR. typ(node).EQ.
'DRB')
THEN
68 invn =
invwin(node,lun,inv1,inv2)
72 invn =
invwin(inod,lun,invn,inv2)
73 IF(invn.GT.0) goto 100
subroutine usrtpl(LUN, INVN, NBMP)
THIS SUBROUTINE STORES THE SUBSET TEMPLATE INTO INTERNAL SUBSET ARRAYS IN MODULE USRINT FOR CASES OF ...
This module contains array and variable declarations used to store the internal jump/link table...
subroutine drstpl(INOD, LUN, INV1, INV2, INVN)
THIS SUBROUTINE IS CALLED BY BUFR ARCHIVE LIBRARY SUBROUTINE UFBRW WHENEVER IT CAN'T FIND A MNEMONIC ...
function invwin(NODE, LUN, INV1, INV2)
THIS FUNCTION LOOKS FOR A SPECIFIED NODE WITHIN THE PORTION OF THE CURRENT SUBSET BUFFER BOUNDED BY T...
subroutine newwin(LUN, IWIN, JWIN)
GIVEN AN INDEX WITHIN THE INTERNAL JUMP/LINK TABLE WHICH POINTS TO THE START OF AN "RPC" WINDOW (I...