source: PSPA/parmelaPSPA/tags/v0.1/irschfgt.f @ 447

Last change on this file since 447 was 101, checked in by garnier, 12 years ago

premier tag
File size: 297 bytes
Line 
1      integer function isrchfgt(n,array,target)
2c       Jerome Gonichon from manual on Cray
3                dimension array(*)
4                do 10 i=1,n
5                if(array(i).gt.target)then
6                isrchfgt=i
7                return
8                endif
9 10             continue
10                isrchfgt=n+1
11                return
12                end
13c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
Note: See TracBrowser for help on using the repository browser.