Unverified Commit 13a759f9 authored by Graham, Aaron's avatar Graham, Aaron Committed by GitHub
Browse files

Remove unused variables (#310)

parent f613e72a
......@@ -2149,8 +2149,7 @@ FUNCTION rotateClockwise(this,nrotations) RESULT(new)
INTEGER(SIK),INTENT(IN) :: nrotations
TYPE(PolygonType) :: new
!
INTEGER(SIK) :: i,irot,nrot
REAL(SRK) :: x,y,tmpx,tmpy
INTEGER(SIK) :: nrot
REQUIRE(this%isInit)
SELECTTYPE(this)
......
......@@ -2761,8 +2761,8 @@ ENDSUBROUTINE testGenerateGraph
SUBROUTINE testAssignment()
TYPE(PolygonType) :: testPolyType
INTEGER(SIK) :: i
REAL(SRK) :: testCoord(2,9),c0(2)
TYPE(PolygonType) :: testPoly2,testPoly3
REAL(SRK) :: testCoord(2,9)
TYPE(PolygonType) :: testPoly2
CALL testPolyType%clear()
CALL testGraph%clear()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment