Merge pull request #316 from easifem/pointEntity_issue

Updates in ReferenceElement_Method

Author: vickysharma0812

src/modules/Geometry/src/ReferencePoint_Method.F90

@@ -230,7 +230,7 @@ END FUNCTION Point_Quality
 ! summary:  Returns total nodes in element
 
 INTERFACE
-  MODULE FUNCTION TotalNodesInElement_Point(elemType) RESULT(Ans)
+  MODULE PURE FUNCTION TotalNodesInElement_Point(elemType) RESULT(Ans)
     INTEGER(I4B), INTENT(IN) :: elemType
     INTEGER(I4B) :: Ans
   END FUNCTION TotalNodesInElement_Point

src/submodules/Geometry/src/ReferenceElement_Method@ElementNameMethods.F90

@@ -20,6 +20,8 @@
 ! summary: This sumodule contains method for geometry
 
 SUBMODULE(ReferenceElement_Method) ElementNameMethods
+USE ReferencePoint_Method, ONLY: TotalNodesInElement_Point
+
 USE ReferenceLine_Method, ONLY: ElementType_Line,  &
   & TotalNodesInElement_Line,  &
   & ElementName_Line,  &
@@ -308,6 +310,10 @@
 
 SELECT CASE (topo)
 
+CASE (Point)
+
+  ans = TotalNodesInElement_Point(elemType)
+
 CASE (Line)
 
   ans = TotalNodesInElement_Line(elemType)