c
	parameter (nlm=40)
	real am(*), pl1(*), pl2(*), xarr(*), yarr(*)
	pointer (iam,am), (ipl1,pl1), (ipl2,pl2)
	pointer (lax,xarr), (lay,yarr)
	integer uufxy
	pointer (jufxy,uufxy)
	logical iss

cdec$	psect  /conre2/ noshr
	common /conre2/
					!pointers
     >	  iam, ipl1, ipl2, lax, lay, jufxy,
					!reals
     >	  xorg, xrang, xscal, yorg, yrang, yscal, cv,
					!integers/logicals
     >	  ix, iy, is, inir, iss, nir, kir, mir,
     >	  lam, igr, iar, ilft, irgt, npl, mpl, kfill,
     >	  nxs, nys, linx, liny, npu, nsym,
     >	  kmap(nlm), ksym(nlm), kdsh(nlm)

	save /conre2/
