Changeset 3572 in Sophya for trunk/SophyaExt/LinAlg

Timestamp:

Feb 7, 2009, 10:50:34 PM (17 years ago)

Author:

cmv

Message:

char* -> const char* pour regler les problemes de deprecated string const... + comparaison unsigned signed + suppression EVOL_PLANCK rz+cmv 07/02/2009

Location:

trunk/SophyaExt/LinAlg

Files:

• intflapack.cc (modified) (4 diffs)
• intflapack.h (modified) (1 diff)

trunk/SophyaExt/LinAlg/intflapack.cc

@@ -178 +178 @@
 extern "C" {
 // Le calculateur de workingspace
-  int_4 ilaenv(int_4 *ispec,char *name,char *opts,int_4 *n1,int_4 *n2,int_4 *n3,int_4 *n4,
+  int_4 ilaenv(int_4 *ispec,const char *name,const char *opts,int_4 *n1,int_4 *n2,int_4 *n3,int_4 *n4,
                 int_4 nc1,int_4 nc2);
 
@@ -300 +300 @@
 ////////////////////////////////////////////////////////////////////////////////////
 template <class T>
-int_4 LapackServer<T>::ilaenv_en_C(int_4 ispec,char *name,char *opts,int_4 n1,int_4 n2,int_4 n3,int_4 n4)
+int_4 LapackServer<T>::ilaenv_en_C(int_4 ispec,const char *name,const char *opts,int_4 n1,int_4 n2,int_4 n3,int_4 n4)
 {
  int_4 nc1 = strlen(name), nc2 = strlen(opts), rc=0;
@@ -519 +519 @@
   int_4 info;
 
-  int_4 minmn = (m < n) ? m : n;
+  //unused: int_4 minmn = (m < n) ? m : n;
   int_4 maxmn = (m > n) ? m : n;
   int_4 maxmnrhs = (nrhs > maxmn) ? nrhs : maxmn;
@@ -788 +788 @@
   int_4 m = a.Size(rowa);
   int_4 n = a.Size(cola);
-  int_4 maxmn = (m > n) ? m : n;
+  //unused: int_4 maxmn = (m > n) ? m : n;
   int_4 minmn = (m < n) ? m : n;
 

trunk/SophyaExt/LinAlg/intflapack.h

@@ -40 +40 @@
   int SVDDriver(TArray<T>& a, TArray<T> & s, 
                 TArray<T>* up=NULL, TArray<T> * vtp=NULL);
-  int_4 ilaenv_en_C(int_4 ispec,char *name,char *opts,int_4 n1,int_4 n2,int_4 n3,int_4 n4);
+  int_4 ilaenv_en_C(int_4 ispec,const char *name,const char *opts,int_4 n1,int_4 n2,int_4 n3,int_4 n4);
   int_4 type2i4(void *val,int nbytes);