| 1 | C
|
|---|
| 2 | C Scratch arrays used in CONNECT and associated subroutines.
|
|---|
| 3 | C
|
|---|
| 4 | C Available scratch arrays and sizes determined from DRIVE
|
|---|
| 5 | C 14 Dec 1989 22:49:58 :
|
|---|
| 6 | C COMMON /CTMP0/ DUMMY0(LX1,LY1,LZ1,LELT,2)
|
|---|
| 7 | C COMMON /CTMP1/ DUMMY1(LX1,LY1,LZ1,LELT,4)
|
|---|
| 8 | C COMMON /SCRNS/ DUMMY2(LX1,LY1,LZ1,LELT,7)
|
|---|
| 9 | C COMMON /SCRUZ/ DUMMY3(LX1,LY1,LZ1,LELT,4)
|
|---|
| 10 | C COMMON /SCREV/ DUMMY4(LX1,LY1,LZ1,LELT,2)
|
|---|
| 11 | C COMMON /SCRVH/ DUMMY5(LX1,LY1,LZ1,LELT,2)
|
|---|
| 12 | C COMMON /SCRMG/ DUMMY6(LX1,LY1,LZ1,LELT,4)
|
|---|
| 13 | C COMMON /SCRCH/ DUMMY7(LX1,LY1,LZ1,LELT,2)
|
|---|
| 14 | C COMMON /SCRSF/ DUMMY8(LX1,LY1,LZ1,LELT,3)
|
|---|
| 15 | C
|
|---|
| 16 | C
|
|---|
| 17 | C ring pass arrays
|
|---|
| 18 | C
|
|---|
| 19 | real rmxs(lelt),rmax(lelt)
|
|---|
| 20 | $ ,xcg(lelt),ycg(lelt),zcg(lelt)
|
|---|
| 21 | $ ,xgs(lelt),ygs(lelt),zgs(lelt)
|
|---|
| 22 | $ ,xml(3,3,lzl,lelt),xms(3,3,lzl,lelt)
|
|---|
| 23 | $ ,yml(3,3,lzl,lelt),yms(3,3,lzl,lelt)
|
|---|
| 24 | $ ,zml(3,3,lzl,lelt),zms(3,3,lzl,lelt)
|
|---|
| 25 | common /scrmg/ rmxs,rmax,xcg,ycg,zcg,xgs,ygs,zgs,xml,xms,yml,yms
|
|---|
| 26 | $ ,zml,zms
|
|---|
| 27 |
|
|---|
| 28 | real side(4,6,lelt),sides(4,6,lelt)
|
|---|
| 29 | common /screv/ side ,sides
|
|---|
| 30 |
|
|---|
| 31 | real flag(3,3,lzl,lelt),tmp2(3,3,lzl,lelt)
|
|---|
| 32 | $ ,lmult(3,3,lzl,lelt),bcs(5,6,lelt)
|
|---|
| 33 | $ ,xyz(3,8,lelt)
|
|---|
| 34 | common /ctmp1/ flag,tmp2,lmult,bcs,xyz
|
|---|
| 35 |
|
|---|
| 36 | c
|
|---|
| 37 | c nested dissection arrays
|
|---|
| 38 | c
|
|---|
| 39 | character*3 cbcs(6,lelt)
|
|---|
| 40 | common /scrvh/ cbcs
|
|---|
| 41 |
|
|---|
| 42 | integer ibrnch(lelt), nbrnch(lelt), list(lelt), list1(lelt)
|
|---|
| 43 | $ ,list2(lelt)
|
|---|
| 44 | logical ifcnst(6,lelt)
|
|---|
| 45 | common /scrch/ ibrnch, nbrnch, list, list1, list2, ifcnst
|
|---|
| 46 |
|
|---|
| 47 | real xyzl(3,8,lelt),cg(3,lelt)
|
|---|
| 48 | equivalence (xyzl,xms)
|
|---|
| 49 | equivalence (cg,xgs)
|
|---|
