#!perl #
# # Perl script file 'elf1b.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('model/elf1/','elf1-mod.dat'); &CHK('crt/elf1/' ,'elf1-cod.dat'); &CHK('crt/elf1/' ,'elf1bsrp.dat'); &CHK('crt/elf1/' ,'elf1bcrt.dat'); &CHK('crt/elf1/' ,'elf1bcrt.h' ); &CHK('crt/' ,'writsrf.dat' ); require 'srpcrt.pl' ; # # Deleting old recording of the screen output: if (-e 'elf1bscr.out') { unlink('elf1bscr.out'); } # $n=236; $n=1; # for ($j=1; $j<=$n; ++$j) { $k=sprintf("%3.3d",$j); &SRPCRT("elf1b","$k"); } # 1; #