#include <misc.h>

      integer function intmax(n,ix,inc) 1
c
c $Id: intmax.F,v 1.1 1998/04/01 07:25:50 ccm Exp $
c $Author: ccm $
c
      implicit none
      integer n,inc
      integer ix(*)
c
      integer i,mx
c
      mx = ix(1)
      intmax = 1
      do i=1+inc,inc*n,inc
         if (ix(i).gt.mx) then
            mx = ix(i)
            intmax = i
         end if
      end do
      return
      end