From e29861a3ad361634eec5fd356331d8f13d5376d9 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 8 Jun 2011 11:29:02 +0000
Subject: [PATCH] Fixed typo
---
src/build_system_wsmp.f90 | 2 --
1 file changed, 2 deletions(-)
diff --git a/src/build_system_wsmp.f90 b/src/build_system_wsmp.f90
index b9f37c29..af78e054 100644
--- a/src/build_system_wsmp.f90
+++ b/src/build_system_wsmp.f90
@@ -172,8 +172,6 @@ do ileaves=1,osolve%nleaves
! transfer elemental matrix and rhs into wsmpmatrix structure
! different for symmetric or nonsymmetric matrices
- do i=1,params%mpe
-
do k1=1,params%mpe
do idof1=1,ndof
i1=(vo%ftr(osolve%icon(k1,ileaves))-1)*ndof+idof1
--
GitLab