]> https://gitweb.dealii.org/ - dealii.git/commitdiff
adding functions
authorGuido Kanschat <dr.guido.kanschat@gmail.com>
Mon, 28 Mar 2005 21:19:33 +0000 (21:19 +0000)
committerGuido Kanschat <dr.guido.kanschat@gmail.com>
Mon, 28 Mar 2005 21:19:33 +0000 (21:19 +0000)
git-svn-id: https://svn.dealii.org/trunk@10255 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/contrib/blastemplates/lapack_templates.h.in

index 60abdda31c70ee6063c2d5698419c500e25b327b..af3b9a98141ea93bfb26c3aa9cd720bff69368d3 100644 (file)
@@ -5,30 +5,31 @@ void dgemv_ (const char* trans, const int* m, const int* n,
             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,
+void dgeev_ (const char* jobvl, const char* jobvr,
+            const int* n, double* A, const int* lda,
             double* lambda_re, double* lambda_im,
-            double* vl, int* ldvl,
-            double* vr, int* ldva,
-            double* work, int* lwork,
+            double* vl, const int* ldvl,
+            double* vr, const int* ldva,
+            double* work, const int* lwork,
             int* info);
 // Compute eigenvalues and vectors (expert)
-void dgeevx_ (char* balanc, char* jobvl, char* jobvr, char* sense,
-             int* n, double* A, int* lda,
+void dgeevx_ (const char* balanc, const char* jobvl, const char* jobvr,
+             const char* sense,
+             const int* n, double* A, const int* lda,
              double* lambda_re, double* lambda_im,
-             double* vl, int* ldvl,
-             double* vr, int* ldvr,
+             double* vl, const int* ldvl,
+             double* vr, const int* ldvr,
              int* ilo, int* ihi,
              double* scale, double* abnrm,
              double* rconde, double* rcondv,
-             double* work, int* lwork,
+             double* work, const int* lwork,
              int* iwork, int* info);
 // Compute singular value decomposition
 void dgesvd_ (int* jobu, int* jobvt,
-             int* n, int* m, double* A, int* lda,
+             const int* n, const int* m, double* A, const int* lda,
              double* s,
-             double* u, int* ldu,
-             double* vt, int* ldvt,
-             double* work, int* lwork,
+             double* u, const int* ldu,
+             double* vt, const int* ldvt,
+             double* work, const int* lwork,
              int* info);
 

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.