diff --git a/src/build_system_wsmp.f90 b/src/build_system_wsmp.f90
index 26f6c9c322d13bfbc4ebd278ea494eedf48930d8..0cef697ee9067115b400b306342c07478ee91674 100644
--- a/src/build_system_wsmp.f90
+++ b/src/build_system_wsmp.f90
@@ -196,16 +196,16 @@ do ileaves=1,osolve%nleaves
                       if (k1 < 5) then
                         write (*,*) '****************'
                         write (*,*) 'k1: ',k1
-                        write (*,*) 'avals before for proc ',iproc,': ',avals
+                        write (*,*) 'avals before for proc ',iproc,': ',avals(iloc)
                         avals(iloc)=avals(iloc)-(params%dt*weightel(ileaves))/(2.d0*elem_dz)
-                        write (*,*) 'avals after for proc ',iproc,': ',avals
+                        write (*,*) 'avals after for proc ',iproc,': ',avals(iloc)
                         write (*,*) '****************'
                       else
                         write (*,*) '****************'
                         write (*,*) 'k1: ',k1
-                        write (*,*) 'avals before for proc ',iproc,': ',avals
+                        write (*,*) 'avals before for proc ',iproc,': ',avals(iloc)
                         avals(iloc)=avals(iloc)+(params%dt*weightel(ileaves))/(2.d0*elem_dz)
-                        write (*,*) 'avals after for proc ',iproc,': ',avals
+                        write (*,*) 'avals after for proc ',iproc,': ',avals(iloc)
                         write (*,*) '****************'
                       endif
                     endif