C
C maxsweep must be at least as long as the longest of the two 2D arrays
C PLUS the four ghost zones:  maxsweep = max(imax,jmax,kmax) + 4
C
      integer maxsweep
      parameter ( maxsweep = 184 )