#define BINDIR ../../Bin/MTYPE
#include <SEP.defs>

#define SCRATCH /scr8/martin


/* no balance is applied, after balance we should see an improvement */

%source&: semb%xcube.H semb%ycube.H semb%zcube.H

semb%cube.H: ../Sort/cdp%cube.H
	Scale dscale=1.e-12 <../Sort/cdp%cube.H | BINDIR/VeltranI >semb%cube.H semb=1 ns=2 vel=1 vmin=8000 vmax=8500 conj=1 type=0
$	BINDIR/VeltranI <../Sort/cdp%cube.H  >semb%cube.H semb=1 ns=60 vel=1 vmin=500 vmax=15500 conj=1

../Sort/cdp%cube.H: if not exist ../Sort/cdp%cube.H
	cd ../Sort ; cake cdp%cube.H

test&:
	VeltranI <bal.h  >jveltranI.slow        ns=60 vel=1 vmin=500 vmax=15500 conj=1
	VeltranI <bal.h  >jveltranI.slow.semb semb=1 ns=60 vel=1 vmin=500 vmax=15500 conj=1

gather.h: ../Sort/cdpxx2
	Window f3=70 n3=1 <../Sort/cdpxxcube2 >gather.h

velcdpxx: gather.h
	Veltran <gather.h >vel.h conj=1 vmin=1000. vmax=10000 ns=20

spec2d.h:
	Pad n1=0 n2=0 < bal.h | Rtoc | Ft3d sign1=1 sign2=-1 > spec2d.h

clean&:
	-RM_CMD *.x *.o  a.out core j* *.H

#include <SEP.obj.rules>
#include <SEP.prog.rules>
