From f17963f79a8d431a67b31e9575115c3cd8310575 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 8 Jun 2011 12:45:19 +0000
Subject: [PATCH] Tweaked debug output
---
src/build_system_wsmp.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/build_system_wsmp.f90 b/src/build_system_wsmp.f90
index 26f6c9c3..0cef697e 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
--
GitLab