| line |
true |
false |
branch |
|
54
|
0 |
0 |
if (-e $configfile) { } |
|
61
|
0 |
0 |
if (-e $casegroupfile) |
|
70
|
0 |
0 |
unless open OUTFILE, ">$outfile" |
|
|
0 |
0 |
if ($outfile) |
|
71
|
0 |
0 |
unless open TOSHELL, ">$toshell" |
|
|
0 |
0 |
if ($toshell) |
|
72
|
0 |
0 |
unless (-e "$mypath/models") |
|
73
|
0 |
0 |
unless (-e "$mypath/models") |
|
75
|
0 |
0 |
if (-e './SIM/OPTS/prepare.pm') |
|
106
|
0 |
0 |
unless open MORPHFILE, ">$morphfile" |
|
146
|
0 |
0 |
if ($countvar == $#varnumbers) |
|
202
|
0 |
0 |
if (eval $skip) |
|
204
|
0 |
0 |
if ($countvar == 0 and $countblock == 1 and $countcase == 0) |
|
206
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
224
|
0 |
0 |
if ($generate eq 'n' and $sequencer eq 'y' || $sequencer eq 'last') { } |
|
|
0 |
0 |
elsif ($generate eq 'y' and $sequencer eq 'n') { } |
|
|
0 |
0 |
elsif ($generate eq 'y' and $sequencer eq 'y') { } |
|
|
0 |
0 |
elsif ($generate eq 'y' and $sequencer eq 'last') { } |
|
|
0 |
0 |
elsif ($generate eq 'n' and $sequencer eq 'n') { } |
|
227
|
0 |
0 |
if ($almost_to =~ /\302\247$/u) { } |
|
236
|
0 |
0 |
if ($almost_to =~ /_$/u) { } |
|
255
|
0 |
0 |
if ($almost_to =~ /\302\243$/u) { } |
|
274
|
0 |
0 |
if ($countvar == $#varnumbers and ($skip ne '' and $skipask ne 'yes')) |
|
283
|
0 |
0 |
if ($generate eq 'y' and $counterstep == $stepsvar and $sequencer eq 'n' || $sequencer eq 'last' and ($skip ne '' and $skipask ne 'yes')) { } |
|
289
|
0 |
0 |
unless (-e $to) |
|
291
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
299
|
0 |
0 |
unless (-e $to) |
|
302
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
317
|
0 |
0 |
if ($applytype[$counterzone][1] ne $applytype[$counterzone][2] and $modification_type ne 'changeconfig') |
|
320
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
326
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
334
|
0 |
0 |
if ($applytype[$counterzone][1] ne $applytype[$counterzone][2] and $modification_type eq 'changeconfig') |
|
341
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
373
|
0 |
0 |
if ($stepsvar > 1) |
|
379
|
0 |
0 |
if ($yes_or_no_update_radiation eq 'y') { } |
|
|
0 |
0 |
elsif ($yes_or_no_update_radiation eq 'n') { } |
|
386
|
0 |
0 |
if ($yes_or_no_translation eq 'y') |
|
429
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
481
|
0 |
0 |
if ($yes_or_no_transl_surfs eq 'y') |
|
485
|
0 |
0 |
if ($stepsvar > 1) |
|
523
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
557
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
600
|
0 |
0 |
if ($yes_or_no_transl_surfs eq 'y') |
|
604
|
0 |
0 |
if ($stepsvar > 1) |
|
606
|
0 |
0 |
if ($transform_type eq 'a') { } |
|
|
0 |
0 |
elsif ($transform_type eq 'b') { } |
|
641
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
694
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
732
|
0 |
0 |
if ($yes_or_no_rotate_surfs eq 'y') |
|
743
|
0 |
0 |
if ($swingrotate != 0 and $stepsvar > 1 and $yes_or_no_rotate_surfs eq 'y') |
|
773
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
825
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
833
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
856
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
858
|
0 |
0 |
if ($countervert == 0) |
|
864
|
0 |
0 |
if ($countervert > 0) |
|
873
|
0 |
0 |
if (-e $configaddress) |
|
882
|
0 |
0 |
if ($countervertex > 0) |
|
884
|
0 |
0 |
if ($vertex_letter eq $v[$countervertex][3]) |
|
925
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
965
|
0 |
0 |
if ($stepsvar > 1) |
|
967
|
0 |
0 |
if ($yes_or_no_shift_vertexes eq 'y') |
|
971
|
0 |
0 |
if ($movementtype eq 'j') { } |
|
|
0 |
0 |
elsif ($movementtype eq 'h') { } |
|
1010
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1056
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1093
|
0 |
0 |
if ($swingrotate != 0 and $stepsvar > 1 and $yes_or_no_rotation eq 'y') |
|
1131
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1166
|
0 |
0 |
unless open INFILE, "$infile" |
|
1167
|
0 |
0 |
unless open OUTFILE2, ">>$outfile2" |
|
1185
|
0 |
0 |
if ($stepsvar > 1 and $yes_or_no_rotation eq 'y') |
|
1195
|
0 |
0 |
if ($row[0] eq '*vertex') |
|
1269
|
0 |
0 |
if ($row2[0] eq '*vertex') { } |
|
1271
|
0 |
0 |
if ($counterwrite == -1) |
|
1279
|
0 |
0 |
if ($counterwrite > -1) |
|
1283
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1285
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1287
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1289
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1291
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1293
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1318
|
0 |
0 |
unless open INFILE, "$infile" |
|
1319
|
0 |
0 |
unless open OUTFILE, ">$outfile" |
|
1328
|
0 |
0 |
if ($counterline == $linetochange - 1) { } |
|
1335
|
0 |
0 |
if ($stepsvar > 1 and $tiepacestofirst eq 'n') { } |
|
|
0 |
0 |
elsif ($stepsvar > 1 and $tiepacestofirst eq 'y') { } |
|
|
0 |
0 |
elsif ($stepsvar == 1) { } |
|
1375
|
0 |
0 |
if ($substitute1 >= 0) { } |
|
1384
|
0 |
0 |
if ($substitute2 >= 0) { } |
|
1393
|
0 |
0 |
if ($substitute3 >= 0) { } |
|
1414
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1416
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1419
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1442
|
0 |
0 |
if ($yes_or_no_reassign_construction eq 'y') |
|
1487
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1537
|
0 |
0 |
if ($stepsvar > 1) |
|
1578
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1588
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1598
|
0 |
0 |
if ($stepsvar > 1) |
|
1636
|
0 |
0 |
if ($modification_type eq 'a' or $modification_type eq 'b') |
|
1684
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1693
|
0 |
0 |
if ($modification_type eq 'c' or $modification_type eq 'd') |
|
1730
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1739
|
0 |
0 |
if ($modification_type eq 'g') |
|
1746
|
0 |
0 |
if ($count < $stepsvar) |
|
1776
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1788
|
0 |
0 |
if ($modification_type eq 'h') |
|
1826
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1835
|
0 |
0 |
if ($modification_type eq 't') |
|
1882
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1917
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
1947
|
0 |
0 |
if ($yes_or_no_update_radiation_provv eq 'y') { } |
|
1954
|
0 |
0 |
if ($yes_or_no_keep_some_obstructions eq 'y') |
|
2003
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2015
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2043
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2111
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2118
|
0 |
0 |
unless open RADFILE, $pathdf |
|
2136
|
0 |
0 |
unless open DFFILE, ">>$dffile" |
|
2211
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2218
|
0 |
0 |
unless open RADFILE, $pathdf |
|
2236
|
0 |
0 |
unless open DFFILE, ">>$dffile" |
|
2265
|
0 |
0 |
if ($new_configfile ne $original_configfile) |
|
2267
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2282
|
0 |
0 |
unless ($sourceaddress eq '' or $targetaddress eq '') |
|
2285
|
0 |
0 |
if ($sourceaddress ne $targetaddress) |
|
2287
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2334
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2376
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
2400
|
0 |
0 |
if ($rowelements[0] eq '*vertex') { } |
|
|
0 |
0 |
elsif ($rowelements[0] eq '*obs') { } |
|
2402
|
0 |
0 |
if ($countervert == 0) |
|
2408
|
0 |
0 |
if ($countervert > 0) |
|
2423
|
0 |
0 |
if ($y_or_n_detect_obs eq 'y') { } |
|
2456
|
0 |
0 |
if (-e $constrain) |
|
2459
|
0 |
0 |
if ($y_or_n_reassign_cp == 'y') |
|
2467
|
0 |
0 |
unless open INFILENET, $infilenet |
|
2489
|
0 |
0 |
if ($rowelements[0] eq 'Node') |
|
2490
|
0 |
0 |
if ($rowelements[0] eq 'Component') |
|
2491
|
0 |
0 |
if ($mode eq 'nodemode' and $counterlines > 1 and $counterlines < 2 + scalar(@nodesdata)) |
|
2500
|
0 |
0 |
if ($nodetype eq '0') { } |
|
|
0 |
0 |
elsif ($nodetype eq '3') { } |
|
2537
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2547
|
0 |
0 |
if ($y_or_n_reassign_cp == 'y') |
|
2584
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2597
|
0 |
0 |
if ($mode eq 'componentmode' and $line =~ /opening/u) { } |
|
|
0 |
0 |
elsif ($mode eq 'componentmode' and $line =~ /crack /u) { } |
|
2628
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2669
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2741
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
2750
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
2752
|
0 |
0 |
if ($countervert == 0) |
|
2758
|
0 |
0 |
if ($countervert > 0) |
|
2768
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
2786
|
0 |
0 |
if (-e $constrain) |
|
2789
|
0 |
0 |
if (-e $configaddress) |
|
2794
|
0 |
0 |
if (-e $constrain) |
|
2801
|
0 |
0 |
if ($countervertex > 0) |
|
2804
|
0 |
0 |
if ($vertexletter ~~ \@work_values) |
|
2832
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
2896
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
2907
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
2909
|
0 |
0 |
if ($countervert == 0) |
|
2915
|
0 |
0 |
if ($countervert > 0) |
|
2926
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
2947
|
0 |
0 |
if (-e $configaddress) |
|
2953
|
0 |
0 |
if (-e $constrain) |
|
2960
|
0 |
0 |
if ($countervertex > 0) |
|
2963
|
0 |
0 |
if ($vertexletter ~~ \@work_letters) |
|
2991
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3036
|
0 |
0 |
if ($yes_or_no_warp eq 'y') |
|
3046
|
0 |
0 |
if ($swingrotate != 0 and $stepsvar > 1 and $yes_or_no_warp eq 'y') |
|
3076
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3086
|
0 |
0 |
unless open SOURCEFILE, $sourcefile |
|
3096
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
3098
|
0 |
0 |
if ($countervert == 0) |
|
3104
|
0 |
0 |
if ($countervert > 0) |
|
3115
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
3134
|
0 |
0 |
if (-e $configfile) |
|
3139
|
0 |
0 |
if (-e $constrain) |
|
3149
|
0 |
0 |
if ($counterthis < $number_of_moves) |
|
3183
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3222
|
0 |
0 |
if ($longmenu eq 'y') { } |
|
3257
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
3264
|
0 |
0 |
unless ($to_do eq 'justread') |
|
3288
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
3299
|
0 |
0 |
if ($rowelements[0] eq '*vertex') |
|
3345
|
0 |
0 |
if (-e $configaddress) |
|
3350
|
0 |
0 |
if (-e $constrain) |
|
3386
|
0 |
0 |
if (@work_letters eq '' || $vertexletter ~~ \@work_letters and not \@{$v[$countervertex];} ~~ \@{$tempv[$countervertex];}) |
|
3423
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
3510
|
0 |
0 |
if ($counterstep == 1) |
|
3551
|
0 |
0 |
if ($stepsvar == 0) |
|
3552
|
0 |
0 |
if ($stepsvar > 1) |
|
3579
|
0 |
0 |
if ($new_loop_letter eq $loop_letter and $new_loopcontrol_letter eq $loopcontrol_letter) |
|
3647
|
0 |
0 |
if ($swing_flow_onoff eq 'ON') { } |
|
|
0 |
0 |
elsif ($swing_flow_onoff eq 'OFF') { } |
|
3663
|
0 |
0 |
if ($new_flow_letter eq $flow_letter and $new_flowcontrol_letter eq $flowcontrol_letter) |
|
3668
|
0 |
0 |
if ($flow_onoff__ eq 'ON') { } |
|
|
0 |
0 |
elsif ($flow_onoff__ eq 'OFF') { } |
|
3772
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
3774
|
0 |
0 |
if ($counterstep == 1) |
|
3784
|
0 |
0 |
unless ($to_do eq 'justread') |
|
3808
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
3831
|
0 |
0 |
if ($line =~ /Control function/u) |
|
3838
|
0 |
0 |
if ($line =~ /ctl type, law/u) |
|
3847
|
0 |
0 |
if ($semaphore_loop eq 'yes' and $semaphore_loopcontrol eq 'yes' and $line =~ /No. of data items/u) |
|
3852
|
0 |
0 |
if ($semaphore_loop eq 'yes' and $semaphore_loopcontrol eq 'yes' and $counterlines == $doline) |
|
3871
|
0 |
0 |
if ($line =~ /Control mass/u) |
|
3878
|
0 |
0 |
if ($line =~ /ctl type \(/u) |
|
3887
|
0 |
0 |
if ($semaphore_flow eq 'yes' and $semaphore_flowcontrol eq 'yes' and $line =~ /No. of data items/u) |
|
3892
|
0 |
0 |
if ($semaphore_flow eq 'yes' and $semaphore_flowcontrol eq 'yes' and $counterlines == $doline) |
|
3957
|
0 |
0 |
if (-e $configaddress) |
|
3966
|
0 |
0 |
if (-e $constrain) |
|
4035
|
0 |
0 |
unless (\@{$new_loop_ctls[$counterloop];} ~~ \@{$temploopcontrol[$counterloop];}) |
|
4075
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4107
|
0 |
0 |
unless (\@{$new_flowcontrols[$counterflow];} ~~ \@{$tempflowcontrol[$counterflow];}) |
|
4130
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4187
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
4194
|
0 |
0 |
unless ($to_do eq 'justread') |
|
4216
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
4224
|
0 |
0 |
if ($line =~ /\*obs/u) |
|
4226
|
0 |
0 |
unless ($line =~ /\*obs =/u) |
|
4233
|
0 |
0 |
if ($counter > 21) { } |
|
4254
|
0 |
0 |
if ($line =~ /\*obs/u) |
|
4256
|
0 |
0 |
unless ($line =~ /\*obs =/u) |
|
4320
|
0 |
0 |
if (-e $configaddress) |
|
4326
|
0 |
0 |
if (-e $constrain) |
|
4360
|
0 |
0 |
if (@work_letters eq '' or $obs_letter ~~ \@work_letters) |
|
4375
|
0 |
0 |
unless (\@{$obs[$counterobs];} ~~ \@{$tempobs[$counterobs];}) |
|
4413
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4422
|
0 |
0 |
if ($obs_letter ~~ \@work_letters) |
|
4424
|
0 |
0 |
if ($actonmaterials eq 'y') |
|
4450
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4524
|
0 |
0 |
unless open SOURCEFILE, ">$temp" |
|
4530
|
0 |
0 |
if ($obs_letter ~~ \@work_letters) |
|
4574
|
0 |
0 |
unless open SOURCEFILE, $temp |
|
4652
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
4717
|
0 |
0 |
if ($counterstep == 1) |
|
4748
|
0 |
0 |
if ($stepsvar == 0) |
|
4749
|
0 |
0 |
if ($stepsvar > 1) |
|
4768
|
0 |
0 |
if ($new_node_letter eq $node_letter) |
|
4781
|
0 |
0 |
if ($swing_height == 0) |
|
4787
|
0 |
0 |
if ($swing_data_2 == 0) |
|
4793
|
0 |
0 |
if ($swing_data_1 == 0) |
|
4816
|
0 |
0 |
if ($new_component_letter eq $component_letter) |
|
4832
|
0 |
0 |
if ($swing_data_1 == 0) |
|
4837
|
0 |
0 |
if ($swing_data_2 == 0) |
|
4842
|
0 |
0 |
if ($swing_data_3 == 0) |
|
4847
|
0 |
0 |
if ($swing_data_4 == 0) |
|
4878
|
0 |
0 |
unless open SOURCEFILE, $sourceaddress |
|
4891
|
0 |
0 |
if ($line =~ /Fld. Type/u) |
|
4895
|
0 |
0 |
if ($semaphore_node eq 'yes') |
|
4899
|
0 |
0 |
if ($line =~ /Type C\+ L\+/u) |
|
4907
|
0 |
0 |
if ($semaphore_node eq 'yes' and $semaphore_component eq 'no' and $countnode >= 0) |
|
4920
|
0 |
0 |
if ($semaphore_component eq 'yes') |
|
4925
|
0 |
0 |
if ($line =~ /\+Node/u) |
|
4932
|
0 |
0 |
if ($semaphore_component eq 'yes' and $semaphore_connection eq 'no' and $countcomponent > 0) |
|
4936
|
0 |
0 |
if ($countcomponent % 2 == 1) { } |
|
4941
|
0 |
0 |
if ($type eq '110') |
|
4942
|
0 |
0 |
if ($type eq '120') |
|
4943
|
0 |
0 |
if ($type eq '130') |
|
4985
|
0 |
0 |
unless (\@{$new_nodes[$counternode];} ~~ \@{$tempnodes[$counternode];}) |
|
4987
|
0 |
0 |
if ($new_type eq 'a') |
|
5017
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
5024
|
0 |
0 |
if ($new_type eq 'e') |
|
5054
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
5088
|
0 |
0 |
unless (\@{$new_components[$countercomponents];} ~~ \@{$tempcomponents[$countercomponents];}) |
|
5091
|
0 |
0 |
if ($new_type eq 'k') |
|
5116
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
5123
|
0 |
0 |
if ($new_type eq 'l') |
|
5148
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
5155
|
0 |
0 |
if ($new_type eq 'm') |
|
5180
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
5245
|
0 |
0 |
unless ($to_do eq 'justwrite') |
|
5248
|
0 |
0 |
if ($counterstep == 1) |
|
5256
|
0 |
0 |
unless ($to_do eq 'justread') |
|
5283
|
0 |
0 |
if (-e $configaddress) |
|
5329
|
0 |
0 |
if (-e $constrain) |
|
5452
|
0 |
0 |
if ($counter > 0) |
|
5459
|
0 |
0 |
if ($what_to_do eq 'read_geo') |
|
5469
|
0 |
0 |
if ($what_to_do eq 'read_obs') |
|
5478
|
0 |
0 |
if ($what_to_do eq 'read_ctl') |
|
5485
|
0 |
0 |
if ($what_to_do eq 'read_net') |
|
5495
|
0 |
0 |
if ($what_to_do eq 'write_geo') |
|
5504
|
0 |
0 |
if ($what_to_do eq 'write_obs') |
|
5513
|
0 |
0 |
if ($what_to_do eq 'write_ctl') |
|
5520
|
0 |
0 |
if ($what_to_do eq 'write_net') |
|
5554
|
0 |
0 |
if ($stepsvar > 1) |
|
5565
|
0 |
0 |
if ($propagate_constraints[$counterzone][0] eq 'y') |
|
5571
|
0 |
0 |
if ($apply_constraints[$counterzone][0] eq 'y') |
|
5577
|
0 |
0 |
if ($constrain_geometry[$counterzone][0] eq 'y') |
|
5583
|
0 |
0 |
if ($constrain_controls[$counterzone][0] eq 'y') |
|
5589
|
0 |
0 |
if ($$keep_obstructions[$counterzone][0] eq 'y') |
|
5594
|
0 |
0 |
if ($constrain_net[$counterzone][0] eq 'y') |
|
5599
|
0 |
0 |
if ($recalculatenet[0] eq 'y') |
|
5605
|
0 |
0 |
if ($constrain_obstructions[$counterzone][0] eq 'y') |
|
5616
|
0 |
0 |
if ($recalculateish eq 'y') |
|
5622
|
0 |
0 |
if ($daylightcalc[0] eq 'y') |
|
5630
|
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 'vertexes_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 'constrain_controls') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'constrain_geometry') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'apply_constraints') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'constrain_net') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'propagate_net') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'recalculatenet') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'constrain_obstructions') { } |
|
|
0 |
0 |
elsif ($modification_type eq 'propagate_constraints') { } |
|
5804
|
0 |
0 |
if ($countvar == $#varnumbers) |
|
5809
|
0 |
0 |
if ($exeonfiles = 'y') |
|
5861
|
0 |
0 |
unless open MORPHFILE, $morphfile |
|
5869
|
0 |
0 |
unless open SIMLIST, ">$simlistfile" |
|
5881
|
0 |
0 |
unless ($preventsim eq 'y') |
|
5888
|
0 |
0 |
unless (-e $resfile) |
|
5890
|
0 |
0 |
if ($simnetwork eq 'n') |
|
5915
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
5923
|
0 |
0 |
if ($simnetwork eq 'y') |
|
5949
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
6001
|
0 |
0 |
unless (-e "$mypath/results") |
|
6024
|
0 |
0 |
unless (-e "$result-$reporttitle-$theme.grt-") |
|
6058
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
6085
|
0 |
0 |
unless (-e "$result-$reporttitle-$theme.grt-") |
|
6118
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
6143
|
0 |
0 |
unless (-e "$result-$reporttitle-$theme.grt-") |
|
6169
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
6176
|
0 |
0 |
if ($stripcheck) |
|
6178
|
0 |
0 |
unless open CHECKDATUM, "$result-$reporttitle-$theme.grt" |
|
6179
|
0 |
0 |
unless open STRIPPED, ">$result-$reporttitle-$theme.grt-" |
|
6185
|
0 |
0 |
if ($lineelms[0] eq $stripcheck) |
|
6213
|
0 |
0 |
unless (-e "$result-$reporttitle-$theme.grt-") |
|
6236
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
6249
|
0 |
0 |
if ($stripcheck) |
|
6251
|
0 |
0 |
unless open CHECKDATUM, "$result-$reporttitle-$theme.grt" |
|
6252
|
0 |
0 |
unless open STRIPPED, ">$result-$reporttitle-$theme.grt-" |
|
6258
|
0 |
0 |
if ($lineelms[0] eq $stripcheck) |
|
6269
|
0 |
0 |
unless open OPENSIMS, "$simlistfile" |
|
6302
|
0 |
0 |
if ($theme eq 'temps') |
|
6303
|
0 |
0 |
if ($theme eq 'comfort') |
|
6304
|
0 |
0 |
if ($theme eq 'loads') |
|
6305
|
0 |
0 |
if ($theme eq 'tempsstats') |
|
6375
|
0 |
0 |
unless open MERGEFILE, ">$mergefile" |
|
6376
|
0 |
0 |
unless open FILECASELIST, "$simlistfile" |
|
6401
|
0 |
0 |
unless open OPENTEMP, $case |
|
6421
|
0 |
0 |
unless open MERGEFILE, $mergefile |
|
6424
|
0 |
0 |
unless open CLEANMERGED, ">$cleanfile" |
|
6436
|
0 |
0 |
unless open CLEANMERGED, $cleanfile |
|
6439
|
0 |
0 |
unless open SELECTMERGED, ">$selectmerged" |
|
6453
|
0 |
0 |
if ($counterouter < $#keepcolumns or $counterinner < $#cols) { } |
|
6470
|
0 |
0 |
unless open SELECTMERGED, $selectmerged |
|
6475
|
0 |
0 |
unless open WEIGHT, ">$weight" |
|
6488
|
0 |
0 |
if (odd($countel)) |
|
6508
|
0 |
0 |
if ($weights[$countcolm] < 0) |
|
6516
|
0 |
0 |
if (max(@column) != 0) { } |
|
6531
|
0 |
0 |
if ($maxes[$countcolm] != 0) { } |
|
6564
|
0 |
0 |
if ($floordistance != 0) { } |
|
6572
|
0 |
0 |
if ($weightsaim[$countcolm] < 0) |
|
6586
|
0 |
0 |
if ($counter < $#elts) { } |
|
6607
|
0 |
0 |
unless open WEIGHT, $weight |
|
6610
|
0 |
0 |
unless open WEIGHTTWO, ">$weighttwo" |
|
6624
|
0 |
0 |
if ($counterelt > $#elts - $numberels) |
|
6643
|
0 |
0 |
if ($counter < $#elts) { } |
|
6661
|
0 |
0 |
unless open WEIGHTTWO, $weighttwo |
|
6662
|
0 |
0 |
unless open SORTMERGED, ">$sortmerged" |
|
6669
|
0 |
0 |
if ($numberelts > 0) |
|
6681
|
0 |
0 |
if (-e './SIM/OPTS/convertandfilter.pl') |
|
6686
|
0 |
0 |
if (-e './SIM/OPTS/maketable.pl') |
|
6704
|
0 |
0 |
unless open UPLIFT, ">$fileuplift" |
|
6714
|
0 |
0 |
unless open SORTMERGED, $sortmerged |
|
6729
|
0 |
0 |
if ($winnerline =~ /($var-\d+)/u) |
|
6739
|
0 |
0 |
unless ($elt ~~ \@totvarnumbers) |
|
6760
|
0 |
0 |
if (not $count == $#winnerarray) { } |
|
6771
|
0 |
0 |
unless ($countvar == $#varnumbers and $countblock == $#blocks) |
|
6773
|
0 |
0 |
if (@overlap) { } |
|
6778
|
0 |
0 |
unless ($elm ~~ \@overlap) |
|
6787
|
0 |
0 |
if ($winnermodel =~ /($elt-\d+)/u) |
|
6801
|
0 |
0 |
unless ($item ~~ \@present) |
|
6809
|
0 |
0 |
unless open MORPHFILE, "$morphfile" |
|
6819
|
0 |
0 |
if ($model =~ /$elt/u) |
|
6824
|
0 |
0 |
if ($counter == 0) |
|
6844
|
0 |
0 |
if (not -e "$touchfile") { } |
|
6846
|
0 |
0 |
if ($exeonfiles eq 'y') |
|
6873
|
0 |
0 |
if ($dowhat[0] eq 'y') |
|
6880
|
0 |
0 |
if ($dowhat[1] eq 'y') |
|
6887
|
0 |
0 |
if ($dowhat[2] eq 'y') |
|
6894
|
0 |
0 |
if ($dowhat[4] eq 'y') |
|
6901
|
0 |
0 |
if ($dowhat[5] eq 'y') |
|
6908
|
0 |
0 |
if ($dowhat[6] eq 'y') |
|
6915
|
0 |
0 |
if ($dowhat[10] eq 'y') |
|
6919
|
0 |
0 |
if ($dowhat[7] eq 'y') |
|
6926
|
0 |
0 |
if ($dowhat[8] eq 'y') |
|
6933
|
0 |
0 |
if ($dowhat[9] eq 'y') |
|
6962
|
0 |
0 |
if $number == 0 |
|
6975
|
0 |
0 |
if (-e $casefile and -e $chancefile or -e $caseseed and -e $chanceseed) { } |
|
6981
|
0 |
0 |
if ($generatechance eq 'n') { } |
|
|
0 |
0 |
elsif ($generatechance eq 'y') { } |
|
7009
|
0 |
0 |
if ($countblock == 1) |
|
7020
|
0 |
0 |
if ($el eq $elt) |