#include <misc.h> #include <params.h> c---------- subroutine whenfgt(n,array,inc,target,index,nval) 2 c c $Id: whenfgt.F,v 1.1 1998/04/01 07:26:03 ccm Exp $ c $Author: ccm $ c dimension index(*), array(*) ina=1 nval=0 if(inc .lt. 0) ina=(-inc)*(n-1)+1 do 100 i=1,n if(array(ina) .gt. target) then nval=nval+1 index(nval)=i end if ina=ina+inc 100 continue return end