From 89d3f99748b39fc4aad4d094efe534beacd94c96 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Wed, 9 Sep 2009 10:46:03 +0000
Subject: [PATCH] replace 'stop' with 'call stop_run'
---
solve_with_pwssmp.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/solve_with_pwssmp.f90 b/solve_with_pwssmp.f90
index 2d2d183e..0dd36f92 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
--
GitLab