| 1 | c
|
|---|
| 2 | c Mass matrix
|
|---|
| 3 | c
|
|---|
| 4 | real bm1(lx1,ly1,lz1,lelt),bm2(lx2,ly2,lz2,lelv)
|
|---|
| 5 | $ ,binvm1(lx1,ly1,lz1,lelv),bintm1(lx1,ly1,lz1,lelt)
|
|---|
| 6 | $ ,bm2inv(lx2,ly2,lz2,lelt),baxm1(lx1,ly1,lz1,lelt)
|
|---|
| 7 | $ ,bm1lag(lx1,ly1,lz1,lelt,lorder-1)
|
|---|
| 8 | $ ,volvm1,volvm2,voltm1,voltm2
|
|---|
| 9 | $ ,yinvm1(lx1,ly1,lz1,lelt)
|
|---|
| 10 | $ ,binvdg(lx1*ly1*lz1,lelt)
|
|---|
| 11 | $ ,bm1ms(lx1,ly1,lz1,lelt) !weighted mass matrix
|
|---|
| 12 | $ ,upf(lx1,ly1,lz1,lelt) !unity partition function
|
|---|
| 13 | $ ,volvm1ms
|
|---|
| 14 | common /mass/ bm1,bm2,binvm1,bintm1,bm2inv,baxm1,bm1lag
|
|---|
| 15 | $ ,volvm1,volvm2,voltm1,voltm2,yinvm1,binvdg
|
|---|
| 16 | $ ,bm1ms,upf,volvm1ms
|
|---|
