diff --git a/solve_with_pwssmp.f90 b/solve_with_pwssmp.f90
index 2d2d183eb3d305cafe6041e47f5619035adb60ea..0dd36f92af92af49056a48a4e1dd4e2a9dcaa77a 100644
--- a/solve_with_pwssmp.f90
+++ b/solve_with_pwssmp.f90
@@ -134,7 +134,7 @@ time2=mpi_wtime()
 if (iproc.eq.0) then
    if (iparm(64).ne.0) then
       print *,'WSMP-> initialisation pb',iparm(64)
-      stop 'WSMP pb'
+      call stop_run ('WSMP pb$')
    else
       write(*,'(a,f15.7,a)') shift//'wsmp: initialisation time:   ',time2-time1,' s'
    end if