Minor fix

Dhueper · Dhueper · commit d48ad012cb95 · 2025-07-28T12:39:21.000+02:00
diff --git a/Solver/src/libs/mesh/StorageClass.f90 b/Solver/src/libs/mesh/StorageClass.f90
@@ -1793,7 +1793,7 @@ subroutine Statistics_Construct(self, no_of_variables, N)
 
       end subroutine Statistics_Construct
 
-      subroutine Statistics_Destruct(self)
+      pure subroutine Statistics_Destruct(self)
          implicit none
          class(Statistics_t)     :: self
 
