prepare cleaning

src/element.f90

@@ -162,6 +162,10 @@ module element
        8  & ! 3D 8node
     ]                                                                                               !< number of cell nodes in a specific cell type
 
+
+
+! --------------------------------------------------------------------------------------------------
+! MD: probably not needed START
   integer, dimension(maxNnodeAtIP(1),nIP(1)), parameter, private :: NnodeAtIP1 = &
     reshape([&
       1,2,3 &
@@ -266,7 +270,6 @@ module element
       7,0, 0,0  &
     ],[maxNnodeAtIP(10),nIP(10)])
   
-
   ! *** FE_ipNeighbor ***
   ! is a list of the neighborhood of each IP.
   ! It is sorted in (local) +x,-x, +y,-y, +z,-z direction.
@@ -377,6 +380,10 @@ module element
       -3,26,-4,24,-6,18  &
      ],[nIPneighbor(cellType(10)),nIP(10)])
 
+! MD: probably not needed END
+! --------------------------------------------------------------------------------------------------
+
+
  
   real(pReal), dimension(nNode(1),NcellNode(geomType(1))), parameter :: cellNodeParentNodeWeights1 = &
     reshape(real([&