#!perl #
# # Perl script file 'elf1c.pl' to perform ray tracing for different # source-receiver configurations (for all 236 sources remove command # $n=1 below) # # Input files required: require 'go.pl' ; &CHK('crt/' ,'srpcrt.pl' ); &CHK('data/elf1/','elf1-mod.dat'); &CHK('data/elf1/','elf1-cod.dat'); &CHK('data/elf1/','elf1csrp.dat'); &CHK('data/elf1/','elf1ccrt.dat'); &CHK('data/elf1/','elf1ccrt.h' ); &CHK('crt/' ,'writsrf.dat' ); require 'srpcrt.pl' ; # # Deleting old recording of the screen output: if (-e 'elf1cscr.out') { unlink('elf1cscr.out'); } # $n=236; $n=1; # for ($j=1; $j<=$n; ++$j) { $k=sprintf("%3.3d",$j); &SRPCRT("elf1c","$k"); } # 1; #