fstag.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	fstag (LUN, UTAG, NUTAG, NIN, NOUT, IRET)
	THIS SUBROUTINE FINDS THE (NUTAG)th OCCURRENCE OF MNEMONIC UTAG WITHIN THE CURRENT OVERALL SUBSET DEFINITION, STARTING FROM PARAMETER #(NIN) WITHIN THE SUBSET. More...

Detailed Description

Author

J

Date

2014-10-02

Definition in file fstag.f.

Function/Subroutine Documentation

subroutine fstag	(		LUN,
		character*(*)	UTAG,
			NUTAG,
			NIN,
			NOUT,
			IRET
	)

THIS SUBROUTINE FINDS THE (NUTAG)th OCCURRENCE OF MNEMONIC UTAG WITHIN THE CURRENT OVERALL SUBSET DEFINITION, STARTING FROM PARAMETER #(NIN) WITHIN THE SUBSET.

THE SUBROUTINE SEARCHES FORWARD FROM NIN IF NUTAG IS POSITIVE OR ELSE BACKWARD IF NUTAG IS NEGATIVE.

PROGRAM HISTORY LOG: 2014-10-02 J. ATOR – ORIGINAL AUTHOR 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: CALL FSTAG (LUN, UTAG, NUTAG, NIN, NOUT, IRET) INPUT ARGUMENT LIST: LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS UTAG - CHARACTER*(*): MNEMONIC NUTAG - INTEGER: ORDINAL OCCURRENCE OF UTAG TO SEARCH FOR WITHIN THE OVERALL SUBSET DEFINITION, COUNTING FROM PARAMETER #(NIN) WITHIN THE SUBSET. THE SUBROUTINE WILL SEARCH IN A FORWARD DIRECTION FROM PARAMETER #(NIN) IF NUTAG IS POSITIVE OR ELSE IN A BACKWARD DIRECTION IF NUTAG IS NEGATIVE. NIN - INTEGER: LOCATION WITHIN THE OVERALL SUBSET DEFINITION FROM WHICH TO BEGIN SEARCHING FOR UTAG.

OUTPUT ARGUMENT LIST: NOUT - INTEGER: LOCATION OF (NUTAG)th OCCURRENCE OF UTAG IRET - INTEGER: RETURN CODE 0 = NORMAL RETURN -1 = REQUESTED MNEMONIC COULD NOT BE FOUND, OR SOME OTHER ERROR OCCURRED

REMARKS: THIS ROUTINE CALLS: PARSTR THIS ROUTINE IS CALLED BY: GETTAGPR GETTAGRE GETVALNB NEMSPECS SETVALNB UFDUMP Normally not called by any application programs.

Definition at line 40 of file fstag.f.

References parstr().

Referenced by gettagpr(), gettagre(), getvalnb(), nemspecs(), setvalnb(), and ufdump().