integer function isrchfgt(n,array,target)
c	Jerome Gonichon from manual on Cray
		dimension array(*)
		do 10 i=1,n
		if(array(i).gt.target)then
		isrchfgt=i
		return
		endif
 10		continue
		isrchfgt=n+1
		return
		end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*