our $max_rowsz=0;
sub wrtoplevel () {
- print "module ${which}_$name(){ ////toplevel\n";
my $cs = $count{$name};
my $total = 0; $total += $_ foreach values %$cs;
return unless $total;
+ print "module ${which}_$name(){ ////toplevel\n";
my $rowsz = ceil(sqrt($total));
my $nrows = ceil($total / $rowsz);
$total_count += $total;