| line |
true |
false |
branch |
|
82
|
0 |
0 |
unless open OUTFILE, ">>$outfile" |
|
83
|
0 |
0 |
unless open TOSHELL, ">>$toshell" |
|
234
|
0 |
0 |
if ($countblock == 0 and $countstep == 1) |
|
236
|
0 |
0 |
unless (-e "$origin") |
|
238
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
274
|
0 |
0 |
unless ($to ~~ \@morphcases) |
|
334
|
0 |
0 |
unless (-e $to or eval $skip) |
|
346
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
358
|
0 |
0 |
if ($applytype[$countop][1] ne $applytype[$countop][2] and $modification_type ne 'changeconfig') |
|
360
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
365
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
371
|
0 |
0 |
if ($applytype[$countop][1] ne $applytype[$countop][2] and $modification_type eq 'changeconfig') |
|
373
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
384
|
0 |
0 |
if ($stepsvar > 1 and not eval $skip) |
|
396
|
0 |
0 |
if ($propagate_constraints[$countop] and not $whatdone eq 'done_constraint_propagation') |
|
402
|
0 |
0 |
if ($constrain_geometry[$countop] and not $whatdone eq 'done_geo_constraint') |
|
408
|
0 |
0 |
if ($constrain_controls[$countop] and not $whatdone eq 'done_constrol_constraint') |
|
414
|
0 |
0 |
if ($constrain_net[$countop] and not $whatdone eq 'done_net_constraint') |
|
419
|
0 |
0 |
if ($constrain_obstructions[$countop] and not $whatdone eq 'done_obs_constraint') |
|
425
|
0 |
0 |
if ($$keep_obstructions[$countop]) |
|
430
|
0 |
0 |
if ($apply_constraints[$countop]) |
|
436
|
0 |
0 |
if ($recalculatenet[$countop]) |
|
442
|
0 |
0 |
if ($recalculateish eq 'y') |
|
448
|
0 |
0 |
if ($daylightcalc[0] eq 'y') |
|
456
|
0 |
0 |
if ($modification_type eq 'generic_change') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'surface_translation_simple') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'surface_translation') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'surface_rotation') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'vertices_shift') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'vertex_translation') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'construction_reassignment') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'rotation') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'translation') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'thickness_change') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'rotationz') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'change_config') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'window_reshapement') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'obs_modification') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'warping') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'vary_controls') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'vary_net') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'change_climate') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'vary_controls') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'constrain_geometry') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'vary_net') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'constrain_obstructions') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'propagate_constraints') { } |
|
634
|
0 |
0 |
if ($stepsvar > 1) |
|
639
|
0 |
0 |
if ($yes_or_no_update_radiation eq 'y') { } |
|
689
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
727
|
0 |
0 |
if ($stepsvar > 1) |
|
730
|
0 |
0 |
if ($transform_type eq 'a') { } |
|
|
0 |
0 |
elsif ($transform_type eq 'b') { } |
|
733
|
0 |
0 |
if (ref $end_mov) { } |
|
776
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
831
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
869
|
0 |
0 |
if (ref $swingrotate) { } |
|
884
|
0 |
0 |
if ($swingrotate != 0 and $stepsvar > 1 and $yes_or_no_rotate_surfs eq 'y') |
|
914
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
945
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
953
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
976
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
978
|
0 |
0 |
if ($countvert == 0) |
|
984
|
0 |
0 |
if ($countvert > 0) |
|
1000
|
0 |
0 |
if (ref $x_end) { } |
|
1012
|
0 |
0 |
if (ref $y_end) { } |
|
1024
|
0 |
0 |
if (ref $z_end) { } |
|
1067
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1097
|
0 |
0 |
if ($stepsvar > 1) |
|
1100
|
0 |
0 |
if ($movementtype eq 'j') { } |
|
|
0 |
0 |
elsif ($movementtype eq 'h') { } |
|
1105
|
0 |
0 |
if (ref $shift_swing) { } |
|
1150
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1198
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1223
|
0 |
0 |
if (ref $swingrotate) |
|
1235
|
0 |
0 |
if ($swingrotate != 0 and $stepsvar > 1) |
|
1270
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1301
|
0 |
0 |
unless open INFILE, "$infile" |
|
1302
|
0 |
0 |
unless open $_outfile_2, ">>$outfile2" |
|
1313
|
0 |
0 |
if (ref $swingrotate) { } |
|
1321
|
0 |
0 |
if (ref $swingrotate) { } |
|
1332
|
0 |
0 |
if ($stepsvar > 1) |
|
1342
|
0 |
0 |
if ($row[0] eq '*vertex') |
|
1416
|
0 |
0 |
if ($row2[0] eq '*vertex') { } |
|
1418
|
0 |
0 |
if ($countwrite == -1) |
|
1426
|
0 |
0 |
if ($countwrite > -1) |
|
1430
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1432
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1434
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1436
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1438
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1440
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1495
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1525
|
0 |
0 |
if ($stepsvar > 1) |
|
1563
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1575
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1584
|
0 |
0 |
unless open GEOFILE, "$geofile" |
|
1592
|
0 |
0 |
if ($elts[0] eq '*obs') |
|
1603
|
0 |
0 |
if ($stepsvar > 1) |
|
1619
|
0 |
0 |
if ($modification_type eq 'a' or $modification_type eq 'b') |
|
1622
|
0 |
0 |
if (ref $x_end) { } |
|
1635
|
0 |
0 |
if (ref $y_end) { } |
|
1648
|
0 |
0 |
if (ref $z_end) { } |
|
1697
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1708
|
0 |
0 |
if ($modification_type eq 'c' or $modification_type eq 'd') |
|
1712
|
0 |
0 |
if (ref $x_end) { } |
|
1756
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1767
|
0 |
0 |
if ($modification_type eq 'g') |
|
1774
|
0 |
0 |
if ($count < $stepsvar) |
|
1804
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1818
|
0 |
0 |
if ($modification_type eq 'h') |
|
1823
|
0 |
0 |
if (ref $x_end) { } |
|
1868
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1877
|
0 |
0 |
if ($modification_type eq 't') |
|
1885
|
0 |
0 |
if (ref $x_end) { } |
|
1896
|
0 |
0 |
if (ref $y_end) { } |
|
1907
|
0 |
0 |
if (ref $z_end) { } |
|
1955
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1992
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2018
|
0 |
0 |
if ($what eq 'read') |
|
2023
|
0 |
0 |
if ($what eq 'write') |
|
2025
|
0 |
0 |
unless open GEOFILE, "$geofile" |
|
2040
|
0 |
0 |
if ($elts[0] eq '*obs' and $elts[13] ~~ \@obsnumbers) |
|
2046
|
0 |
0 |
unless open GEOFILE, ">$geofile" |
|
2052
|
0 |
0 |
if ($elts[0] eq '*obs' and $elts[13] ~~ \@obsnumbers) { } |
|
2094
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2108
|
0 |
0 |
unless opendir $d, $dir |
|
2109
|
0 |
0 |
if $_ ne '.' |
|
2134
|
0 |
0 |
unless (ifempty("$to/rad/")) |
|
2177
|
0 |
0 |
if (ifempty("$to/rad/")) |
|
2210
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2219
|
0 |
0 |
unless open RADFILE, $pathdf |
|
2237
|
0 |
0 |
unless open DFFILE, ">>$dffile" |
|
2261
|
0 |
0 |
if ($new_configfile ne $original_configfile) |
|
2263
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2274
|
0 |
0 |
unless ($sourceaddress eq '' or $targetaddress eq '') |
|
2277
|
0 |
0 |
if ($sourceaddress ne $targetaddress) |
|
2279
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2308
|
0 |
0 |
unless open FILECONFIG, $fileconfig |
|
2314
|
0 |
0 |
if ($line =~ /^\*clm/u) |
|
2323
|
0 |
0 |
unless open TEMPFILECONFIG, ">$tempfileconfig" |
|
2371
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
2384
|
0 |
0 |
if ($rowelements[0] eq '*vertex') { } |
|
|
0 |
0 |
elsif ($rowelements[0] eq '*obs') { } |
|
2386
|
0 |
0 |
if ($countvert == 0) |
|
2392
|
0 |
0 |
if ($countvert > 0) |
|
2430
|
0 |
0 |
if ($constrain) |
|
2433
|
0 |
0 |
if ($y_or_n_reassign_cp == 'y') |
|
2446
|
0 |
0 |
unless open INFILENET, $infilenet |
|
2465
|
0 |
0 |
if ($rowelements[0] eq 'Node') |
|
2466
|
0 |
0 |
if ($rowelements[0] eq 'Component') |
|
2467
|
0 |
0 |
if ($mode eq 'nodemode' and $countlines > 1 and $countlines < 2 + scalar(@nodesdata)) |
|
2476
|
0 |
0 |
if ($nodetype eq '0') { } |
|
|
0 |
0 |
elsif ($nodetype eq '3') { } |
|
2513
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2525
|
0 |
0 |
if ($y_or_n_reassign_cp == 'y') |
|
2562
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2577
|
0 |
0 |
if ($mode eq 'componentmode' and $line =~ /opening/u) { } |
|
|
0 |
0 |
elsif ($mode eq 'componentmode' and $line =~ /crack /u) { } |
|
2608
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2651
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2708
|
0 |
0 |
if (ref $swingvalue) { } |
|
2720
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
2729
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
2731
|
0 |
0 |
if ($countvert == 0) |
|
2737
|
0 |
0 |
if ($countvert > 0) |
|
2747
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
2765
|
0 |
0 |
if ($constrain) |
|
2768
|
0 |
0 |
if (-e $configaddress) |
|
2773
|
0 |
0 |
if ($constrain) |
|
2780
|
0 |
0 |
if ($countvertex > 0) |
|
2783
|
0 |
0 |
if ($vertexletter ~~ \@work_values) |
|
2811
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2867
|
0 |
0 |
unless (ref $swingvalue) |
|
2872
|
0 |
0 |
if (ref $swingvalue) |
|
2882
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
2893
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
2895
|
0 |
0 |
if ($countvert == 0) |
|
2901
|
0 |
0 |
if ($countvert > 0) |
|
2912
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
2933
|
0 |
0 |
if (-e $configaddress) |
|
2939
|
0 |
0 |
if (-e $constrain) |
|
2946
|
0 |
0 |
if ($countvertex > 0) |
|
2949
|
0 |
0 |
if ($vertexletter ~~ \@work_letters) |
|
2977
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3022
|
0 |
0 |
if (ref $swingrotate) |
|
3033
|
0 |
0 |
if ($swingrotate != 0 and $stepsvar > 1 and $yes_or_no_warp eq 'y') |
|
3063
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3075
|
0 |
0 |
unless open SOURCEFILE, $sourcefile |
|
3085
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
3087
|
0 |
0 |
if ($countvert == 0) |
|
3093
|
0 |
0 |
if ($countvert > 0) |
|
3104
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
3123
|
0 |
0 |
if (-e $configfile) |
|
3128
|
0 |
0 |
if (-e $constrain) |
|
3138
|
0 |
0 |
if ($countthis < $number_of_moves) |
|
3172
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3212
|
0 |
0 |
unless ($askop) |
|
3222
|
0 |
0 |
if (ref $_) { } |
|
3239
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
3257
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
3264
|
0 |
0 |
unless ($to_do eq 'justread') |
|
3276
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
3287
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
3323
|
0 |
0 |
if (-e $configaddress) |
|
3328
|
0 |
0 |
if (-e $constrain) |
|
3350
|
0 |
0 |
if (@work_letters eq '' or $vertexletter ~~ \@work_letters) |
|
3378
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3448
|
0 |
0 |
if ($countstep == 1) |
|
3468
|
1 |
0 |
if ($stepsvar == 0) |
|
3469
|
0 |
1 |
if ($stepsvar > 1) |
|
3496
|
0 |
0 |
if ($new_loop_letter eq $loop_letter and $new_loopcontrol_letter eq $loopcontrol_letter) |
|
3564
|
0 |
0 |
if ($swing_flow_onoff eq 'ON') { } |
|
|
0 |
0 |
elsif ($swing_flow_onoff eq 'OFF') { } |
|
3580
|
0 |
0 |
if ($new_flow_letter eq $flow_letter and $new_flowcontrol_letter eq $flowcontrol_letter) |
|
3585
|
0 |
0 |
if ($flow_onoff__ eq 'ON') { } |
|
|
0 |
0 |
elsif ($flow_onoff__ eq 'OFF') { } |
|
3660
|
0 |
0 |
if (@sentletters) { } |
|
3667
|
0 |
0 |
if (@sentperiod_letters) { } |
|
3692
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
3694
|
0 |
0 |
if ($countstep == 1) |
|
3704
|
0 |
0 |
unless ($to_do eq 'justread') |
|
3724
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
3736
|
0 |
0 |
if ($line =~ /Control function/u) |
|
3743
|
0 |
0 |
if ($line =~ /ctl type, law/u) |
|
3752
|
0 |
0 |
if ($semaphore_loop eq 'yes' and $semaphore_loopcontrol eq 'yes' and $line =~ /No. of data items/u) |
|
3757
|
0 |
0 |
if ($semaphore_loop eq 'yes' and $semaphore_loopcontrol eq 'yes' and $countlines == $doline) |
|
3776
|
0 |
0 |
if ($line =~ /Control mass/u) |
|
3783
|
0 |
0 |
if ($line =~ /ctl type \(/u) |
|
3792
|
0 |
0 |
if ($semaphore_flow eq 'yes' and $semaphore_flowcontrol eq 'yes' and $line =~ /No. of data items/u) |
|
3797
|
0 |
0 |
if ($semaphore_flow eq 'yes' and $semaphore_flowcontrol eq 'yes' and $countlines == $doline) |
|
3856
|
0 |
0 |
if (-e $configaddress) |
|
3865
|
0 |
0 |
if (-e $constrain) |
|
3934
|
0 |
0 |
unless (\@{$new_loop_ctls[$countloop];} ~~ \@{$temploopcontrol[$countloop];}) |
|
3974
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4003
|
0 |
0 |
unless (\@{$new_flowcontrols[$countflow];} ~~ \@{$tempflowcontrol[$countflow];}) |
|
4026
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4071
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
4078
|
0 |
0 |
unless ($to_do eq 'justread') |
|
4097
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
4105
|
0 |
0 |
if ($line =~ /\*obs/u) |
|
4107
|
0 |
0 |
unless ($line =~ /\*obs =/u) |
|
4114
|
0 |
0 |
if (@sentobs_letters) { } |
|
4120
|
0 |
0 |
if ($count > 21) { } |
|
4142
|
0 |
0 |
if ($line =~ /\*obs/u) |
|
4144
|
0 |
0 |
unless ($line =~ /\*obs =/u) |
|
4202
|
0 |
0 |
if (-e $configaddress) |
|
4208
|
0 |
0 |
if (-e $constrain) |
|
4235
|
0 |
0 |
if (@work_letters eq '' or $obs_letter ~~ \@work_letters) |
|
4250
|
0 |
0 |
unless (\@{$obs[$countobs];} ~~ \@{$tempobs[$countobs];}) |
|
4288
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4297
|
0 |
0 |
if ($obs_letter ~~ \@work_letters) |
|
4299
|
0 |
0 |
if ($actonmaterials eq 'y') |
|
4325
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4382
|
0 |
0 |
if ($countstep == 1) |
|
4400
|
0 |
0 |
if ($stepsvar == 0) |
|
4401
|
0 |
0 |
if ($stepsvar > 1) |
|
4420
|
0 |
0 |
if ($new_node_letter eq $node_letter) |
|
4433
|
0 |
0 |
if ($swing_height == 0) |
|
4439
|
0 |
0 |
if ($swing_data_2 == 0) |
|
4445
|
0 |
0 |
if ($swing_data_1 == 0) |
|
4468
|
0 |
0 |
if ($new_component_letter eq $component_letter) |
|
4484
|
0 |
0 |
if ($swing_data_1 == 0) |
|
4489
|
0 |
0 |
if ($swing_data_2 == 0) |
|
4494
|
0 |
0 |
if ($swing_data_3 == 0) |
|
4499
|
0 |
0 |
if ($swing_data_4 == 0) |
|
4528
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
4541
|
0 |
0 |
if ($line =~ /Fld. Type/u) |
|
4545
|
0 |
0 |
if ($semaphore_node eq 'yes') |
|
4549
|
0 |
0 |
if ($line =~ /Type C\+ L\+/u) |
|
4557
|
0 |
0 |
if ($semaphore_node eq 'yes' and $semaphore_component eq 'no' and $countnode >= 0) |
|
4570
|
0 |
0 |
if ($semaphore_component eq 'yes') |
|
4575
|
0 |
0 |
if ($line =~ /\+Node/u) |
|
4582
|
0 |
0 |
if ($semaphore_component eq 'yes' and $semaphore_connection eq 'no' and $countcomponent > 0) |
|
4586
|
0 |
0 |
if ($countcomponent % 2 == 1) { } |
|
4591
|
0 |
0 |
if ($type eq '110') |
|
4592
|
0 |
0 |
if ($type eq '120') |
|
4593
|
0 |
0 |
if ($type eq '130') |
|
4633
|
0 |
0 |
unless (\@{$new_nodes[$countnode];} ~~ \@{$tempnodes[$countnode];}) |
|
4635
|
0 |
0 |
if ($new_type eq 'a') |
|
4665
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4672
|
0 |
0 |
if ($new_type eq 'e') |
|
4702
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4734
|
0 |
0 |
unless (\@{$new_components[$countcomponents];} ~~ \@{$tempcomponents[$countcomponents];}) |
|
4737
|
0 |
0 |
if ($new_type eq 'k') |
|
4762
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4769
|
0 |
0 |
if ($new_type eq 'l') |
|
4794
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4801
|
0 |
0 |
if ($new_type eq 'm') |
|
4826
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4885
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
4888
|
0 |
0 |
if ($countstep == 1) |
|
4896
|
0 |
0 |
unless ($to_do eq 'justread') |
|
4915
|
0 |
0 |
if (-e $configaddress) |
|
4962
|
0 |
0 |
if (-e $constrain) |
|
5076
|
0 |
0 |
if ($count > 0) |
|
5084
|
0 |
0 |
if ($what_to_do eq 'read_geo') { } |
|
|
0 |
0 |
elsif ($what_to_do eq 'read_obs') { } |
|
|
0 |
0 |
elsif ($what_to_do eq 'read_ctl') { } |
|
|
0 |
0 |
elsif ($what_to_do eq 'read_net') { } |
|
|
0 |
0 |
elsif ($what_to_do eq 'write_geo') { } |
|
|
0 |
0 |
elsif ($what_to_do eq 'write_obs') { } |
|
|
0 |
0 |
elsif ($what_to_do eq 'write_ctl') { } |
|
|
0 |
0 |
elsif ($what_to_do eq 'write_net') { } |