PHOS/reconstruction/comarray.for

   1         parameter (ncelmax=10)
   2         parameter (narrmax=10,nholmax=10)
   3         parameter (ncompmax=2,ncomparmax=5)
   4         parameter (mmmax=40000)
   5
   6         common /comcells/ncells,idcells(ncelmax),cellsize(3,ncelmax),
   7      ,  idcelmat(ncelmax)
   8
   9         common /comarray/narray,ijarray(2,narrmax),idarray(narrmax),
  10      ,  idcellar(narrmax),isizarray(narrmax),
  11      ,  sizarray(3,narrmax),
  12      ,  nholes(narrmax),poshole(3,nholmax,narrmax),
  13      ,  sizhole(3,nholmax,narrmax)
  14
  15         common /comcompose/ncompose,poscomp(3,ncompmax),
  16      ,  ncomparr(ncompmax),
  17      ,  poscompar(3,ncomparmax,ncompmax),idcomparr(ncomparmax,ncompmax),
  18      ,  mmaxcompar(ncomparmax,ncompmax),mmincompar(ncomparmax,ncompmax),
  19      ,  mmincomp(ncompmax),mmaxcomp(ncompmax)
  20
  21         common /comspace/ipmmm,mmcells(mmmax),cellpos(3,mmmax),
  22      ,  neibortyp(mmmax)
  23
  24
  25