From e2bd101dede33e93151b7df7718e8563a0996dfd Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 3 Nov 2019 14:26:03 +0000 Subject: [PATCH] Fix typos in source. --- base/internals/psi_symm_dep_list.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/base/internals/psi_symm_dep_list.F90 b/base/internals/psi_symm_dep_list.F90 index ade82958..c25f61e5 100644 --- a/base/internals/psi_symm_dep_list.F90 +++ b/base/internals/psi_symm_dep_list.F90 @@ -114,7 +114,7 @@ subroutine psi_symm_dep_list(rvsz,adj,idxmap,info,flag) end select - if (flag_ == psi_symm_norv_) then + if (flag_ == psi_symm_flag_norv_) then ! write(0,*) me,name,' Going through ',nidx,nadj @@ -123,8 +123,8 @@ subroutine psi_symm_dep_list(rvsz,adj,idxmap,info,flag) ! First, send sizes according to adjcncy list ! sdsz = 0 - do j=1, nadj - sdsz(adj(j)) = 1 + do i=1, nadj + sdsz(adj(i)) = 1 end do !write(0,*)me,' Check on sizes into a2a:',adj(:),nadj,':',sdsz(:)