--- /dev/null
+###########################################################################
+# $Id$
+###########################################################################
+
+all: lapack_templates.h
+ cp $< ../../lac/include/lac/
+
+lapack_templates.h: templates.pl lapack_templates.h.in
+ perl $^ > $@
// 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,
// 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
//
//
//---------------------------------------------------------------------------
-#ifndef __BLAS_TEMPLATES_H
-#define __BLAS_TEMPLATES_H
+#ifndef __LAPACK_TEMPLATES_H
+#define __LAPACK_TEMPLATES_H
extern "C"
{
$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;