- bug fix, rhoc was allocated two times

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2156 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2005-09-06 10:24:21 +00:00
parent f042695867
commit d0e2f71119
1 changed files with 0 additions and 11 deletions

View File

@ -361,17 +361,6 @@ SUBROUTINE smdmain( tau, fion_out, etot_out, nat_out )
nnrx, nnrsx, nat, nax, nsp, nspin, nbsp, nbspx, 0, nupdwn, nkb, gzero, 1, &
'gamma', smd = .TRUE. )
!
IF( nlcc_any ) THEN
ALLOCATE( rhoc( nnrx ) )
ELSE
!
! ... dummy allocation required because this array appears in the
! ... list of arguments of some routines
!
ALLOCATE( rhoc( 1 ) )
END IF
!
!
!
CALL allocate_local_pseudo( ngs, nsp )
!