# | Line 109 | Line 109 | if (@sundir) { | |
---|---|---|
109 | my $wt = 1./($ang[$i]+.02)/$wtot * $somega / $dom[$i]; | |
110 | my @scolor = split(/\s+/, $tregval[$ndx[$i]]); | |
111 | for my $j (0..2) { $scolor[$j] += $wt * $sunval[$j]; } | |
112 | < | $tregval[$ndx[$i]] = "@scolor\n"; |
112 | > | $tregval[$ndx[$i]] = "$scolor[0]\t$scolor[1]\t$scolor[2]\n"; |
113 | } | |
114 | } | |
115 | # Output our final vector |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |