Skip to content
Snippets Groups Projects
Commit 39062ebf authored by Dave Whipp's avatar Dave Whipp
Browse files

Minor code format cleanup

parent 71abe51b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 0 additions and 2 deletions
src/wsmp_setup.f90
+ 0
− 2
View file @ 39062ebf
...@@ -30,7 +30,6 @@ type (parameters) params ...@@ -30,7 +30,6 @@ type (parameters) params
type (thread) threadinfo type (thread) threadinfo
integer istep,iter integer istep,iter
logical, dimension(:), allocatable :: iproc_col logical, dimension(:), allocatable :: iproc_col
integer icol(100000),kk,nn,n0,jproc,idg_locp,nz integer icol(100000),kk,nn,n0,jproc,idg_locp,nz
integer ie,k1,k2,j,i2,i1,idof1,idof2,k,err,i3,k3,i integer ie,k1,k2,j,i2,i1,idof1,idof2,k,err,i3,k3,i
...@@ -47,7 +46,6 @@ shift=' ' ...@@ -47,7 +46,6 @@ shift=' '
!==============================================================================! !==============================================================================!
!==============================================================================! !==============================================================================!
! n is the size of the system/matrix ! n is the size of the system/matrix
! nz is the total number of non-zero terms in the global 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 ! n_iproc is the number of columns on given thread iproc
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment