c
c     Arrays for overlapping Schwartz algorithm
c
      integer ltotd
      parameter (ltotd = lx1*ly1*lz1*lelt                     )
c
      integer ndom, n_o, nel_proc, gs_hnd_overlap
     $      , na (lelt+1) , ma(lelt+1), nza(lelt+1)
      common /ddptri/ ndom,n_o,nel_proc,gs_hnd_overlap,na,ma,nza
c
c     These are the H1 coarse-grid arrays:
c
      integer lxc, lcr
      parameter(lxc=2)
      parameter(lcr=lxc**ldim)

      integer*8 se_to_gcrs(lcr,lelt)
      integer n_crs,m_crs,nx_crs,nxyz_c
      common /h1_crsi/ se_to_gcrs, n_crs,m_crs, nx_crs, nxyz_c
c
      real             h1_basis(lx1*lxc), h1_basist(lxc*lx1)
      common /h1_crs/  h1_basis         , h1_basist

      real             l2_basis(lx2*lxc), l2_basist(lxc*lx2)
      equivalence     (h1_basis  , l2_basis  )
      equivalence     (h1_basist , l2_basist )
