! input data for heat transfer between two plates implicit double precision (a-h,o-z) parameter( & del=1.d0, ! rarefaction parameter & Uw=2.d0, ! dimensionless wall speed & dtm=0.01d0, ! time incriment & inm=10000, ! number of model particles & Nc=100, ! number of cells & Ne=200, ! number of point for energy & Nb=200, ! number of point for impact parameter & Emax=40.d0, ! maximum energy & bm=2.d0) ! maximum impact parameter ! COMMON/A/ & ccg(2,nc),ANc, & xchi(nb,ne), ! scattering matrix & cs(3,nc), & pv(3,inm), ! velocities & pp(inm), ! positions & Tr, ! reduced temperature & an(nc), ! density & u(nc), ! bulk velocity & Temp(nc), ! temperature & Pxy,amx, ! shear stress and momentum flux & time, ! current time & amu,amm,vm,pi, & ic(2,nc),ipl(inm),ir(inm), & nsmp,nwt