| 1 | c
|
|---|
| 2 | c Geometry arrays
|
|---|
| 3 | c
|
|---|
| 4 | real xm1(lx1,ly1,lz1,lelt)
|
|---|
| 5 | $ ,ym1(lx1,ly1,lz1,lelt)
|
|---|
| 6 | $ ,zm1(lx1,ly1,lz1,lelt)
|
|---|
| 7 | $ ,xm2(lx2,ly2,lz2,lelv)
|
|---|
| 8 | $ ,ym2(lx2,ly2,lz2,lelv)
|
|---|
| 9 | $ ,zm2(lx2,ly2,lz2,lelv)
|
|---|
| 10 | common /gxyz/ xm1,ym1,zm1,xm2,ym2,zm2
|
|---|
| 11 |
|
|---|
| 12 | real rxm1(lx1,ly1,lz1,lelt)
|
|---|
| 13 | $ ,sxm1(lx1,ly1,lz1,lelt)
|
|---|
| 14 | $ ,txm1(lx1,ly1,lz1,lelt)
|
|---|
| 15 | $ ,rym1(lx1,ly1,lz1,lelt)
|
|---|
| 16 | $ ,sym1(lx1,ly1,lz1,lelt)
|
|---|
| 17 | $ ,tym1(lx1,ly1,lz1,lelt)
|
|---|
| 18 | $ ,rzm1(lx1,ly1,lz1,lelt)
|
|---|
| 19 | $ ,szm1(lx1,ly1,lz1,lelt)
|
|---|
| 20 | $ ,tzm1(lx1,ly1,lz1,lelt)
|
|---|
| 21 | $ ,jacm1(lx1,ly1,lz1,lelt)
|
|---|
| 22 | $ ,jacmi(lx1*ly1*lz1,lelt)
|
|---|
| 23 | common /giso1/ rxm1,sxm1,txm1,rym1,sym1,tym1,rzm1,szm1,tzm1
|
|---|
| 24 | $ ,jacm1,jacmi
|
|---|
| 25 |
|
|---|
| 26 | real rxm2(lx2,ly2,lz2,lelv)
|
|---|
| 27 | $ ,sxm2(lx2,ly2,lz2,lelv)
|
|---|
| 28 | $ ,txm2(lx2,ly2,lz2,lelv)
|
|---|
| 29 | $ ,rym2(lx2,ly2,lz2,lelv)
|
|---|
| 30 | $ ,sym2(lx2,ly2,lz2,lelv)
|
|---|
| 31 | $ ,tym2(lx2,ly2,lz2,lelv)
|
|---|
| 32 | $ ,rzm2(lx2,ly2,lz2,lelv)
|
|---|
| 33 | $ ,szm2(lx2,ly2,lz2,lelv)
|
|---|
| 34 | $ ,tzm2(lx2,ly2,lz2,lelv)
|
|---|
| 35 | $ ,jacm2(lx2,ly2,lz2,lelv)
|
|---|
| 36 | common /giso2/ rxm2,sxm2,txm2,rym2,sym2,tym2,rzm2,szm2,tzm2
|
|---|
| 37 | $ ,jacm2
|
|---|
| 38 |
|
|---|
| 39 | real rx(lxd*lyd*lzd,ldim*ldim,lelv)
|
|---|
| 40 | common /gisod/ rx
|
|---|
| 41 |
|
|---|
| 42 | real g1m1(lx1,ly1,lz1,lelt)
|
|---|
| 43 | $ ,g2m1(lx1,ly1,lz1,lelt)
|
|---|
| 44 | $ ,g3m1(lx1,ly1,lz1,lelt)
|
|---|
| 45 | $ ,g4m1(lx1,ly1,lz1,lelt)
|
|---|
| 46 | $ ,g5m1(lx1,ly1,lz1,lelt)
|
|---|
| 47 | $ ,g6m1(lx1,ly1,lz1,lelt)
|
|---|
| 48 | common /gmfact/ g1m1,g2m1,g3m1,g4m1,g5m1,g6m1
|
|---|
| 49 |
|
|---|
| 50 | real unr(lx1*lz1,6,lelt)
|
|---|
| 51 | $ ,uns(lx1*lz1,6,lelt)
|
|---|
| 52 | $ ,unt(lx1*lz1,6,lelt)
|
|---|
| 53 | $ ,unx(lx1,lz1,6,lelt)
|
|---|
| 54 | $ ,uny(lx1,lz1,6,lelt)
|
|---|
| 55 | $ ,unz(lx1,lz1,6,lelt)
|
|---|
| 56 | $ ,t1x(lx1,lz1,6,lelt)
|
|---|
| 57 | $ ,t1y(lx1,lz1,6,lelt)
|
|---|
| 58 | $ ,t1z(lx1,lz1,6,lelt)
|
|---|
| 59 | $ ,t2x(lx1,lz1,6,lelt)
|
|---|
| 60 | $ ,t2y(lx1,lz1,6,lelt)
|
|---|
| 61 | $ ,t2z(lx1,lz1,6,lelt)
|
|---|
| 62 | $ ,area(lx1,lz1,6,lelt)
|
|---|
| 63 | $ ,etalph(lx1*lz1,2*ldim,lelt)
|
|---|
| 64 | $ ,dlam
|
|---|
| 65 | common /gsurf/ unr,uns,unt,unx,uny,unz,t1x,t1y,t1z,t2x,t2y,t2z
|
|---|
| 66 | $ ,area,etalph,dlam
|
|---|
| 67 |
|
|---|
| 68 | real vnx(lx1m,ly1m,lz1m,lelt)
|
|---|
| 69 | $ ,vny(lx1m,ly1m,lz1m,lelt)
|
|---|
| 70 | $ ,vnz(lx1m,ly1m,lz1m,lelt)
|
|---|
| 71 | $ ,v1x(lx1m,ly1m,lz1m,lelt)
|
|---|
| 72 | $ ,v1y(lx1m,ly1m,lz1m,lelt)
|
|---|
| 73 | $ ,v1z(lx1m,ly1m,lz1m,lelt)
|
|---|
| 74 | $ ,v2x(lx1m,ly1m,lz1m,lelt)
|
|---|
| 75 | $ ,v2y(lx1m,ly1m,lz1m,lelt)
|
|---|
| 76 | $ ,v2z(lx1m,ly1m,lz1m,lelt)
|
|---|
| 77 | common /gvolm/ vnx,vny,vnz,v1x,v1y,v1z,v2x,v2y,v2z
|
|---|
| 78 |
|
|---|
| 79 | logical ifgeom,ifgmsh3,ifvcor,ifsurt,ifmelt,ifwcno
|
|---|
| 80 | $ ,ifrzer(lelt),ifqinp(2*ldim,lelv),ifeppm(2*ldim,lelv)
|
|---|
| 81 | $ ,iflmsf(0:1),iflmse(0:1),iflmsc(0:1)
|
|---|
| 82 | $ ,ifmsfc(2*ldim,lelt,0:1)
|
|---|
| 83 | $ ,ifmseg(12,lelt,0:1)
|
|---|
| 84 | $ ,ifmscr(8,lelt,0:1)
|
|---|
| 85 | $ ,ifnskp(8,lelt)
|
|---|
| 86 | $ ,ifbcor
|
|---|
| 87 | common /glog/ ifgeom,ifgmsh3,ifvcor,ifsurt,ifmelt,ifwcno
|
|---|
| 88 | $ ,ifrzer,ifqinp,ifeppm
|
|---|
| 89 | $ ,iflmsf,iflmse,iflmsc,ifmsfc
|
|---|
| 90 | $ ,ifmseg,ifmscr,ifnskp
|
|---|
| 91 | $ ,ifbcor
|
|---|
| 92 |
|
|---|
| 93 | integer boundaryID(6,lelv), boundaryIDt(6,lelt)
|
|---|
| 94 | common /cbbid/ boundaryID, boundaryIDt
|
|---|
