diff --git a/src/wsmp_setup.f90 b/src/wsmp_setup.f90 index 65f3b95a568f39cb02231739f6fb0ccf7f2f2e53..072f431d7c132177a770436a52dd6b93b5368fd3 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