|
[Sponsors] |
August 3, 2003, 06:21 |
help for special function
|
#1 |
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, 07:35 |
Re: help for special function
|
#2 |
Guest
Posts: n/a
|
Try google - it looks like the first hit.
|
|
August 3, 2003, 08:36 |
Re: help for special function
|
#3 |
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, 11:12 |
Re: help for special function
|
#4 |
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 |
|
|
|
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 |