fstag.f File Reference

Search for a specified occurrence of a specified mnemonic within a data subset definition, starting from a specified location. More...

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

Search for a specified occurrence of a specified mnemonic within a data subset definition, starting from a specified location.

Author

J Ator

Date

2014-10-02

Definition in file fstag.f.

Function/Subroutine Documentation

fstag()

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.

Parameters

[in]	LUN	- integer: I/O stream index into internal memory arrays.
[in]	UTAG	- character*(*): mnemonic.
[in]	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.
[in]	NIN	- integer: location within the overall subset definition from which to begin searching for UTAG.
[out]	NOUT	- integer: location of (NUTAG)th occurrence of UTAG.
[out]	IRET	- integer: return code. 0 Normal return. -1 Requested mnemonic could not be found, or some other error occurred.

Author

J. Ator

Date

2014-10-02

Definition at line 25 of file fstag.f.

References moda_usrint::inv, moda_usrint::nval, parstr(), and moda_tables::tag.

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