Changeset 3572 in Sophya for trunk/SophyaExt/LinAlg/intflapack.cc

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

File:

• trunk/SophyaExt/LinAlg/intflapack.cc (modified) (4 diffs)

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;