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

- nlfl, fix of an error introduced with the previous commit 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4057 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2007-07-24 12:30:14 +00:00
parent 06b712fd11
commit 869954dad3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CPV/cplib.f90
View File

@ -1543,7 +1543,7 @@ END FUNCTION
ic = descla( ilac_ , iss )
nr = descla( nlar_ , iss )
nc = descla( nlac_ , iss )
CALL DGEMM( 'N', 'N', nr, nc, nh(is), 1.0d0, tmpdr, nudx, tmpbec, nhm, 0.0d0, temp, nlax )
CALL DGEMM( 'N', 'N', nr, nc, nh(is), 1.0d0, tmpdr, nlax, tmpbec, nhm, 0.0d0, temp, nlax )
DO j = 1, nc
DO i = 1, nr
fion_tmp(k,isa) = fion_tmp(k,isa) + 2D0 * temp( i, j ) * lambda( i, j, iss )