CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Forums > Main CFD Forum

help for special function

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

Reply
 
LinkBack Thread Tools Display Modes
Old   August 3, 2003, 05:21
Default 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
  Reply With Quote

Old   August 3, 2003, 06:35
Default Re: help for special function
  #2
andy
Guest
 
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
  #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
  Reply With Quote

Old   August 4, 2003, 10:12
Default 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
  Reply With Quote

Reply

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 13:59.