integer nam, npm integer lpm, namh, nalstm integer nzm, nlm c c nam is the maximum number of grids per dimension. c nam = 2**lpm c npm is the maximum number of macro particles. c nzm is the maximum number of step for z direction c ( direction of evolution ). c lp = 1 2 3 4 5 6 7 8 9 10 c nam = 2 4 8 16 32 64 128 256 512 1024 c parameter ( lpm = 7 , npm = 16001 ) parameter ( nam = 2**lpm ) parameter ( namh=nam/2, nalstm= namh*(nam+1) ) parameter ( nzm = 1000 ) parameter ( nlm = 1000 ) c integer ngm, nzt, nxp, nyp, npx, npy parameter ( nzt=1, ngm=2, nxp=3, nyp=4, npx=5, npy=6) c integer na, np, na2, lp, nalst common / sizes / na, np, na2 ,lp, nalst c