diff --git a/src/solve_with_pwssmp.f90 b/src/solve_with_pwssmp.f90
index 025679767c271bb7691daae81ed39e2d8983060d..abdbab272caf15c9f1fce344863cb847251c7169 100644
--- a/src/solve_with_pwssmp.f90
+++ b/src/solve_with_pwssmp.f90
@@ -15,8 +15,8 @@
 !==============================================================================!
 !==============================================================================!
 
-subroutine solve_with_pwssmp (n,nz_loc,n_iproc,n_iproc_st,n_iproc_end,ia,ja,&
-                             ldb,nrhs,avals,b,params,osolve,ov,vo,threadinfo,&
+subroutine solve_with_pwssmp (n,nz_loc,n_iproc,n_iproc_st,n_iproc_end,ia,ja,   &
+                             ldb,nrhs,avals,b,params,osolve,ov,vo,threadinfo,  &
                              ndof,istep,iter,iter_nl)
 
 use definitions
@@ -334,7 +334,7 @@ if (iproc.eq.0) then
    write (8,'(a,f30.20,a,f30.20)') 'min ov%wnode ',minval(ov%wnode),'maxval ov%wnode',maxval(ov%wnode)
 end if
 
-call heap (threadinfo,'solution','solve_with',size(solution),'dp',-1)                   ; deallocate (solution)
+call heap (threadinfo,'solution','solve_with',size(solution),'dp',-1); deallocate (solution)
 
 call pwsmp_clear()