#!perl                                                      #<HTML><PRE>
#
# 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;                                                               #</PRE>
