| 1 | c
|
|---|
| 2 | c Arrays for direct stiffness summation
|
|---|
| 3 | c
|
|---|
| 4 | integer nomlis(2,3),nmlinv(6),group(6),skpdat(6,6),eface(6)
|
|---|
| 5 | $ ,eface1(6)
|
|---|
| 6 | common /cfaces/ nomlis,nmlinv,group,skpdat,eface,eface1
|
|---|
| 7 |
|
|---|
| 8 | integer eskip(-12:12,3),nedg(3),ncmp
|
|---|
| 9 | $ ,ixcn(8),noffst(3,0:ldimt1)
|
|---|
| 10 | $ ,maxmlt,nspmax(0:ldimt1)
|
|---|
| 11 | $ ,ngspcn(0:ldimt1),ngsped(3,0:ldimt1)
|
|---|
| 12 | $ ,numscn(lelt,0:ldimt1),numsed(lelt,0:ldimt1)
|
|---|
| 13 | $ ,gcnnum( 8,lelt,0:ldimt1),lcnnum( 8,lelt,0:ldimt1)
|
|---|
| 14 | $ ,gednum(12,lelt,0:ldimt1),lednum(12,lelt,0:ldimt1)
|
|---|
| 15 | $ ,gedtyp(12,lelt,0:ldimt1)
|
|---|
| 16 | $ ,ngcomm(2,0:ldimt1)
|
|---|
| 17 | common /cedges/ eskip,nedg,ncmp,ixcn,noffst,maxmlt,nspmax
|
|---|
| 18 | $ ,ngspcn,ngsped,numscn,numsed,gcnnum,lcnnum
|
|---|
| 19 | $ ,gednum,lednum,gedtyp,ngcomm
|
|---|
| 20 |
|
|---|
| 21 | integer iedge(20),iedgef(2,4,6,0:1)
|
|---|
| 22 | $ ,icedg(3,16),iedgfc(4,6),icface(4,10)
|
|---|
| 23 | $ ,indx(8),invedg(27)
|
|---|
| 24 | common /edges/ iedge,iedgef,icedg,iedgfc,icface,indx,invedg
|
|---|
