From 39062ebf5fd952f8f9ea400f03fd4cbba5754679 Mon Sep 17 00:00:00 2001 From: Dave Whipp <dwhipp@dal.ca> Date: Tue, 20 Apr 2010 20:57:01 +0000 Subject: [PATCH] Minor code format cleanup --- src/wsmp_setup.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/wsmp_setup.f90 b/src/wsmp_setup.f90 index 65f3b95a..072f431d 100644 --- a/src/wsmp_setup.f90 +++ b/src/wsmp_setup.f90 @@ -30,7 +30,6 @@ type (parameters) params type (thread) threadinfo integer istep,iter - logical, dimension(:), allocatable :: iproc_col integer icol(100000),kk,nn,n0,jproc,idg_locp,nz integer ie,k1,k2,j,i2,i1,idof1,idof2,k,err,i3,k3,i @@ -47,7 +46,6 @@ shift=' ' !==============================================================================! !==============================================================================! - ! n is the size of the system/matrix ! nz is the total number of non-zero terms in the global matrix ! n_iproc is the number of columns on given thread iproc -- GitLab