demo Marchenko

fdelmodc/Makefile

@@ -23,7 +23,6 @@ SRCC	= $(PRG).c \
 		acoustic4.c \
 		acousticSH4.c \
 		acoustic4_qr.c \
-		acoustic4_test.c \
 		acoustic6.c \
 		viscoacoustic4.c \
 		elastic4.c \

fdelmodc/fdelmodc.c

@@ -498,10 +498,10 @@ private (tt, t2, t3) \
 shared (shot, bnd, mod, src, wav, rec, ixsrc, izsrc, it, src_nwav, verbose)
 {
 			switch ( mod.ischeme ) {
-				case -2 : /* test code for PML */
-					acoustic4_test(mod, src, wav, bnd, it, ixsrc, izsrc, src_nwav, 
-						vx, vz, tzz, rox, roz, l2m, verbose);
-					break;
+//				case -2 : /* test code for PML */
+//					acoustic4_test(mod, src, wav, bnd, it, ixsrc, izsrc, src_nwav, 
+//						vx, vz, tzz, rox, roz, l2m, verbose);
+//					break;
 				case -1 : /* Acoustic dissipative media FD kernel */
 					acoustic4_qr(mod, src, wav, bnd, it, ixsrc, izsrc, src_nwav, 
 						vx, vz, tzz, rox, roz, l2m, verbose);