#include <misc.h> subroutine whenne(n,array,inc,target,index,nval) 1 c c $Id: whenne.F,v 1.1 1998/04/01 07:26:07 ccm Exp $ c $Author: ccm $ c implicit none integer n,inc integer array(*),target integer index(*),nval c integer i,ina c ina=1 nval=0 if(inc.lt.0)ina=(-inc)*(n-1)+1 do i=1,n if (array(ina).ne.target) then nval=nval+1 index(nval)=i end if ina = ina+inc end do return end