| line |
true |
false |
branch |
|
116
|
0 |
0 |
if (/^Source:\s*(\S*)/) { } |
|
|
0 |
0 |
elsif (m[^OBS\.\sDATE:\s(\S+)\s+Time\sof\srecord:\s+
(\d+/\s+\d+\s+\d+\s+\d+\.\d+)]x) { } |
|
|
0 |
0 |
elsif (/^Bw \(\S+\):\s+(\S+)/) { } |
|
|
0 |
0 |
elsif (/^Antenna\s#\s+\d+\s+name:\s+(\S+)/) { } |
|
|
0 |
0 |
elsif (/^DATA/) { } |
|
132
|
0 |
0 |
if $eof |
|
138
|
0 |
0 |
if ($astro::oldpossm) { } |
|
139
|
0 |
0 |
if (/Channel.*IF.*(Velocity|Frequency).*(Ampl|Real).*(Phase|Imag)/) |
|
140
|
0 |
0 |
if $1 eq 'Velocity' |
|
141
|
0 |
0 |
if ($2 eq 'Ampl') { } |
|
152
|
0 |
0 |
if (/Channel.*IF.*Polar.*Frequency.*Velocity.*(Ampl|Real).*(Phase|Imag)/) |
|
154
|
0 |
0 |
if ($1 eq 'Ampl') { } |
|
164
|
0 |
0 |
if $eof |
|
170
|
0 |
0 |
if ($astro::oldpossm and /\s*(\d+)\s+ # Channel
\d+\s+ # IF
([-+]?\d+\.\d*(?:[Ee][\-+]\d+)?)\s+ # Velocity Frequency
([-+]?\d+\.\d*(?:[Ee][\-+]\d+)?)\s+ # Amplitude
([-+]?\d+\.\d*) # Phase
/x) { } |
|
|
0 |
0 |
elsif (/\s*(\d+)\s+ # Channel
\d+\s+ # IF
\S+\s+ # Polar
(\d+\.\d*(?:[Ee][\-+]\d+)?)\s+ # Frequency
([-+]?\d+\.\d*(?:[Ee][\-+]\d+)?)\s+ # Velocity
([-+]?\d+\.\d*(?:[Ee][\-+]\d+)?)\s+ # Amplitude - Real
([-+]?\d+\.\d*) # Phase - Imag
/x) { } |
|
|
0 |
0 |
elsif (/\s*\d+.*FLAGGED/) { } |
|
|
0 |
0 |
elsif (/Header/) { } |
|
179
|
0 |
0 |
if ($velocity) { } |
|
212
|
0 |
0 |
if $n == 0 |
|
234
|
0 |
0 |
unless (open LOVAS, $fname) |
|
268
|
0 |
0 |
if ($Astro::Misc::c ne ' ') |
|
274
|
0 |
0 |
if (not defined $s1) { } |
|
|
0 |
0 |
elsif (not defined $s2) { } |
|
|
0 |
0 |
elsif (length $s2 > length $s1) { } |
|
291
|
0 |
0 |
if ($molecule eq 'unidentifie') |
|
296
|
0 |
0 |
if ($freq =~ /(.*)\*$/) { } |
|
306
|
0 |
0 |
if ($freq =~ /([^\s\*\(]*[\d\.])\s*(\*)?\s*(\(\s*\d+\))?/) { } |
|
309
|
0 |
0 |
if (defined $2) { } |
|
314
|
0 |
0 |
if (defined $3) { } |
|
325
|
0 |
0 |
if defined $min and $freq < $min |
|
326
|
0 |
0 |
if defined $max and $freq > $max |
|
500
|
0 |
0 |
if ($lum < $Astro::Misc::ThompsonData[0][2]) { } |
|
|
0 |
0 |
elsif ($lum > $Astro::Misc::ThompsonData[$n - 1][2]) { } |
|
512
|
0 |
0 |
if ($Astro::Misc::ThompsonData[$n][2] - $lum < $lum - $Astro::Misc::ThompsonData[$n - 1][2]) { } |
|
535
|
0 |
0 |
if ($Nl < $Astro::Misc::ThompsonData[0][5]) { } |
|
|
0 |
0 |
elsif ($Nl > $Astro::Misc::ThompsonData[$n - 1][5]) { } |
|
547
|
0 |
0 |
if ($Astro::Misc::ThompsonData[$n][5] - $Nl < $Nl - $Astro::Misc::ThompsonData[$n - 1][5]) { } |
|
579
|
0 |
0 |
if ($epoch eq 'J2000' or $epoch eq 'J') |
|
586
|
0 |
0 |
if $model != 1 and $model != 2 |
|
599
|
0 |
0 |
if ($model == 1) { } |
|
605
|
0 |
0 |
if ($R > 5 * $Ro) |
|
611
|
0 |
0 |
if $R < 0 |
|
615
|
0 |
0 |
if ($model == 1) { } |
|
621
|
0 |
0 |
if ($R > 5 * $Ro) |
|
627
|
0 |
0 |
if (sin($l) * $Ro / $R > 1) { } |
|
|
0 |
0 |
elsif (sin($l) * $Ro / $R < -1) { } |
|
636
|
0 |
0 |
if (sin $l == 0) { } |
|
646
|
0 |
0 |
if ($dist1 <= $dist2) { } |
|
685
|
0 |
0 |
if ($R <= 0.09 * $Ro) { } |
|
|
0 |
0 |
elsif (0.09 * $Ro < $R and $R <= 0.45 * $Ro) { } |
|
|
0 |
0 |
elsif (0.45 * $Ro < $R and $R <= 1.6 * $Ro) { } |
|
|
0 |
0 |
elsif (1.6 * $Ro < $R) { } |