13 |
|
exit 1; |
14 |
|
} |
15 |
|
my ($td,$radscn,$mgfscn,$octree,$fsender,$bsender,$receivers,$facedat,$behinddat,$rmtmp); |
16 |
< |
my ($tf,$rf,$tb,$rb,$tfx,$rfx,$tbx,$rbx,$tfz,$rfz,$tbz,$rbz,$cph,$sav); |
16 |
> |
my ($tf,$rf,$tb,$rb,$tfx,$rfx,$tbx,$rbx,$tfz,$rfz,$tbz,$rbz,$cph); |
17 |
|
my ($curphase, $recovery); |
18 |
|
if ($#ARGV == 1 && "$ARGV[0]" =~ /^-rec/) { |
19 |
|
$td = $ARGV[1]; |
21 |
|
@ARGV = <MYAVH>; |
22 |
|
close MYAVH; |
23 |
|
chomp @ARGV; |
24 |
+ |
$recovery = 0; |
25 |
|
if (open(MYPH, "< $td/phase.txt")) { |
26 |
|
while (<MYPH>) { |
27 |
|
chomp($recovery = $_); |