mirror of
https://github.com/pfloos/quack
synced 2024-12-22 20:34:46 +01:00
save worf unfoldGF2, still not working ...
This commit is contained in:
parent
6e8f1bb81c
commit
a259c81fa3
@ -103,8 +103,8 @@ subroutine ufRG0F02(dotest,nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,epsHF)
|
||||
do a=nO+1,nBas-nR
|
||||
ija = ija + 1
|
||||
|
||||
H(1 ,1+ija) = (2d0*ERI(p,a,i,j) - ERI(p,a,j,i))/sqrt(2d0)
|
||||
H(1+ija,1 ) = (2d0*ERI(p,a,i,j) - ERI(p,a,j,i))/sqrt(2d0)
|
||||
H(1 ,1+ija) = (2d0*ERI(p,a,i,j) - ERI(p,a,j,i))
|
||||
H(1+ija,1 ) = (ERI(p,a,i,j))
|
||||
|
||||
end do
|
||||
end do
|
||||
@ -120,8 +120,8 @@ subroutine ufRG0F02(dotest,nBas,nC,nO,nV,nR,nS,ENuc,ERHF,ERI,epsHF)
|
||||
do b=nO+1,nBas-nR
|
||||
iab = iab + 1
|
||||
|
||||
H(1 ,1+n2h1p+iab) = (2d0*ERI(p,i,a,b) - ERI(p,i,b,a))/sqrt(2d0)
|
||||
H(1+n2h1p+iab,1 ) = (2d0*ERI(p,i,a,b) - ERI(p,i,b,a))/sqrt(2d0)
|
||||
H(1 ,1+n2h1p+iab) = (2d0*ERI(p,i,a,b) - ERI(p,i,b,a))
|
||||
H(1+n2h1p+iab,1 ) = (ERI(p,i,a,b))
|
||||
|
||||
end do
|
||||
end do
|
||||
|
Loading…
Reference in New Issue
Block a user