From 12e7c8f5ba498d5af16d2493b9f6bb5182fcce06 Mon Sep 17 00:00:00 2001 From: Guido Kanschat Date: Wed, 23 Mar 2005 03:47:49 +0000 Subject: [PATCH] first real version git-svn-id: https://svn.dealii.org/trunk@10210 0785d39b-7218-0410-832d-ea1e28bc413d --- deal.II/contrib/blastemplates/Makefile | 9 +++++++++ .../blastemplates/{blas.h.in => lapack_templates.h.in} | 8 ++++---- deal.II/contrib/blastemplates/templates.pl | 7 +++++-- 3 files changed, 18 insertions(+), 6 deletions(-) create mode 100644 deal.II/contrib/blastemplates/Makefile rename deal.II/contrib/blastemplates/{blas.h.in => lapack_templates.h.in} (82%) diff --git a/deal.II/contrib/blastemplates/Makefile b/deal.II/contrib/blastemplates/Makefile new file mode 100644 index 0000000000..31436bce98 --- /dev/null +++ b/deal.II/contrib/blastemplates/Makefile @@ -0,0 +1,9 @@ +########################################################################### +# $Id$ +########################################################################### + +all: lapack_templates.h + cp $< ../../lac/include/lac/ + +lapack_templates.h: templates.pl lapack_templates.h.in + perl $^ > $@ diff --git a/deal.II/contrib/blastemplates/blas.h.in b/deal.II/contrib/blastemplates/lapack_templates.h.in similarity index 82% rename from deal.II/contrib/blastemplates/blas.h.in rename to deal.II/contrib/blastemplates/lapack_templates.h.in index a3b74be2b3..60abdda31c 100644 --- a/deal.II/contrib/blastemplates/blas.h.in +++ b/deal.II/contrib/blastemplates/lapack_templates.h.in @@ -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, diff --git a/deal.II/contrib/blastemplates/templates.pl b/deal.II/contrib/blastemplates/templates.pl index 5e7bed3dca..a95724d87a 100644 --- a/deal.II/contrib/blastemplates/templates.pl +++ b/deal.II/contrib/blastemplates/templates.pl @@ -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; -- 2.39.5