nevn.f File Reference

Search for stacked data events within a specified portion of the current data subset. More...

Go to the source code of this file.

Functions/Subroutines
function	nevn (NODE, LUN, INV1, INV2, I1, I2, I3, USR)
	This function looks for all stacked data events for a specified data value and level within the portion of the current subset buffer bounded by the indices INV1 and INV2. More...

Detailed Description

Search for stacked data events within a specified portion of the current data subset.

Author

J. Woollen

Date

2003-11-04

Definition in file nevn.f.

Function/Subroutine Documentation

nevn()

function nevn	(		NODE,
			LUN,
			INV1,
			INV2,
			I1,
			I2,
			I3,
		real*8, dimension(i1,i2,i3)	USR
	)

This function looks for all stacked data events for a specified data value and level within the portion of the current subset buffer bounded by the indices INV1 and INV2.

All such events are accumulated and returned to the calling program within array USR. The value of the function itself is the total number of events found.

Parameters

[in]	NODE	- integer: jump/link table index of node for which to return stacked values
[in]	LUN	- integer: I/O stream index into internal memory arrays
[in]	INV1	- integer: Starting index of the portion of the subset buffer in which to look for stack values
[in]	INV2	- integer: ending index of the portion of the subset buffer in which to look for stack values
[in]	I1	- integer: Length of first dimension of USR
[in]	I2	- integer: Length of second dimension of USR
[in]	I3	- integer: Length of third dimension of USR
[out]	USR	- real*8(*,*,*): Starting address of data values read from data subset; events are returned in the third dimension for a particular data value and level in the first and second dimensions

Returns

NEVN - integer: Number of events in stack (must be less than or equal to I3)

Note

: This routine should only be called by routine ufbin3(), which itself is called only by verification application program gridtobs, where it was previously an in-line subroutine. In general, nevn() does not work properly in other application programs at this time.

Author

J. Woollen

Date

2003-11-04

Definition at line 38 of file nevn.f.

References bort(), moda_usrint::inv, invwin(), lstjpb(), and moda_usrint::val.

Referenced by ufbin3().