;  $Id: w.pro,v 1.1 2009/06/09 09:58:25 brandenb Exp $
;
;  this routine is an easy-to-use write routine
;  This assumes that the data have been read in with r_ez.pro
;
common cdat,x,y,z,mx,my,mz,nw,ntmax,date0,time0
;
openw, 1, datadir+'/'+varfile,/F77
writeu, 1, aa,special
if (lshear) then writeu, 1, t, x,y,z, dx,dy,dz, deltay else writeu, 1, t, x,y,z, dx,dy,dz
close, 1
print, 't=',t
;
END