From 134d3ae78b6e08a93c27cdc562b9267d32378eaa Mon Sep 17 00:00:00 2001 From: paulatto Date: Thu, 7 Jan 2010 12:08:50 +0000 Subject: [PATCH] Wrong dimension declared for ityp LP git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6266 c92efa57-630b-4861-b058-cf58834340f0 --- PW/martyna_tuckerman.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PW/martyna_tuckerman.f90 b/PW/martyna_tuckerman.f90 index aaba797aa..41d76ef7a 100644 --- a/PW/martyna_tuckerman.f90 +++ b/PW/martyna_tuckerman.f90 @@ -88,7 +88,7 @@ CONTAINS USE cell_base, ONLY : tpiba USE mp_global, ONLY : intra_pool_comm USE mp, ONLY : mp_sum - INTEGER, INTENT(IN) :: nat, ntyp, ityp(ntyp), ngm, nspin + INTEGER, INTENT(IN) :: nat, ntyp, ityp(nat), ngm, nspin REAL(DP), INTENT(IN) :: omega, zv(ntyp), tau(3,nat), g(3,ngm) COMPLEX(DP), INTENT(IN) :: strf(ngm,ntyp), rho(ngm,nspin) REAL(DP), INTENT(OUT) :: force(3,nat)