source:
PSPA/parmelaPSPA/trunk/luf.f
@
402
Last change on this file since 402 was 12, checked in by , 12 years ago | |
---|---|
File size: 429 bytes |
Line | |
---|---|
1 | integer function luf(target,array,n) |
2 | c ------------------------------------ |
3 | c find index of the first element of array that is greater than target |
4 | c |
5 | dimension array(*) |
6 | c----------------------------------------------------------------------- |
7 | luf = isrchfgt(n,array,target) |
8 | luf = min(luf,n) |
9 | c |
10 | return |
11 | end |
12 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
Note: See TracBrowser
for help on using the repository browser.