do not zero out previous array contents

jonathanschilling · Oct 30, 2023 · bab7176 · bab7176
1 parent ce3b991
commit bab7176
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/abscab/abscab.f90 b/abscab/abscab.f90
@@ -1857,7 +1857,6 @@ subroutine vertexSupplier(i, pointData)
  end if
 
  if (current .eq. 0.0_wp) then
- vectorPotential(:, :) = 0.0_wp
  return
  end if
 
@@ -2062,7 +2061,6 @@ subroutine magneticFieldPolygonFilament( &
  end if
 
  if (current .eq. 0.0_wp) then
- magneticField(:, :) = 0.0_wp
  return
  end if
 
@@ -2275,7 +2273,6 @@ subroutine vertexSupplier(i, pointData)
  end if
 
  if (current .eq. 0.0_wp) then
- magneticField(:, :) = 0.0_wp
  return
  end if