wrong variable rename (was forgotten)
This commit is contained in:
parent
de26e41684
commit
09859f1b12
|
@ -2720,7 +2720,7 @@ real(pReal) pure function norm2(v)
|
||||||
implicit none
|
implicit none
|
||||||
real(pReal), intent(in), dimension(3) :: v
|
real(pReal), intent(in), dimension(3) :: v
|
||||||
|
|
||||||
norm2 = sqrt(sum(a**2))
|
norm2 = sqrt(sum(v**2))
|
||||||
|
|
||||||
end function norm2
|
end function norm2
|
||||||
#endif
|
#endif
|
||||||
|
|
Loading…
Reference in New Issue