Fix crash that happened after paths were integrated. Ensure that new …

…paths are appended.
ORNL-Fusion · Sep 9, 2024 · 51680e1 · 51680e1
1 parent c733acc
commit 51680e1
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Sources/Modules/integration_path.f b/Sources/Modules/integration_path.f
@@ -443,7 +443,7 @@ RECURSIVE FUNCTION integration_path_integrate_paths(this, path,          &
 
       IF (ASSOCIATED(path%next)) THEN
          total = this%integrate(path%next, context)
-         total = this%integrate(context, path, path%next)
+         total = total + this%integrate(context, path, path%next)
       ELSE
          total = 0.0
       END IF
@@ -997,7 +997,8 @@ FUNCTION path_test()
      &                        (/ 2.0_rprec, 0.0_rprec, 0.0_rprec /))
       CALL path_append_vertex(test_path,                                       &
      &                        (/ 0.0_rprec, 0.0_rprec, 0.0_rprec /))
-      result = int_params%integrate(test_path, context)
+      result = integration_path_integrate_paths(int_params, test_path,         &
+     &                                          context)
       path_test = check(2.0_rprec, result, 1, 'path_integrate')
       IF (.not.path_test) THEN
          RETURN