CFD Online Logo CFD Online URL
Home > Forums > Main CFD Forum

help for special function

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

LinkBack Thread Tools Display Modes
Old   August 3, 2003, 05:21
Default help for special function
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

  Reply With Quote

Old   August 3, 2003, 06:35
Default Re: help for special function
Posts: n/a
Try google - it looks like the first hit.
  Reply With Quote

Old   August 3, 2003, 07:36
Default Re: help for special function
Answer Man.
Posts: n/a

Try this page:

The meaning is given as follows along with some programming information.

Searches a vector for the first element matching a target
  Reply With Quote

Old   August 4, 2003, 10:12
Default Re: help for special function
Is it right?
Posts: n/a
Is it right ?


function isrcheq(n, x, incx, a)

integer n, incx

dimension x(n)

if(n.le.0) then

isrcheq = 0


isrcheq = n+1


do i=1,n

if( abs( x(i)-a ) .le. 1.e-20) then

isrcheq = min(isrcheq,i)



  Reply With Quote


Thread Tools
Display Modes

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 Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Compile problem ivanyao OpenFOAM Running, Solving & CFD 1 October 12, 2012 09:31
ParaView for OF-1.6-ext Chrisi1984 OpenFOAM Installation 0 December 31, 2010 07:42
latest OpenFOAM-1.6.x from git failed to compile phsieh2005 OpenFOAM Bugs 25 February 9, 2010 05:37
Error with Wmake skabilan OpenFOAM Installation 3 July 28, 2009 00:35
Axisymmetrical mesh Rasmus Gjesing (Gjesing) OpenFOAM Native Meshers: blockMesh 10 April 2, 2007 14:00

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