help for special function
hello every one,
I got a code developed originally for Cray computer, and a special function routine named as isrcheq(n,w,1,xmin) is inclued in the code. I'd like to know the logical meaning of this funtion routine, if some one here has the whole description of it, please let me share it. thanks in advance YANG 
Re: help for special function
Try google  it looks like the first hit.

Re: help for special function
Hi,
Try this page: http://decwww.epfl.ch/docs/CXML400/i....3sciport.html The meaning is given as follows along with some programming information. Searches a vector for the first element matching a target 
Re: help for special function
Is it right ?
CODE: function isrcheq(n, x, incx, a) integer n, incx dimension x(n) if(n.le.0) then isrcheq = 0 else isrcheq = n+1 endif do i=1,n if( abs( x(i)a ) .le. 1.e20) then isrcheq = min(isrcheq,i) endif enddo end 
All times are GMT 4. The time now is 05:36. 