From: wolf Date: Fri, 6 Nov 1998 15:53:25 +0000 (+0000) Subject: Format second derivatives. X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b3d065afa3d0342b842251108d8a7d4eb9d12c95;p=dealii-svn.git Format second derivatives. git-svn-id: https://svn.dealii.org/trunk@648 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/deal.II/source/fe/scripts/1d/postprocess b/deal.II/deal.II/source/fe/scripts/1d/postprocess index 8b9fb127c7..45c5371a60 100644 --- a/deal.II/deal.II/source/fe/scripts/1d/postprocess +++ b/deal.II/deal.II/source/fe/scripts/1d/postprocess @@ -4,13 +4,16 @@ # $Id$ # Wolfgang Bangerth, 1998 + # concatenate lines belonging together -perl -pi -e 's/([^;])\n/$1/g;' shape_value_1d -perl -pi -e 's/([^;])\n/$1/g;' shape_grad_1d +perl -pi -e 's/([^;])\n/$1/g;' *1d_shape_value +perl -pi -e 's/([^;])\n/$1/g;' *1d_shape_grad +perl -pi -e 's/([^;])\n/$1/g;' *1d_shape_grad_grad # give the programs a structure perl -pi -e 's/phi_polynom\[(\d)\] =/case $1: return/g;' *1d_shape_value perl -pi -e 's/grad_phi_polynom\[(\d)\] = (.*);/case $1: return Point<1>($2);/g;' *1d_shape_grad +perl -pi -e 's/grad_grad_phi_polynom\[(\d)\] = (.*);/case $1: return_value[0][0] = $2;/g;' *1d_shape_grad_grad # use other indexing format for matrices perl -pi -e 's/\[(\d+)\]\[(\d)\]/($1,$2)/g;' *1d_massmatrix @@ -22,5 +25,5 @@ perl -pi -e 's/(t\d+) =/const double $1 =/g;' *1d_massmatrix # omit lines assigning zeroes to matrix elements, since zero is # already set and to save compilation time -perl -pi -e 's/.*= 0.0;\n//g;' restriction_1d -perl -pi -e 's/.*= 0.0;\n//g;' prolongation_1d \ No newline at end of file +perl -pi -e 's/.*= 0.0;\n//g;' *1d_restriction +perl -pi -e 's/.*= 0.0;\n//g;' *1d_prolongation