# | Line 13 | Line 13 | sub userror { | |
---|---|---|
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]; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |