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

Removed doubled zcopy call in lr_lanczos. Spotted by Kuilin Lu. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8896 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbinnie 2012-04-17 09:00:48 +00:00
parent 76e76e802a
commit 94bc27dba4
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TDDFPT/src/lr_lanczos.f90
View File

@ -285,7 +285,6 @@ CONTAINS
CALL lr_apply_liouvillian(evc1(1,1,1,1),evc1_new(1,1,1,1),sevc1_new(1,1,1,1),.true.)
CALL zcopy(size_evc,evc1(:,:,:,1),1,evc1(:,:,:,2),1) !evc1(,1) = evc1(,2)
CALL zcopy(size_evc,evc1_new(:,:,:,1),1,evc1_new(:,:,:,2),1) !evc1_new(,1) = evc1_new(,2)
CALL zcopy(size_evc,evc1_new(:,:,:,1),1,evc1_new(:,:,:,2),1) !evc1_new(,1) = evc1_new(,2)
ENDIF
!