source:
PSPA/parmelaPSPA/trunk/irschfgt.f
Last change on this file was 12, checked in by , 12 years ago | |
---|---|
File size: 297 bytes |
Line | |
---|---|
1 | integer function isrchfgt(n,array,target) |
2 | c 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 |
13 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
Note: See TracBrowser
for help on using the repository browser.