3d/integrator_ex/rcombl.f

c     =====================================================
      subroutine rcombl(t,dt,dx,dy,dz,mp)
c     =====================================================
c     
c     Create and initialize common-blocks for time step specific data
c
      implicit double precision (a-h,o-z)
      include "call.i"
c
      tcom = t
      dtcom = dt
      dxcom = dx
      dycom = dy
      dzcom = dz
c
      mpass = mp
c
      return
      end