c
c=======================================================================
c  Include file "edges.h"
c=======================================================================
c
#ifndef rmdocinc
c  nedget     number of edge t-boxes.
c  nedgev     number of edge v-boxes.
c  ipdxt      ip-index of edge t-box
c  ipdxv      ip-index of edge v-box
c  boxt       index of interior boxes adjacent to edge t-box
c  boxv       index of interior boxes adjacent to edge v-box
c=======================================================================
c
#endif
      integer medge
      parameter (medge=3*mcseg*mclen)
c
      common /edges1/ipdxt,nedget,ipdxv,nedgev,boxt,boxv
c
      integer  ipdxt(medge),nedget,ipdxv(medge),nedgev,
     *         boxt(8,medge),boxv(8,medge)