diff --git a/src/source.F90 b/src/source.F90
index 2d3f74ec9..ced7fe1dc 100644
--- a/src/source.F90
+++ b/src/source.F90
@@ -130,6 +130,7 @@ contains
           end if
         end if
       end do
+      call p % clear()
 
     case (SRC_SPACE_POINT)
       ! Point source