source: PSPA/parmelaPSPA/trunk/irschfgt.f @ 463

Last change on this file since 463 was 12, checked in by lemeur, 12 years ago

parmela pspa initial

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.