]> https://gitweb.dealii.org/ - dealii.git/commitdiff
Don't use N and T, but write "N" and "T" directly.
authordeal <deal@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 24 Mar 2005 20:11:28 +0000 (20:11 +0000)
committerdeal <deal@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 24 Mar 2005 20:11:28 +0000 (20:11 +0000)
git-svn-id: https://svn.dealii.org/trunk@10238 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/lac/include/lac/lapack_support.h
deal.II/lac/source/lapack_full_matrix.cc

index 4ff96c3c5db9d370e5a528f2acf789ef453d0fde..8b6e17cac87bc952485f34795f9531aa49353143 100644 (file)
@@ -53,15 +53,7 @@ namespace LAPACKSupport
                                         /// Matrix is in upper Hessenberg form
        hessenberg = 8
   };
-  
-                                  /**
-                                   * Character constant.
-                                   */
-  extern const char N = 'N';
-                                  /**
-                                   * Character constant.
-                                   */
-  extern const char T = 'T';
+
                                   /**
                                    * Integer constant.
                                    */
index 34d900dbd29e2a7324719fe5ecaf35131d727e41..e2ff5d087107070b22ee6624f97c66f5ae563b55 100644 (file)
@@ -92,7 +92,7 @@ LAPACKFullMatrix<number>::vmult (
   const number alpha = 1.;
   const number beta = (adding ? 1. : 0.);
   
-  gemv(&N, &mm, &nn, &alpha, data(), &mm, v.val, &one, &beta, w.val, &one);
+  gemv("N", &mm, &nn, &alpha, data(), &mm, v.val, &one, &beta, w.val, &one);
 }
 
 
@@ -108,7 +108,7 @@ LAPACKFullMatrix<number>::Tvmult (
   const number alpha = 1.;
   const number beta = (adding ? 1. : 0.);
   
-  gemv(&T, &mm, &nn, &alpha, data(), &mm, v.val, &one, &beta, w.val, &one);
+  gemv("T", &mm, &nn, &alpha, data(), &mm, v.val, &one, &beta, w.val, &one);
 }
 
 #else

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.