mirror of https://gitlab.com/QEF/q-e.git
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
This commit is contained in:
parent
8a58de22ef
commit
134d3ae78b
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue