Commits

Lisandro Dalcin  committed e1a5970

Fortran: revert back to use sqrt(sum(N*N)) instead of norm2(N)

  • Participants
  • Parent commits 4961a31

Comments (0)

Files changed (1)

File src/petigaval.F90

      case (0); N = (/ 1.0 /)
      end select
   end select
-  dS = norm2(N)
+  dS = sqrt(sum(N*N))
   if (side == 0) then
      N = -N/dS
   else