From bab71767cb166ef878002b806c8360fe21307765 Mon Sep 17 00:00:00 2001 From: Jonathan Schilling Date: Mon, 30 Oct 2023 14:33:40 +0100 Subject: [PATCH] do not zero out previous array contents --- abscab/abscab.f90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/abscab/abscab.f90 b/abscab/abscab.f90 index 62017ee..aa6f29b 100644 --- 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