41 SUBROUTINE gettagpr ( LUNIT, TAGCH, NTAGCH, TAGPR, IRET )
47 CHARACTER*(*) tagch, tagpr
56 CALL
status( lunit, lun, il, im )
57 IF ( il .EQ. 0 )
RETURN
58 IF ( inode(lun) .NE. inv(1,lun) )
RETURN
62 CALL
fstag( lun, tagch, ntagch, 1, nch, iret )
63 IF ( iret .NE. 0 )
RETURN
65 tagpr = tag(jmpb(inv(nch,lun)))
subroutine gettagpr(LUNIT, TAGCH, NTAGCH, TAGPR, IRET)
This subroutine returns the Table D mnemonic corresponding to the parent sequence of a specified Tabl...
This module contains array and variable declarations used to store the internal jump/link table...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine fstag(LUN, UTAG, NUTAG, NIN, NOUT, IRET)
THIS SUBROUTINE FINDS THE (NUTAG)th OCCURRENCE OF MNEMONIC UTAG WITHIN THE CURRENT OVERALL SUBSET DEF...