# help for special function

 Register Blogs Members List Search Today's Posts Mark Forums Read

 August 3, 2003, 05:21 help for special function #1 YANG Guest   Posts: n/a 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

 August 3, 2003, 06:35 Re: help for special function #2 andy Guest   Posts: n/a Try google - it looks like the first hit.

 August 3, 2003, 07:36 Re: help for special function #3 Answer Man. Guest   Posts: n/a 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

 August 4, 2003, 10:12 Re: help for special function #4 Is it right? Guest   Posts: n/a 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.e-20) then isrcheq = min(isrcheq,i) endif enddo end

 Thread Tools Display Modes Linear Mode

 Posting Rules You may not post new threads You may not post replies You may not post attachments You may not edit your posts BB code is On Smilies are On [IMG] code is On HTML code is OffTrackbacks are On Pingbacks are On Refbacks are On Forum Rules

 Similar Threads Thread Thread Starter Forum Replies Last Post ivanyao OpenFOAM Running, Solving & CFD 1 October 12, 2012 09:31 Chrisi1984 OpenFOAM Installation 0 December 31, 2010 07:42 phsieh2005 OpenFOAM Bugs 25 February 9, 2010 05:37 skabilan OpenFOAM Installation 3 July 28, 2009 00:35 Rasmus Gjesing (Gjesing) OpenFOAM Native Meshers: blockMesh 10 April 2, 2007 14:00

All times are GMT -4. The time now is 20:37.