// INDEXING MATRIX SCRIPT 
// (matrix retrieval)

// JavaScript by: Steven Garner
// October 01, 2005
// Natural Mathematics v2.5+
// www.naturalmathematics.com

// Variables used:
// i, j, m, n
// c_find, c_sec, s_top, c_rec
// p_find, p_sec, p_top
// n_find, n_sec, n_top

// -----------------------------------
// Retrieving from the Indexing Matrix
// -----------------------------------
// CURRENT DOCUMENT


var c_find = 0
var c_sec = 0
var c_top = 0
var c_rec = 0

for (i = 0; i < m; i++)
{
	for (j = 0; j < n; j++)
	{
	c_find = I_Matrix[i][j][3]
		if (c_find == callout)
		{
		c_sec = i
		c_top = j
		c_rec = I_Matrix[c_sec][c_top][0]
		}
	}
}



// -----------------------------------
// Retrieving from the Indexing Matrix
// -----------------------------------
// PREVIOUS DOCUMENT

var p_find
var p_sec
var p_top

for (i = 0; i < m; i++)
{
	for (j = 0; j < n; j++)
	{
	p_find = I_Matrix[i][j][0]
		if (p_find == (c_rec-1))
		{
		p_sec = i
		p_top = j
		}
	}
}



// -----------------------------------
// Retrieving from the Indexing Matrix
// -----------------------------------
// NEXT DOCUMENT

var n_find
var n_sec
var n_top
for (i = 0; i < m; i++)
{
	for (j = 0; j < n; j++)
	{
	n_find = I_Matrix[i][j][0]
		if (n_find == (c_rec+1))
		{
		n_sec = i
		n_top = j
		}
	}
}