C****************************************************************
C***	imsubs_common.for
C****************************************************************
	character*4     cstamp/'MAP'/
C***
	integer*4	karch(5)
	integer*4	labls(20,10,5)
	integer*4	lstream(12)
	integer*4	mapcrs(3,5)
	integer*4	mode(5)
	integer*4	nb(5)
	integer*4	nbsym(5)
	integer*4	ncrs(3,5)
	integer*4	ncrst(3,5)	
	integer*4	nlab(5)
	integer*4	nspg(5)
	integer*4	nxyz(3,5)
C***
	logical		flag(5)
	logical		old(5)
	logical		nocon(5)
	logical		unknown(5)
C***
	real*4		cel(6,5)
	real*4		denmmm(3,5)
	real*4          rstamp
	real*4		stuff(25,5)
	real*4		origin(3,5)
	real*4		stamp(2,5)
	real*4		rms(5)
C***
	real*8		dval
	real*8		dtot
C***
        common/imcom/ lstream,nbhdr,nbw,nbw3,nb,nbl,ncrs,mode,
     .          ncrst,nxyz,cel,mapcrs,denmmm,nspg,nbsym,stuff,
     .          origin,stamp,rms,nlab,labls,numopen,karch,
     .          nocon,flag,old,unknown
C***
        save    imcom
C***
	equivalence      (cstamp,rstamp)