]> https://gitweb.dealii.org/ - dealii.git/commitdiff
first real version
authorGuido Kanschat <dr.guido.kanschat@gmail.com>
Wed, 23 Mar 2005 03:47:49 +0000 (03:47 +0000)
committerGuido Kanschat <dr.guido.kanschat@gmail.com>
Wed, 23 Mar 2005 03:47:49 +0000 (03:47 +0000)
git-svn-id: https://svn.dealii.org/trunk@10210 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/contrib/blastemplates/Makefile [new file with mode: 0644]
deal.II/contrib/blastemplates/lapack_templates.h.in [moved from deal.II/contrib/blastemplates/blas.h.in with 82% similarity]
deal.II/contrib/blastemplates/templates.pl

diff --git a/deal.II/contrib/blastemplates/Makefile b/deal.II/contrib/blastemplates/Makefile
new file mode 100644 (file)
index 0000000..31436bc
--- /dev/null
@@ -0,0 +1,9 @@
+###########################################################################
+# $Id$
+###########################################################################
+
+all: lapack_templates.h
+       cp $< ../../lac/include/lac/
+
+lapack_templates.h: templates.pl lapack_templates.h.in
+       perl  $^ > $@
similarity index 82%
rename from deal.II/contrib/blastemplates/blas.h.in
rename to deal.II/contrib/blastemplates/lapack_templates.h.in
index a3b74be2b3ea683e5d3e40066530760a67d525cc..60abdda31c70ee6063c2d5698419c500e25b327b 100644 (file)
@@ -1,9 +1,9 @@
 // General Matrix
 // Matrix vector product
-void dgemv_ (char* trans, int* m, int* n,
-            double* alpha, double* A, int* lda,
-            double* x, int* incx,
-            double* b, double* y, int* incy);
+void dgemv_ (const char* trans, const int* m, const int* n,
+            const double* alpha, const double* A, const int* lda,
+            const double* x, const int* incx,
+            const double* b, double* y, const int* incy);
 // Compute eigenvalues and vectors
 void dgeev_ (char* jobvl, char* jobvr,
             int* n, double* A, int* lda,
index 5e7bed3dcac59ffd3aba2a59ecd8ab64aa96fcaa..a95724d87a966809ca03c41a82832b08fead33b6 100644 (file)
@@ -21,6 +21,7 @@ print << 'EOT'
 //    Version: $Name$
 //
 //    This file was automatically generated from blas.h.in
+//    See blastemplates in the deal.II contrib directory
 //
 //    Copyright (C) 2005 by the deal authors
 //
@@ -31,8 +32,8 @@ print << 'EOT'
 //
 //---------------------------------------------------------------------------
 
-#ifndef __BLAS_TEMPLATES_H
-#define __BLAS_TEMPLATES_H
+#ifndef __LAPACK_TEMPLATES_H
+#define __LAPACK_TEMPLATES_H
 
 extern "C"
 {
@@ -66,6 +67,8 @@ while(<>)
        $args =~ s/\s+/ /g;
        $args2 = $args;
        $args2 =~ s/\w+\*//g;
+       $args2 =~ s/const//g;
+       $args2 =~ s/\s//g;
        
        $templates .= "\n\ninline $type\n$name ($args)\n{\n  d$name\_ ($args2);\n}\n";
        $args =~ s/double/float/g;

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.