Changeset 7369

Timestamp:

02/07/11 10:03:50 (14 years ago)

Author:

Eric.Larour

Message:

thermal and water elements creating problems

File:

• issm/trunk/src/c/objects/Elements/Penta.cpp (modified) (1 diff)

issm/trunk/src/c/objects/Elements/Penta.cpp

@@ -1650 +1650 @@
 /*FUNCTION Penta::CreateKMatrixThermal {{{1*/
 ElementMatrix* Penta::CreateKMatrixThermal(void){
+        
+        ElementMatrix* Ke =NULL;
 
         /*compute all stiffness matrices for this element*/
         ElementMatrix* Ke1=CreateKMatrixThermalVolume();
         ElementMatrix* Ke2=CreateKMatrixThermalShelf();
-        ElementMatrix* Ke =new ElementMatrix(Ke1,Ke2);
-
-        /*clean-up and return*/
-        delete Ke1;
-        delete Ke2;
+        
+        if(Ke1 || Ke2){
+                 Ke=new ElementMatrix(Ke1,Ke2);
+
+                /*clean-up and return*/
+                delete Ke1;
+                delete Ke2;
+        }
         return Ke;
 }