

#define BINDIR /wrk7/dave/bin/CM 

#include <SEP.defs>


#ifdef ISsun4

$BINDIR/% :  if not {{ pushd ../Src ; cake -q BINDIR/% }}
$	pushd ../Src; cake  % 

%.PR41: BINDIR/KRgreens4 par_% if not cando %.vel and not exist %.vel
	BINDIR/KRgreens4 par=par_% outform=1 polout=y > %.PR41

%.PR41: BINDIR/KRgreens4 par_% %.vel
	BINDIR/KRgreens4 velfile=%.vel par=par_% outform=1 polout=y > %.PR41

%.R41: BINDIR/KRgreens4 par_% if not cando %.vel and not exist %.vel
	BINDIR/KRgreens4 par=par_% outform=1 polout=y > %.R41

%.R41: BINDIR/KRgreens4 par_% %.vel
	BINDIR/KRgreens4 velfile=%.vel par=par_% outform=1 > %.R41

%.R43: BINDIR/KRgreens4 par_% if not cando %.vel and not exist %.vel
	BINDIR/KRgreens4 par=par_% outform=3 > %.R43

%.R43: BINDIR/KRgreens4 par_% %.vel
	BINDIR/KRgreens4 velfile=%.vel par=par_% outform=3 > %.R43

%.GR: BINDIR/Greens1D greenpar_% if not cando %.vel and not exist %.vel
	BINDIR/Greens1D par=greenpar_%  > %.GR

%.GR: BINDIR/Greens1D greenpar_% %.vel
	BINDIR/Greens1D <%.vel par=greenpar_% > %.GR

%.%1.mod: BINDIR/Modmig1D %.GR %.scat modpar_%1_%
	BINDIR/Modmig1D greens=%.GR <%.scat par=modpar_%1_% >%.%1.mod adj=0

%.%1.modmig: BINDIR/Modmig1D %.GR %.%1.mod migpar_%1_%
	BINDIR/Modmig1D greens=%.GR <%.%1.mod par=migpar_%1_% >%.%1.modmig adj=1

%.%1.modadj: BINDIR/Modmig1D %.GR %.%1.mod migpar_%1_%
	BINDIR/Modmig1D greens=%.GR <%.%1.mod par=migpar_%1_% >%.%1.modadj adj=1 atawt=0

%.%1.modt: %.%1.mod
	Transp <%.%1.mod | Tpow tpow=1 | Transp >%.%1.modt 

%.%1.modtadj: BINDIR/Modmig1D %.GR %.%1.modt migpar_%1_%
	BINDIR/Modmig1D greens=%.GR <%.%1.modt par=migpar_%1_% >%.%1.modtadj adj=1 atawt=0

%.migin: miginpar_%
	Spike par=miginpar_% >%.migin

%.mig: BINDIR/Modmig1D %.GR %.migin migpar_%
	time BINDIR/Modmig1D greens=%.GR <%.migin par=migpar_% >%.mig adj=1

%.scat: scatpar_% if exist scatpar_%
	Spike par=scatpar_% >%.scat


$=================================

%.vel: velpar_% if exist BINDIR/Velfld
	BINDIR/Velfld par=velpar_% >%.vel

%.vel: BINDIR/Velfld velpar_% if not  exist BINDIR/Velfld
	BINDIR/Velfld par=velpar_% >%.vel

%.vel: velpar1_% velpar2_%
	BINDIR/Velfld par=velpar1_% >tmp1.H
	BINDIR/Velfld par=velpar2_% >tmp2.H
	Merge axis=1 space=no tmp1.H tmp2.H >%.vel
	Rm tmp1.H tmp2.H

$=================================

#endif

%.M: %.H
	Byte <%.H pclip=100 gainpanel=all >%.M

%.RM4: %.R4
	Byte <%.R4 pclip=100 gainpanel=all >%.RM4

%.RM43: %.R43
	Byte <%.R43 pclip=100 gainpanel=all >%.RM43

clean&:
	-Rm *.R43 *.scat *.vel *.modmig *.modadj *.PR43 *.R41 *.GR *.mod *.PR41
