| line |
true |
false |
branch |
|
82
|
0 |
0 |
unless open OUTFILE, ">>$outfile" |
|
83
|
0 |
0 |
unless open TOSHELL, ">>$toshell" |
|
135
|
0 |
0 |
unless ($exeonfiles) |
|
136
|
0 |
0 |
unless ($preventsim) |
|
137
|
0 |
0 |
unless ($report) |
|
238
|
0 |
0 |
if ($countblock == 0 and $countstep == 1) |
|
240
|
0 |
0 |
unless (-e "$origin") |
|
242
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
278
|
0 |
0 |
unless ($to ~~ \@morphcases) |
|
338
|
0 |
0 |
unless (-e $to or eval $$skip[$countop]) |
|
350
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
362
|
0 |
0 |
if ($applytype[$countop][1] ne $applytype[$countop][2] and $modification_type ne 'changeconfig') |
|
364
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
369
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
375
|
0 |
0 |
if ($applytype[$countop][1] ne $applytype[$countop][2] and $modification_type eq 'changeconfig') |
|
377
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
388
|
0 |
0 |
if ($stepsvar > 1 and not eval $skip) |
|
400
|
0 |
0 |
if ($propagate_constraints[$countop] and not $whatdone eq 'done_constraint_propagation') |
|
406
|
0 |
0 |
if ($constrain_geometry[$countop] and not $whatdone eq 'done_geo_constraint') |
|
412
|
0 |
0 |
if ($constrain_controls[$countop] and not $whatdone eq 'done_constrol_constraint') |
|
418
|
0 |
0 |
if ($constrain_net[$countop] and not $whatdone eq 'done_net_constraint') |
|
423
|
0 |
0 |
if ($constrain_obstructions[$countop] and not $whatdone eq 'done_obs_constraint') |
|
429
|
0 |
0 |
if ($$keep_obstructions[$countop]) |
|
434
|
0 |
0 |
if ($apply_constraints[$countop]) |
|
440
|
0 |
0 |
if ($recalculatenet[$countop]) |
|
446
|
0 |
0 |
if ($recalculateish eq 'y') |
|
452
|
0 |
0 |
if ($daylightcalc[0] eq 'y') |
|
460
|
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') { } |
|
638
|
0 |
0 |
if ($stepsvar > 1) |
|
643
|
0 |
0 |
if ($yes_or_no_update_radiation eq 'y') { } |
|
693
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
731
|
0 |
0 |
if ($stepsvar > 1) |
|
734
|
0 |
0 |
if ($transform_type eq 'a') { } |
|
|
0 |
0 |
elsif ($transform_type eq 'b') { } |
|
737
|
0 |
0 |
if (ref $end_mov) { } |
|
780
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
835
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
873
|
0 |
0 |
if (ref $swingrotate) { } |
|
888
|
0 |
0 |
if ($swingrotate != 0 and $stepsvar > 1 and $yes_or_no_rotate_surfs eq 'y') |
|
918
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
949
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
957
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
980
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
982
|
0 |
0 |
if ($countvert == 0) |
|
988
|
0 |
0 |
if ($countvert > 0) |
|
1004
|
0 |
0 |
if (ref $x_end) { } |
|
1016
|
0 |
0 |
if (ref $y_end) { } |
|
1028
|
0 |
0 |
if (ref $z_end) { } |
|
1071
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1101
|
0 |
0 |
if ($stepsvar > 1) |
|
1104
|
0 |
0 |
if ($movementtype eq 'j') { } |
|
|
0 |
0 |
elsif ($movementtype eq 'h') { } |
|
1109
|
0 |
0 |
if (ref $shift_swing) { } |
|
1154
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1202
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1227
|
0 |
0 |
if (ref $swingrotate) |
|
1239
|
0 |
0 |
if ($swingrotate != 0 and $stepsvar > 1) |
|
1274
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1305
|
0 |
0 |
unless open INFILE, "$infile" |
|
1306
|
0 |
0 |
unless open $_outfile_2, ">>$outfile2" |
|
1317
|
0 |
0 |
if (ref $swingrotate) { } |
|
1325
|
0 |
0 |
if (ref $swingrotate) { } |
|
1336
|
0 |
0 |
if ($stepsvar > 1) |
|
1346
|
0 |
0 |
if ($row[0] eq '*vertex') |
|
1420
|
0 |
0 |
if ($row2[0] eq '*vertex') { } |
|
1422
|
0 |
0 |
if ($countwrite == -1) |
|
1430
|
0 |
0 |
if ($countwrite > -1) |
|
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') |
|
1442
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1444
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1499
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1529
|
0 |
0 |
if ($stepsvar > 1) |
|
1567
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1579
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1588
|
0 |
0 |
unless open GEOFILE, "$geofile" |
|
1596
|
0 |
0 |
if ($elts[0] eq '*obs') |
|
1607
|
0 |
0 |
if ($stepsvar > 1) |
|
1623
|
0 |
0 |
if ($modification_type eq 'a' or $modification_type eq 'b') |
|
1626
|
0 |
0 |
if (ref $x_end) { } |
|
1639
|
0 |
0 |
if (ref $y_end) { } |
|
1652
|
0 |
0 |
if (ref $z_end) { } |
|
1701
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1712
|
0 |
0 |
if ($modification_type eq 'c' or $modification_type eq 'd') |
|
1716
|
0 |
0 |
if (ref $x_end) { } |
|
1760
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1771
|
0 |
0 |
if ($modification_type eq 'g') |
|
1778
|
0 |
0 |
if ($count < $stepsvar) |
|
1808
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1822
|
0 |
0 |
if ($modification_type eq 'h') |
|
1827
|
0 |
0 |
if (ref $x_end) { } |
|
1872
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1881
|
0 |
0 |
if ($modification_type eq 't') |
|
1889
|
0 |
0 |
if (ref $x_end) { } |
|
1900
|
0 |
0 |
if (ref $y_end) { } |
|
1911
|
0 |
0 |
if (ref $z_end) { } |
|
1959
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1996
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2022
|
0 |
0 |
if ($what eq 'read') |
|
2027
|
0 |
0 |
if ($what eq 'write') |
|
2029
|
0 |
0 |
unless open GEOFILE, "$geofile" |
|
2044
|
0 |
0 |
if ($elts[0] eq '*obs' and $elts[13] ~~ \@obsnumbers) |
|
2050
|
0 |
0 |
unless open GEOFILE, ">$geofile" |
|
2056
|
0 |
0 |
if ($elts[0] eq '*obs' and $elts[13] ~~ \@obsnumbers) { } |
|
2098
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2112
|
0 |
0 |
unless opendir $d, $dir |
|
2113
|
0 |
0 |
if $_ ne '.' |
|
2138
|
0 |
0 |
unless (ifempty("$to/rad/")) |
|
2181
|
0 |
0 |
if (ifempty("$to/rad/")) |
|
2214
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2223
|
0 |
0 |
unless open RADFILE, $pathdf |
|
2241
|
0 |
0 |
unless open DFFILE, ">>$dffile" |
|
2265
|
0 |
0 |
if ($new_configfile ne $original_configfile) |
|
2267
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2278
|
0 |
0 |
unless ($sourceaddress eq '' or $targetaddress eq '') |
|
2281
|
0 |
0 |
if ($sourceaddress ne $targetaddress) |
|
2283
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2312
|
0 |
0 |
unless open FILECONFIG, $fileconfig |
|
2318
|
0 |
0 |
if ($line =~ /^\*clm/u) |
|
2327
|
0 |
0 |
unless open TEMPFILECONFIG, ">$tempfileconfig" |
|
2375
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
2388
|
0 |
0 |
if ($rowelements[0] eq '*vertex') { } |
|
|
0 |
0 |
elsif ($rowelements[0] eq '*obs') { } |
|
2390
|
0 |
0 |
if ($countvert == 0) |
|
2396
|
0 |
0 |
if ($countvert > 0) |
|
2434
|
0 |
0 |
if ($constrain) |
|
2437
|
0 |
0 |
if ($y_or_n_reassign_cp == 'y') |
|
2450
|
0 |
0 |
unless open INFILENET, $infilenet |
|
2469
|
0 |
0 |
if ($rowelements[0] eq 'Node') |
|
2470
|
0 |
0 |
if ($rowelements[0] eq 'Component') |
|
2471
|
0 |
0 |
if ($mode eq 'nodemode' and $countlines > 1 and $countlines < 2 + scalar(@nodesdata)) |
|
2480
|
0 |
0 |
if ($nodetype eq '0') { } |
|
|
0 |
0 |
elsif ($nodetype eq '3') { } |
|
2517
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2529
|
0 |
0 |
if ($y_or_n_reassign_cp == 'y') |
|
2566
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2581
|
0 |
0 |
if ($mode eq 'componentmode' and $line =~ /opening/u) { } |
|
|
0 |
0 |
elsif ($mode eq 'componentmode' and $line =~ /crack /u) { } |
|
2612
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2655
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2712
|
0 |
0 |
if (ref $swingvalue) { } |
|
2724
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
2733
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
2735
|
0 |
0 |
if ($countvert == 0) |
|
2741
|
0 |
0 |
if ($countvert > 0) |
|
2751
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
2769
|
0 |
0 |
if ($constrain) |
|
2772
|
0 |
0 |
if (-e $configaddress) |
|
2777
|
0 |
0 |
if ($constrain) |
|
2784
|
0 |
0 |
if ($countvertex > 0) |
|
2787
|
0 |
0 |
if ($vertexletter ~~ \@work_values) |
|
2815
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2871
|
0 |
0 |
unless (ref $swingvalue) |
|
2876
|
0 |
0 |
if (ref $swingvalue) |
|
2886
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
2897
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
2899
|
0 |
0 |
if ($countvert == 0) |
|
2905
|
0 |
0 |
if ($countvert > 0) |
|
2916
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
2937
|
0 |
0 |
if (-e $configaddress) |
|
2943
|
0 |
0 |
if (-e $constrain) |
|
2950
|
0 |
0 |
if ($countvertex > 0) |
|
2953
|
0 |
0 |
if ($vertexletter ~~ \@work_letters) |
|
2981
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3026
|
0 |
0 |
if (ref $swingrotate) |
|
3037
|
0 |
0 |
if ($swingrotate != 0 and $stepsvar > 1 and $yes_or_no_warp eq 'y') |
|
3067
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3079
|
0 |
0 |
unless open SOURCEFILE, $sourcefile |
|
3089
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
3091
|
0 |
0 |
if ($countvert == 0) |
|
3097
|
0 |
0 |
if ($countvert > 0) |
|
3108
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
3127
|
0 |
0 |
if (-e $configfile) |
|
3132
|
0 |
0 |
if (-e $constrain) |
|
3142
|
0 |
0 |
if ($countthis < $number_of_moves) |
|
3176
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3216
|
0 |
0 |
unless ($askop) |
|
3226
|
0 |
0 |
if (ref $_) { } |
|
3243
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
3261
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
3268
|
0 |
0 |
unless ($to_do eq 'justread') |
|
3280
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
3291
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
3327
|
0 |
0 |
if (-e $configaddress) |
|
3332
|
0 |
0 |
if (-e $constrain) |
|
3354
|
0 |
0 |
if (@work_letters eq '' or $vertexletter ~~ \@work_letters) |
|
3382
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3452
|
0 |
0 |
if ($countstep == 1) |
|
3472
|
1 |
0 |
if ($stepsvar == 0) |
|
3473
|
0 |
1 |
if ($stepsvar > 1) |
|
3500
|
0 |
0 |
if ($new_loop_letter eq $loop_letter and $new_loopcontrol_letter eq $loopcontrol_letter) |
|
3568
|
0 |
0 |
if ($swing_flow_onoff eq 'ON') { } |
|
|
0 |
0 |
elsif ($swing_flow_onoff eq 'OFF') { } |
|
3584
|
0 |
0 |
if ($new_flow_letter eq $flow_letter and $new_flowcontrol_letter eq $flowcontrol_letter) |
|
3589
|
0 |
0 |
if ($flow_onoff__ eq 'ON') { } |
|
|
0 |
0 |
elsif ($flow_onoff__ eq 'OFF') { } |
|
3664
|
0 |
0 |
if (@sentletters) { } |
|
3671
|
0 |
0 |
if (@sentperiod_letters) { } |
|
3696
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
3698
|
0 |
0 |
if ($countstep == 1) |
|
3708
|
0 |
0 |
unless ($to_do eq 'justread') |
|
3728
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
3740
|
0 |
0 |
if ($line =~ /Control function/u) |
|
3747
|
0 |
0 |
if ($line =~ /ctl type, law/u) |
|
3756
|
0 |
0 |
if ($semaphore_loop eq 'yes' and $semaphore_loopcontrol eq 'yes' and $line =~ /No. of data items/u) |
|
3761
|
0 |
0 |
if ($semaphore_loop eq 'yes' and $semaphore_loopcontrol eq 'yes' and $countlines == $doline) |
|
3780
|
0 |
0 |
if ($line =~ /Control mass/u) |
|
3787
|
0 |
0 |
if ($line =~ /ctl type \(/u) |
|
3796
|
0 |
0 |
if ($semaphore_flow eq 'yes' and $semaphore_flowcontrol eq 'yes' and $line =~ /No. of data items/u) |
|
3801
|
0 |
0 |
if ($semaphore_flow eq 'yes' and $semaphore_flowcontrol eq 'yes' and $countlines == $doline) |
|
3860
|
0 |
0 |
if (-e $configaddress) |
|
3869
|
0 |
0 |
if (-e $constrain) |
|
3938
|
0 |
0 |
unless (\@{$new_loop_ctls[$countloop];} ~~ \@{$temploopcontrol[$countloop];}) |
|
3978
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4007
|
0 |
0 |
unless (\@{$new_flowcontrols[$countflow];} ~~ \@{$tempflowcontrol[$countflow];}) |
|
4030
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4075
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
4082
|
0 |
0 |
unless ($to_do eq 'justread') |
|
4101
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
4109
|
0 |
0 |
if ($line =~ /\*obs/u) |
|
4111
|
0 |
0 |
unless ($line =~ /\*obs =/u) |
|
4118
|
0 |
0 |
if (@sentobs_letters) { } |
|
4124
|
0 |
0 |
if ($count > 21) { } |
|
4146
|
0 |
0 |
if ($line =~ /\*obs/u) |
|
4148
|
0 |
0 |
unless ($line =~ /\*obs =/u) |
|
4206
|
0 |
0 |
if (-e $configaddress) |
|
4212
|
0 |
0 |
if (-e $constrain) |
|
4239
|
0 |
0 |
if (@work_letters eq '' or $obs_letter ~~ \@work_letters) |
|
4254
|
0 |
0 |
unless (\@{$obs[$countobs];} ~~ \@{$tempobs[$countobs];}) |
|
4292
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4301
|
0 |
0 |
if ($obs_letter ~~ \@work_letters) |
|
4303
|
0 |
0 |
if ($actonmaterials eq 'y') |
|
4329
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4386
|
0 |
0 |
if ($countstep == 1) |
|
4404
|
0 |
0 |
if ($stepsvar == 0) |
|
4405
|
0 |
0 |
if ($stepsvar > 1) |
|
4424
|
0 |
0 |
if ($new_node_letter eq $node_letter) |
|
4437
|
0 |
0 |
if ($swing_height == 0) |
|
4443
|
0 |
0 |
if ($swing_data_2 == 0) |
|
4449
|
0 |
0 |
if ($swing_data_1 == 0) |
|
4472
|
0 |
0 |
if ($new_component_letter eq $component_letter) |
|
4488
|
0 |
0 |
if ($swing_data_1 == 0) |
|
4493
|
0 |
0 |
if ($swing_data_2 == 0) |
|
4498
|
0 |
0 |
if ($swing_data_3 == 0) |
|
4503
|
0 |
0 |
if ($swing_data_4 == 0) |
|
4532
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
4545
|
0 |
0 |
if ($line =~ /Fld. Type/u) |
|
4549
|
0 |
0 |
if ($semaphore_node eq 'yes') |
|
4553
|
0 |
0 |
if ($line =~ /Type C\+ L\+/u) |
|
4561
|
0 |
0 |
if ($semaphore_node eq 'yes' and $semaphore_component eq 'no' and $countnode >= 0) |
|
4574
|
0 |
0 |
if ($semaphore_component eq 'yes') |
|
4579
|
0 |
0 |
if ($line =~ /\+Node/u) |
|
4586
|
0 |
0 |
if ($semaphore_component eq 'yes' and $semaphore_connection eq 'no' and $countcomponent > 0) |
|
4590
|
0 |
0 |
if ($countcomponent % 2 == 1) { } |
|
4595
|
0 |
0 |
if ($type eq '110') |
|
4596
|
0 |
0 |
if ($type eq '120') |
|
4597
|
0 |
0 |
if ($type eq '130') |
|
4637
|
0 |
0 |
unless (\@{$new_nodes[$countnode];} ~~ \@{$tempnodes[$countnode];}) |
|
4639
|
0 |
0 |
if ($new_type eq 'a') |
|
4669
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4676
|
0 |
0 |
if ($new_type eq 'e') |
|
4706
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4738
|
0 |
0 |
unless (\@{$new_components[$countcomponents];} ~~ \@{$tempcomponents[$countcomponents];}) |
|
4741
|
0 |
0 |
if ($new_type eq 'k') |
|
4766
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4773
|
0 |
0 |
if ($new_type eq 'l') |
|
4798
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4805
|
0 |
0 |
if ($new_type eq 'm') |
|
4830
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4889
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
4892
|
0 |
0 |
if ($countstep == 1) |
|
4900
|
0 |
0 |
unless ($to_do eq 'justread') |
|
4919
|
0 |
0 |
if (-e $configaddress) |
|
4966
|
0 |
0 |
if (-e $constrain) |
|
5077
|
0 |
0 |
if ($count > 0) |
|
5085
|
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') { } |