Move one cleanup statement

Signed-off-by: Philipp Pracht <pp555@cam.ac.uk>
crest-lab · Feb 16, 2024 · 3369f72 · 3369f72
1 parent 67c6b4d
commit 3369f72
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/algos/ConfSolv.F90 b/src/algos/ConfSolv.F90
@@ -99,8 +99,8 @@ subroutine cs_shutdown(io)
       write (stdout,'(/,a,i0)') 'Shutting down http://localhost/',cs_port
       call kill(cs_pid,9,io)
       deallocate (cs_pid)
+      call cs_shutdown2(io)
     end if
-    call cs_shutdown2(io)
 
   end subroutine cs_shutdown