scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

- fixed allocation of lambda to meet new array arguments 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2746 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2006-01-31 09:14:54 +00:00
parent 50ae06d1d7
commit 368c35e546
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
VIB/vibrations.f90
View File

@ -129,7 +129,7 @@ CONTAINS
USE cp_main_variables, ONLY : lambda, lambdam, ema0bg, nfi, bec
USE cp_main_variables, ONLY : irb, eigrb, rhor, rhog, rhos, acc
USE cp_main_variables, ONLY : lambdap, eigr, rhopr
USE electrons_base, ONLY : nbsp, nbspx, nel, f
USE electrons_base, ONLY : nbsp, nbspx, nel, f, nudx, nspin
USE electrons_module, ONLY : cp_eigs
USE ions_positions, ONLY : tau0, taus, tausm, vels, velsm
USE electrons_nose, ONLY : xnhe0, xnhem, vnhe
@ -168,7 +168,7 @@ CONTAINS
!
#ifdef DFT_CP
ALLOCATE( ref_c0 ( ngw, nbspx, 1, 1 ) )
ALLOCATE( ref_lambda ( nbsp, nbsp ) )
ALLOCATE( ref_lambda ( nudx, nudx, nspin ) )
#endif
ALLOCATE( ref_tau ( 3, natx ) )
ALLOCATE( active_atom( nat ) )