Changeset 25266 for issm/trunk-jpl/src/c/analyses/MasstransportAnalysis.cpp

Timestamp:

07/10/20 21:33:01 (5 years ago)

Author:

Mathieu Morlighem

Message:

CHG: removing TripleMultiply

File:

• issm/trunk-jpl/src/c/analyses/MasstransportAnalysis.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/analyses/MasstransportAnalysis.cpp

@@ -1013 +1013 @@
 
                 D=gauss->weight*Jdet;
-                TripleMultiply(basis,1,numnodes,1,
-                                        &D,1,1,0,
-                                        basis,1,numnodes,0,
-                                        &Me->values[0],1);
+                for(int i=0;i<numnodes;i++) for(int j=0;j<numnodes;j++) Me->values[i*numnodes+j] += D*basis[i]*basis[j];
         }