PARAMETER (Ndens =400) ! size of surface density map PARAMETER (RsurfD=10.e-3) ! radius of domain for surf Density PARAMETER (nfilter = 100) ! number of particles inside filter ! It defines smoothing radius c PARAMETER (iZflag = 0) ! =0 for x-y, =1 for x-z c PARAMETER (iDMflag = 0) ! =0 for disk, =1 for DM PARAMETER (dslice = 5.e-3) ! thicknes of projected slice COMMON/PROJMAP/SURFD(Ndens,Ndens),xoffset,yoffset,zoffset,Sstep COMMON /Flags/iZflag,iDMflag