/usr/share/deal.II/scripts/fe_table.pl is in libdeal.ii-dev 6.3.1-1.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | # $id$
# Create a table of finite element capabilities out of
# tests/fe/fe_data_test.output
use strict;
print <<'EOF'
<html>
<head>
<title>Finite element capabilities</title>
</head>
<body>
<table border="1">
<tr>
<th rowspan="2">Element</th>
<th rowspan="2">degree</th>
<th rowspan="2">DoFs</th>
<th colspan="4">DoFs on</th>
<th rowspan="2">conforms</th>
<th rowspan="2">components</th>
<th colspan="4">Support points</th>
</tr>
<tr>
<th>V</th><th>L</th><th>Q</th><th>H</th>
<th>uc</th><th>uf</th><th>gc</th><th>gf</th>
</tr>
EOF
;
my @field = ('degree', 'dofs_per_cell',
'dofs_per_vertex', 'dofs_per_line', 'dofs_per_quad', 'dofs_per_hex',
'conformity', 'components',
'unit_support_points', 'unit_face_support_points',
'generalized_support_points', 'generalized_face_support_points');
my %fe;
my $hashref;
while(<>)
{
if (/DEAL::fe_data.*:(.*)/)
{
$fe{$1} = { 'set' => 't' } unless ($1 =~ m/FESystem/);
$hashref = $fe{$1};
}
foreach my $entry (@field)
{
$hashref->{$entry} = $1 if /DEAL::$entry=(.*)/;
}
}
foreach (sort keys %fe)
{
print '<tr><td>',$_,"</td>\n";
$hashref = $fe{$_};
foreach (@field)
{
print "<td>", $hashref->{$_}, "</td>\n";
}
print "</tr>\n";
}
print <<'EOF'
</table>
</body>
</html>
EOF
;
|