| 1 | c
|
|---|
| 2 | c Arrays for overlapping Schwartz algorithm
|
|---|
| 3 | c
|
|---|
| 4 | integer ltotd
|
|---|
| 5 | parameter (ltotd = lx1*ly1*lz1*lelt )
|
|---|
| 6 | c
|
|---|
| 7 | integer ndom, n_o, nel_proc, gs_hnd_overlap
|
|---|
| 8 | $ , na (lelt+1) , ma(lelt+1), nza(lelt+1)
|
|---|
| 9 | common /ddptri/ ndom,n_o,nel_proc,gs_hnd_overlap,na,ma,nza
|
|---|
| 10 | c
|
|---|
| 11 | c These are the H1 coarse-grid arrays:
|
|---|
| 12 | c
|
|---|
| 13 | integer lxc, lcr
|
|---|
| 14 | parameter(lxc=2)
|
|---|
| 15 | parameter(lcr=lxc**ldim)
|
|---|
| 16 |
|
|---|
| 17 | integer*8 se_to_gcrs(lcr,lelt)
|
|---|
| 18 | integer n_crs,m_crs,nx_crs,nxyz_c
|
|---|
| 19 | common /h1_crsi/ se_to_gcrs, n_crs,m_crs, nx_crs, nxyz_c
|
|---|
| 20 | c
|
|---|
| 21 | real h1_basis(lx1*lxc), h1_basist(lxc*lx1)
|
|---|
| 22 | common /h1_crs/ h1_basis , h1_basist
|
|---|
| 23 |
|
|---|
| 24 | real l2_basis(lx2*lxc), l2_basist(lxc*lx2)
|
|---|
| 25 | equivalence (h1_basis , l2_basis )
|
|---|
| 26 | equivalence (h1_basist , l2_basist )
|
|---|
