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,10 +1199,9 @@ end function cu2ho
!--------------------------------------------------------------------------------------------------
subroutine unitTest
real(pReal), dimension(4) :: qu,ro,ax
real(pReal), dimension(3) :: eu,r
real(pReal), dimension(3,3) :: om
character(len=pStringLen) :: msg
real(pReal), dimension(4) :: qu
real(pReal), dimension(3) :: r
character(len=pStringLen) :: msg
real :: A,B
integer :: i