Changeset 2571 in Sophya for trunk/SophyaProg

Timestamp:

Jul 28, 2004, 4:20:43 PM (21 years ago)

Author:

cmv

Message:

nettoyage code cmv 28/07/04

File:

• trunk/SophyaProg/Tests/tsttminv.cc (modified) (5 diffs)

trunk/SophyaProg/Tests/tsttminv.cc

@@ -85 +85 @@
 r_8  Check_Mat_VecCol_0(TMatrix< TYPE >& A);
 void  Check_Mat_VecCol_2(TMatrix< complex<TYPER> >& A);
-#if defined(USE_LAPACK)
-/*
--- Pour faire ce test il faut passer la methode ilaenv_en_C()
-   de LapackServer en methode "public" (dans intflapack.h)
-   et recompiler la librairie externe sophya
-*/
-// void TestIlaEnv(int_4 n);
-#endif
 
 
@@ -178 +170 @@
 if(symetok) cout<<"Input matrix has been symetrized "<<symetok<<endl;
 cout<<endl;
-
-//--------------------------------------------------------
-// TestIlaEnv(N); return -41;
-//--------------------------------------------------------
 
 //--------------------------------------------------------
@@ -332 +320 @@
 
 
-////////////////////////////////////////////////
-///////// Test avec Lapack LeastSquare /////////
-////////////////////////////////////////////////
+///////////////////////////////////////////////////////
+///////// Test avec Lapack LeastSquare by SVD /////////
+///////////////////////////////////////////////////////
 #if defined(USE_LAPACK) && defined(ALSO_LAPACK_INV_LSS_SVD)
 {
@@ -506 +494 @@
 if(nprline>0) {cout<<S; cout<<endl;}
 double smax = fabs(S(0)), smin = fabs(S(N-1));
-cout<<" Smin = |"<<S(N-1)<<"| = "<<smin<<", "
-    <<" Smax = |"<<S(0)<<"| = "<<smax<<", "
-    <<" --> Smin/Smax = "<<smin/smax<<endl;
+ cout<<"CMV: "<<S(0)<<endl;
+//cout<<" Smin = |"<<S(N-1)<<"| = "<<smin<<", "
+//    <<" Smax = |"<<S(0)<<"| = "<<smax<<", "
+//    <<" --> Smin/Smax = "<<smin/smax<<endl;
 //-- A = U*S*VT
 cout<<"Compute A = U*S*VT"<<endl;
@@ -643 +632 @@
      <<", imag = "<<vmaxi<<", module = "<<vmaxn<<endl;
 }
-
-
-/*
-void TestIlaEnv(int_4 n)
-{
-LapackServer<TYPE> lps;
-cout<<"TestIlaEnv n="<<n<<endl;
-cout<<lps.ilaenv_en_C(1,"SSYTRF","U",n,-1,-1,-1)<<endl;
-cout<<lps.ilaenv_en_C(1,"DSYTRF","U",n,-1,-1,-1)<<endl;
-cout<<lps.ilaenv_en_C(1,"CSYTRF","U",n,-1,-1,-1)<<endl;
-cout<<lps.ilaenv_en_C(1,"ZSYTRF","U",n,-1,-1,-1)<<endl;
-cout<<lps.ilaenv_en_C(1,"SSYTRF","L",n,-1,-1,-1)<<endl;
-cout<<lps.ilaenv_en_C(1,"DSYTRF","L",n,-1,-1,-1)<<endl;
-cout<<lps.ilaenv_en_C(1,"CSYTRF","L",n,-1,-1,-1)<<endl;
-cout<<lps.ilaenv_en_C(1,"ZSYTRF","L",n,-1,-1,-1)<<endl;
-}
-*/