From: Guido Kanschat Date: Thu, 29 Sep 2005 12:48:18 +0000 (+0000) Subject: script for producing FE information table X-Git-Tag: v8.0.0~13048 X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9658542439bd294e4206797ff54518c43a32c7a7;p=dealii.git script for producing FE information table git-svn-id: https://svn.dealii.org/trunk@11555 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/common/scripts/fe_table.pl b/deal.II/common/scripts/fe_table.pl new file mode 100644 index 0000000000..3a873a0aa3 --- /dev/null +++ b/deal.II/common/scripts/fe_table.pl @@ -0,0 +1,69 @@ +# $id$ + +# Create a table of finite element capabilities out of +# tests/fe/fe_data_test.output + +use strict; + +print <<'EOF' + + +Finite element capabilities + + + + + + + + + + + + + + + + +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 '\n"; + $hashref = $fe{$_}; + foreach (@field) + { + print "\n"; + } + print "\n"; +} + +print <<'EOF' +
ElementdegreeDoFsDoFs onconformscomponentsSupport points
VLQHucufgcgf
',$_,"", $hashref->{$_}, "
+ + +EOF + ;