replace 'stop' with 'call stop_run'

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