source: PSPA/parmelaPSPA/trunk/luf.f @ 402

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

parmela pspa initial

File size: 429 bytes
Line 
1      integer function luf(target,array,n)
2c     ------------------------------------
3c     find index of the first element of array that is greater than target
4c     
5      dimension array(*)
6c-----------------------------------------------------------------------
7      luf = isrchfgt(n,array,target)
8      luf = min(luf,n)
9c     
10      return
11      end
12c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
Note: See TracBrowser for help on using the repository browser.