;$Id: yz_swap.pro,v 1.2 2007/11/19 09:59:24 brandenb Exp $
;
;  useful if procs are written the wrong way aroun 
;
nprocy=4
nprocz=8
;
iproc=0
for ipy=0,nprocy-1 do begin
for ipz=0,nprocz-1 do begin
  ;print,ipy,ipz
  ip=ipy+ipz*nprocy
  ;print,'mv data/proc'+str(iproc)+'/var.dat data2/proc'+str(ip)+'/var.dat'
  print,'mv data2/proc'+str(iproc)+'/var.dat data/proc'+str(iproc)+'/var.dat'
  ;print,'mv data/proc'+str(ip)+' data2/proc'+str(iproc)
  iproc=iproc+1
endfor
endfor
;
END