40 SUBROUTINE fstag ( LUN, UTAG, NUTAG, NIN, NOUT, IRET )
58 CALL
parstr( utag, tgs, maxtg, ntg,
' ', .true. )
59 IF ( ntg .ne .1 )
RETURN
64 IF ( nutag .EQ. 0 )
RETURN
65 istep = isign( 1, nutag )
68 DO WHILE ( ( nout .GE. 1 ) .AND. ( nout .LE. nval(lun) ) )
69 IF ( tgs(1) .EQ. tag(inv(nout,lun)) )
THEN
71 IF ( itagct .EQ. iabs(nutag) )
THEN
subroutine parstr(STR, TAGS, MTAG, NTAG, SEP, LIMIT80)
THIS SUBROUTINE PARSES A STRING CONTAINING ONE OR MORE SUBSTRINGS INTO AN ARRAY OF SUBSTRINGS...
This module contains array and variable declarations used to store the internal jump/link table...
subroutine fstag(LUN, UTAG, NUTAG, NIN, NOUT, IRET)
THIS SUBROUTINE FINDS THE (NUTAG)th OCCURRENCE OF MNEMONIC UTAG WITHIN THE CURRENT OVERALL SUBSET DEF...