wrong variable rename (was forgotten)

This commit is contained in:
Martin Diehl 2019-02-09 16:53:05 +01:00
parent de26e41684
commit 09859f1b12
1 changed files with 1 additions and 1 deletions

View File

@ -2720,7 +2720,7 @@ real(pReal) pure function norm2(v)
implicit none
real(pReal), intent(in), dimension(3) :: v
norm2 = sqrt(sum(a**2))
norm2 = sqrt(sum(v**2))
end function norm2
#endif