3d/operators/getindx.f

c-----------------------------------------------------------------------
c     Routine to convert from global array coordinates to local 
c     array coordinates
c-----------------------------------------------------------------------

      integer function getindx(loc, lb, stride )
      implicit none
      
      integer   loc, lb, stride
      
      getindx = (loc - lb)/stride + 1
      return
      end