unused variables

This commit is contained in:
Martin Diehl 2019-09-22 08:16:59 -07:00
parent 77011a5dba
commit 6e5b9ca665
1 changed files with 3 additions and 4 deletions

View File

@ -1199,9 +1199,8 @@ end function cu2ho
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine unitTest subroutine unitTest
real(pReal), dimension(4) :: qu,ro,ax real(pReal), dimension(4) :: qu
real(pReal), dimension(3) :: eu,r real(pReal), dimension(3) :: r
real(pReal), dimension(3,3) :: om
character(len=pStringLen) :: msg character(len=pStringLen) :: msg
real :: A,B real :: A,B
integer :: i integer :: i