Changeset 26245

Timestamp:

05/06/21 08:49:20 (4 years ago)

Author:

Mathieu Morlighem

Message:

CHG: fixing some love stuff

Location:

issm/trunk-jpl/src/c

Files:

• classes/Node.cpp (modified) (2 diffs)
• cores/love_core.cpp (modified) (2 diffs)

issm/trunk-jpl/src/c/classes/Node.cpp

@@ -791 +791 @@
 int  Node::FSize(void){/*{{{*/
 
-        _assert_(this && this->gdoflist);
+        _assert_(this!=NULL && this->gdoflist);
 
         int fsize = 0;
@@ -800 +800 @@
 int  Node::SSize(void){/*{{{*/
 
-        _assert_(this && this->s_set);
+        _assert_(this!=NULL && this->s_set);
 
         int ssize = 0;

issm/trunk-jpl/src/c/cores/love_core.cpp

@@ -131 +131 @@
 
         indf=d*nfreq+t*2*NTit;
-        doubletype LoveM[NTit];
+        doubletype* LoveM = xNew<doubletype>(NTit);
 
         for (int M=1;M<NTit+1;M++){
@@ -858 +858 @@
                 if(VerboseModule() && info!=0){ 
                         _printf0_("love core warning in DGESV : LAPACK linear equation solver couldn't resolve the system");
-                        printf("%s %s %s %s\n", "i","j","yi[i+nyi*j]","rhs[i]");
+                        _printf_("i j yi[i+nyi*j] rhs[i]");
                         for (int i=0;i<nyi;i++){
                                 for (int j=0;j<nyi;j++){
-                                        printf("%i %i %e %e\n", i,j,yi[i+nyi*j],rhs[i]);
+                                        _printf_(i<<" "<<j<<" "<<yi[i+nyi*j]<<" "<<rhs[i]<<"\n");
                                 }
                         }