ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c common-blocks: INTEGER MAXX,MAXY,MAXZ,MAXN,MABIKT real*8 initt,dt c parameters to correspond to HYDRO calculation: PARAMETER (MAXX = 69,MAXY = 69,MAXZ = 69,MAXN=MAXX*MAXY*MAXZ) parameter (MABIKT=10,initt=0.6d0,dt=0.01d0) integer iphase(maxn),tstep real*8 h_rx(maxn),h_ry(maxn),h_reta(maxn) real*8 h_vx(maxn),h_vy(maxn),h_veta(maxn) real*8 h_rqgp(maxn),temp(maxn),mu(maxn) common/ihydro/iphase,tstep common/rhydro/h_rx,h_ry,h_reta common/vhydro/h_vx,h_vy,h_veta common/thydro/temp,mu,h_rqgp real*8 inv_fm_to_GeV parameter(inv_fm_to_GeV=0.1973d0)