Skip to content
Snippets Groups Projects
Commit 89d3f997 authored by Douglas Guptill's avatar Douglas Guptill
Browse files

replace 'stop' with 'call stop_run'

parent 17f5a79f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
solve_with_pwssmp.f90
+ 1
− 1
View file @ 89d3f997
...@@ -134,7 +134,7 @@ time2=mpi_wtime() ...@@ -134,7 +134,7 @@ time2=mpi_wtime()
if (iproc.eq.0) then if (iproc.eq.0) then
if (iparm(64).ne.0) then if (iparm(64).ne.0) then
print *,'WSMP-> initialisation pb',iparm(64) print *,'WSMP-> initialisation pb',iparm(64)
stop 'WSMP pb' call stop_run ('WSMP pb$')
else else
write(*,'(a,f15.7,a)') shift//'wsmp: initialisation time: ',time2-time1,' s' write(*,'(a,f15.7,a)') shift//'wsmp: initialisation time: ',time2-time1,' s'
end if end if
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment