fmk - big fix on ndex in FourNodeTet

zhuminjie · Nov 15, 2021 · feda33c · feda33c
1 parent ecddc0c
commit feda33c
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git a/SRC/element/pyMacro/PY_Macro2D.cpp b/SRC/element/pyMacro/PY_Macro2D.cpp
@@ -37,7 +37,7 @@ OPS_PY_Macro2D(void)
   }
   // get the id and end nodes
   int iData[4];		//!!!!!!!!!!
-  double dData[14];
+  double dData[13];
   int numData;
 
   numData = 3;
@@ -48,15 +48,21 @@ OPS_PY_Macro2D(void)
 
   int eleTag = iData[0];
 
-  numData = 14;
+  numData = 13;
   if (OPS_GetDoubleInput(&numData, dData) != 0) {
     opserr << "WARNING error reading element data for PY_Macro2D element with tag: " << eleTag << endln;
     return 0;
   }
 
+  numData = 1;
+  if (OPS_GetIntInput(&numData, &iData[3]) != 0) {
+    opserr << "WARNING invalid element data for PY_Macro2D\n";
+    return 0;
+  }
+
   // now create the truss and add it to the Domain
   Element *theEle = new PY_Macro2D(eleTag, iData[1], iData[2], dData[0], dData[1], dData[2], dData[3], dData[4],
-	  dData[5], dData[6], dData[7], dData[8], dData[9], dData[10], dData[11], dData[12], iData[13]);
+	  dData[5], dData[6], dData[7], dData[8], dData[9], dData[10], dData[11], dData[12], iData[3]);
 
 
   if (theEle == 0) {

diff --git a/SRC/element/tetrahedron/FourNodeTetrahedron.cpp b/SRC/element/tetrahedron/FourNodeTetrahedron.cpp
@@ -71,7 +71,7 @@ void* OPS_FourNodeTetrahedron()
     if (mat == 0) 
     {
       opserr << "WARNING material not found\n";
-      opserr << "material tag: " << idata[9];
+      opserr << "material tag: " << idata[5];
       opserr << "\nFourNodeTetrahedron element: " << idata[0] << endln;
     }