Commit a5c2ac44 authored by aarograh's avatar aarograh
Browse files

Make a couple routines PURE *grumble grumble*

parent 1d005014

src/Geom_Poly.f90

+2 −2
Original line number Diff line number Diff line
@@ -623,7 +623,7 @@ ENDFUNCTION getOuterRadius_PolygonType 
!> @param bool The logical result of this operation.  TRUE if the point is on

!>        the surface.

!>

RECURSIVE FUNCTION onSurface_PolygonType(thisPoly,point,incSubReg) RESULT(bool)

PURE RECURSIVE FUNCTION onSurface_PolygonType(thisPoly,point,incSubReg) RESULT(bool)

  CLASS(PolygonType),INTENT(IN) :: thisPoly

  TYPE(PointType),INTENT(IN) :: point

  LOGICAL(SBK),INTENT(IN),OPTIONAL :: incSubReg
@@ -721,7 +721,7 @@ ENDFUNCTION onSurface_PolygonType 
!> @param isSub Optional logical of whether or not it is a recursive subregion check.

!> @param bool The logical result of this operation.  TRUE if the point is inside.

!>

RECURSIVE FUNCTION point_inside_PolygonType(thisPoly,point,isSub) RESULT(bool)

PURE RECURSIVE FUNCTION point_inside_PolygonType(thisPoly,point,isSub) RESULT(bool)

  CLASS(PolygonType),INTENT(IN) :: thisPoly

  TYPE(PointType),INTENT(IN) :: point

  LOGICAL(SBK),INTENT(IN),OPTIONAL :: isSub