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

help for special function

Register Blogs Community New Posts Updated Threads Search

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
Old   August 3, 2003, 06: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, 07: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, 08: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, 11: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


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 Off
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 10: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 01:35
[blockMesh] Axisymmetrical mesh Rasmus Gjesing (Gjesing) OpenFOAM Meshing & Mesh Conversion 10 April 2, 2007 15:00


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