| # | 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 |