PARAMETER (MAXPL=500000,MAXELMP=50000)

      REAL*8 XCEN,YCEN,RADS,MAP,XMAP,YMAP,CMAP

      COMMON /MAPBLK/ NOPEL(MAXELMP,3),XCEN(MAXELMP),YCEN(MAXELMP)&
      ,RADS(MAXELMP) ,NKEY(MAXELMP),IEDGE(500,2),IGAP(500),CMAP(MAXPL,2)&
      ,XMAP(MAXPL),YMAP(MAXPL),VAL(MAXPL),NELFM(500)


	  COMMON /MAPINFO/ NELTS

      common /mapc/imap(maxpl),NCRS(MAXPL)