Function:     IRSERVER_SEARCH

Purpose:      Searches the index file on a IRAS data server for scans
	      near a given position on the sky.

Category:     IRAS, SYSTEM

File:	      irserver.c

Author:       A.R.W. de Jonge

Use:	INTEGER IRSERVER_SEARCH (
		ECL_LON,		Input	real
		ECL_LAT,		Input	real
		RADIUS, 		Input	real
		INDEXTYPE,		Input	character
		INDEXLINES )		Output	character

	IRSERVER_SEARCH
		The number of lines found in the index,
		matching the search criterium, and fitting into the
		string INDEXLINES.
		If the return value is negative, it indicates an error:
			-1:	Illegal INDEXTYPE
			-2:	Index files could not be found.
	ECL_LON
		Ecliptic longitude of the center of the search area,
		epoch 1983.5, radians.
	ECL_LAT
		Ecliptic latitude of the center of the search area,
		epoch 1983.5, radians.
	RADIUS
		Search radius in radians. Any scan which passes witin
		RADIUS from the specified center to within one degree
		accuracy, is considered to be found in this search.
	INDEXTYPE
		One of 'AO', 'survey', or 'all'
	INDEXLINES
		A character string to receive the line(s) found from the
		index file. The amount of data found, as indicated
		by the function return value, will be truncated
		or blank-filled to match the length of the string
		INDEXLINES. Each line is 65 characters, formatted as
			??????

	Consecutive calls to this function with the same search
	parameters will retrieve different subsets of the index, until
	a zero return value indicates that no more data remain.

	A call with different search parameters is necessary to
	re-initialize the search.


	Example of use:
		parameter ( linesize = 65 )

		repeat
			count = IRSERVER_SEARCH ( 0.0, 89.0, 1.0, 'AO', text )
			line = 0
			while ( line .lt. count )
				first = 1 + line * linesize
				line = line + 1
				last = min ( len(text), line * linesize )
				print *, text ( first:last )
			endwhile
		until count .le. 0
		if ( count .lt. 0 ) print *, 'error code', count





	Related Docs:	irserver.dc2

Updates:      Aug 26, 1991: AdJ Document created.