mirror of
https://github.com/pfloos/quack
synced 2024-08-26 14:11:47 +02:00
bug fix excitation_density_from_MO.f90
This commit is contained in:
parent
609615bd3a
commit
509d96d4bb
@ -25,7 +25,7 @@ subroutine excitation_density_from_MO(nBas,nC,nO,nR,nS,G,XpY,rho)
|
||||
do j=nC+1,nO
|
||||
do b=nO+1,nBas-nR
|
||||
jb = jb + 1
|
||||
rho(x,y,ia) = rho(x,y,ia) + G(x,y,j,b)*XpY(ia,jb)
|
||||
rho(x,y,ia) = rho(x,y,ia) + G(x,j,y,b)*XpY(ia,jb)
|
||||
enddo
|
||||
enddo
|
||||
enddo
|
||||
|
Loading…
Reference in New Issue
Block a user