real  r(mx,my,mz), px(mx,my,mz), py(mx,my,mz), pz(mx,my,mz),
     & e(mx,my,mz), 
     & drdt(mx,my,mz), dpxdt(mx,my,mz), dpydt(mx,my,mz),
     & dpzdt(mx,my,mz), dedt(mx,my,mz), 
     & xdnr(mx,my,mz), ydnr(mx,my,mz), zdnr(mx,my,mz),
     & Qcool(mx,my,mz),
     & pp(mx,my,mz), ux(mx,my,mz), uy(mx,my,mz), uz(mx,my,mz),
     & ee(mx,my,mz), cs(mx,my,mz), vx(mx,my,mz), vy(mx,my,mz),
     & vz(mx,my,mz),
     & TT(mx,my,mz), S(mx,my,mz),
     & scr1(mx,my,mz),
     & fcool(mx), x(mx)
      common /cwork/ r, px, py, pz, e,
     & drdt, dpxdt, dpydt, dpzdt, dedt, 
     & xdnr, ydnr, zdnr, Qcool,
     & pp, ux, uy, uz, ee, cs, vx, vy, vz,
     & TT, S,
     & scr1,
     & fcool, x

!hpf$ align with TheCube:: r, px, py
!hpf$ align with TheCube:: pz, e
!hpf$ align with TheCube:: drdt, dpxdt, dpydt
!hpf$ align with TheCube:: dpzdt, dedt
!hpf$ align with TheCube:: xdnr, ydnr, zdnr
!hpf$ align with TheCube:: Qcool, pp, ux
!hpf$ align with TheCube:: uy, uz, ee
!hpf$ align with TheCube:: cs, vx, vy, vz
!hpf$ align with TheCube:: TT, S
!hpf$ align with TheCube:: scr1