PTEROSOR/QuAcK
10
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-11-04 21:23:55 +01:00
Code Releases Activity

remove ERI copy in qsGW

Browse Source
This commit is contained in:
Pierre-Francois Loos 2019-10-30 10:31:05 +01:00
parent 72abe8a4f6
commit 1acf76b156
13 changed files with 99 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
input/basis
View File

@ -1,14 +1,9 @@
1 2 1 3
S 3 1.00 S 3 1.00
18.7311370 0.03349460 38.3600000 0.0238090
2.8253937 0.23472695 5.7700000 0.1548910
0.6401217 0.81375733 1.2400000 0.4699870
S 1 1.00 S 1 1.00
0.1612778 1.0000000 0.2976000 1.0000000
2 2 P 1 1.00
S 3 1.00 1.2750000 1.0000000
18.7311370 0.03349460
2.8253937 0.23472695
0.6401217 0.81375733
S 1 1.00
0.1612778 1.0000000

5
input/molecule
View File

@ -1,5 +1,4 @@
# nAt nEla nElb nCore nRyd # nAt nEla nElb nCore nRyd
2 1 1 0 0 1 1 1 0 0
# Znuc x y z # Znuc x y z
H 0. 0. 0. He 0.0 0.0 0.0
H 0. 0. 1.4

2
input/options
View File

@ -1,5 +1,5 @@
# RHF: maxSCF thresh DIIS n_diis guess_type ortho_type # RHF: maxSCF thresh DIIS n_diis guess_type ortho_type
64 0.0000001 T 5 2 1 64 0.000000001 T 5 1 1
# MP: # MP:
# CC: maxSCF thresh DIIS n_diis # CC: maxSCF thresh DIIS n_diis

19
input/weight
View File

@ -1,14 +1,9 @@
1 2 1 3
S 3 1.00 S 3 1.00
18.7311370 0.03349460 38.3600000 0.0238090
2.8253937 0.23472695 5.7700000 0.1548910
0.6401217 0.81375733 1.2400000 0.4699870
S 1 1.00 S 1 1.00
0.1612778 1.0000000 0.2976000 1.0000000
2 2 P 1 1.00
S 3 1.00 1.2750000 1.0000000
18.7311370 0.03349460
2.8253937 0.23472695
0.6401217 0.81375733
S 1 1.00
0.1612778 1.0000000

4
src/IntPak/Makefile
View File

@ -9,8 +9,8 @@ else
FFLAGS = -Wall -Wno-unused -Wno-unused-dummy-argument -O3 FFLAGS = -Wall -Wno-unused -Wno-unused-dummy-argument -O3
endif endif
LIBS = ~/Dropbox/quack/lib/*.a LIBS = ../../lib/*.a
#LIBS = -lblas -llapack LIBS += -lblas -llapack
SRCF90 = $(wildcard *.f90) SRCF90 = $(wildcard *.f90)

4
src/QuAcK/Makefile
View File

@ -14,8 +14,8 @@ ifeq ($(PROFIL),1)
FC += -p -fno-inline FC += -p -fno-inline
endif endif
LIBS = ~/Dropbox/quack/lib/*.a LIBS = ../../lib/*.a
#LIBS = -lblas -llapack LIBS += -lblas -llapack
SRCF90 = $(wildcard *.f90) SRCF90 = $(wildcard *.f90)

2
src/QuAcK/QuAcK.f90
View File

@ -516,7 +516,7 @@ program QuAcK
call cpu_time(start_qsGW) call cpu_time(start_qsGW)
call qsGW(maxSCF_GW,thresh_GW,n_diis_GW, & call qsGW(maxSCF_GW,thresh_GW,n_diis_GW, &
COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_manifold,triplet_manifold,eta, & COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_manifold,triplet_manifold,eta, &
nBas,nC(1),nO(1),nV(1),nR(1),nS(1),ENuc,ERHF,S,X,T,V,Hc,ERI_AO_basis,PHF,cHF,eHF) nBas,nC(1),nO(1),nV(1),nR(1),nS(1),ENuc,ERHF,S,X,T,V,Hc,ERI_AO_basis,ERI_MO_basis,PHF,cHF,eHF)
call cpu_time(end_qsGW) call cpu_time(end_qsGW)
t_qsGW = end_qsGW - start_qsGW t_qsGW = end_qsGW - start_qsGW

33
src/QuAcK/linear_response_pp.f90
View File

@ -16,7 +16,7 @@ subroutine linear_response_pp(ispin,BSE,nBas,nC,nO,nV,nR,nOO,nVV,e,ERI,Omega1,X1
! Local variables ! Local variables
integer :: p,q integer :: ab,cd,ij,kl
double precision :: trace_matrix double precision :: trace_matrix
double precision,allocatable :: B(:,:) double precision,allocatable :: B(:,:)
double precision,allocatable :: C(:,:) double precision,allocatable :: C(:,:)
@ -64,11 +64,32 @@ subroutine linear_response_pp(ispin,BSE,nBas,nC,nO,nV,nR,nOO,nVV,e,ERI,Omega1,X1
M( 1:nVV ,nVV+1:nOO+nVV) = - B(1:nVV,1:nOO) M( 1:nVV ,nVV+1:nOO+nVV) = - B(1:nVV,1:nOO)
M(nVV+1:nOO+nVV, 1:nVV) = + transpose(B(1:nVV,1:nOO)) M(nVV+1:nOO+nVV, 1:nVV) = + transpose(B(1:nVV,1:nOO))
! do p=1,nOO+nVV open(unit=42,file='B.dat')
! do q=1,nOO+nVV open(unit=43,file='C.dat')
! write(42,*) p,q,M(p,q) open(unit=44,file='D.dat')
! end do
! end do do ab=1,nVV
do ij=1,nOO
write(42,*) ab,ij,B(ab,ij)
end do
end do
do ab=1,nVV
do cd=1,nVV
write(43,*) ab,cd,C(ab,cd)
end do
end do
do ij=1,nOO
do kl=1,nOO
write(44,*) ij,kl,D(ij,kl)
end do
end do
close(42)
close(43)
close(44)
! print*, 'pp-RPA matrix' ! print*, 'pp-RPA matrix'
! call matout(nOO+nVV,nOO+nVV,M(:,:)) ! call matout(nOO+nVV,nOO+nVV,M(:,:))

14
src/QuAcK/qsGW.f90
View File

@ -1,5 +1,5 @@
subroutine qsGW(maxSCF,thresh,max_diis,COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_manifold,triplet_manifold,eta, & subroutine qsGW(maxSCF,thresh,max_diis,COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_manifold,triplet_manifold,eta, &
nBas,nC,nO,nV,nR,nS,ENuc,ERHF,S,X,T,V,Hc,ERI_AO_basis,PHF,cHF,eHF) nBas,nC,nO,nV,nR,nS,ENuc,ERHF,S,X,T,V,Hc,ERI_AO_basis,ERI_MO_basis,PHF,cHF,eHF)
! Compute linear response ! Compute linear response
@ -32,6 +32,7 @@ subroutine qsGW(maxSCF,thresh,max_diis,COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_mani
double precision,intent(in) :: Hc(nBas,nBas) double precision,intent(in) :: Hc(nBas,nBas)
double precision,intent(in) :: X(nBas,nBas) double precision,intent(in) :: X(nBas,nBas)
double precision,intent(in) :: ERI_AO_basis(nBas,nBas,nBas,nBas) double precision,intent(in) :: ERI_AO_basis(nBas,nBas,nBas,nBas)
double precision,intent(inout):: ERI_MO_basis(nBas,nBas,nBas,nBas)
! Local variables ! Local variables
@ -65,7 +66,6 @@ subroutine qsGW(maxSCF,thresh,max_diis,COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_mani
double precision,allocatable :: SigCp(:,:) double precision,allocatable :: SigCp(:,:)
double precision,allocatable :: SigCm(:,:) double precision,allocatable :: SigCm(:,:)
double precision,allocatable :: Z(:) double precision,allocatable :: Z(:)
double precision,allocatable :: ERI_MO_basis(:,:,:,:)
double precision,allocatable :: error(:,:) double precision,allocatable :: error(:,:)
! Hello world ! Hello world
@ -76,6 +76,11 @@ subroutine qsGW(maxSCF,thresh,max_diis,COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_mani
write(*,*)'************************************************' write(*,*)'************************************************'
write(*,*) write(*,*)
! Warning
write(*,*) '!! ERIs in MO basis will be overwritten in qsGW !!'
write(*,*)
! Stuff ! Stuff
nBasSq = nBas*nBas nBasSq = nBas*nBas
@ -90,7 +95,7 @@ subroutine qsGW(maxSCF,thresh,max_diis,COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_mani
if(COHSEX) write(*,*) 'COHSEX approximation activated!' if(COHSEX) write(*,*) 'COHSEX approximation activated!'
write(*,*) write(*,*)
! Switch off exchange for G0W0 ! Switch off exchange for qsGW
dRPA = .true. dRPA = .true.
@ -98,9 +103,8 @@ subroutine qsGW(maxSCF,thresh,max_diis,COHSEX,SOSEX,BSE,TDA,G0W,GW0,singlet_mani
allocate(e(nBas),c(nBas,nBas),cp(nBas,nBas),P(nBas,nBas),F(nBas,nBas),Fp(nBas,nBas), & allocate(e(nBas),c(nBas,nBas),cp(nBas,nBas),P(nBas,nBas),F(nBas,nBas),Fp(nBas,nBas), &
J(nBas,nBas),K(nBas,nBas),SigC(nBas,nBas),SigCp(nBas,nBas),SigCm(nBas,nBas),Z(nBas), & J(nBas,nBas),K(nBas,nBas),SigC(nBas,nBas),SigCp(nBas,nBas),SigCm(nBas,nBas),Z(nBas), &
ERI_MO_basis(nBas,nBas,nBas,nBas),error(nBas,nBas), &
Omega(nS,nspin),XpY(nS,nS,nspin),rho(nBas,nBas,nS,nspin),rhox(nBas,nBas,nS,nspin), & Omega(nS,nspin),XpY(nS,nS,nspin),rho(nBas,nBas,nS,nspin),rhox(nBas,nBas,nS,nspin), &
error_diis(nBasSq,max_diis),F_diis(nBasSq,max_diis)) error(nBas,nBas),error_diis(nBasSq,max_diis),F_diis(nBasSq,max_diis))
! Initialization ! Initialization

26
src/QuAcK/soG0T0.f90
View File

@ -83,39 +83,39 @@ subroutine soG0T0(eta,nBas,nC,nO,nV,nR,ENuc,ERHF,ERI,eHF)
seHF,sERI,Omega1,X1,Y1,Omega2,X2,Y2, & seHF,sERI,Omega1,X1,Y1,Omega2,X2,Y2, &
EcRPA) EcRPA)
! call print_excitation('pp-RPA (N+2)',ispin,nVV,Omega1(:)) call print_excitation('pp-RPA (N+2)',ispin,nVV,Omega1(:))
! call print_excitation('pp-RPA (N-2)',ispin,nOO,Omega2(:)) call print_excitation('pp-RPA (N-2)',ispin,nOO,Omega2(:))
! Compute excitation densities for the T-matrix ! Compute excitation densities for the T-matrix
! call excitation_density_Tmatrix(ispin,nBas2,nC2,nO2,nV2,nR2,nOO,nVV,sERI(:,:,:,:), & call excitation_density_Tmatrix(ispin,nBas2,nC2,nO2,nV2,nR2,nOO,nVV,sERI(:,:,:,:), &
! X1(:,:),Y1(:,:),rho1(:,:,:), & X1(:,:),Y1(:,:),rho1(:,:,:), &
! X2(:,:),Y2(:,:),rho2(:,:,:)) X2(:,:),Y2(:,:),rho2(:,:,:))
!---------------------------------------------- !----------------------------------------------
! Compute T-matrix version of the self-energy ! Compute T-matrix version of the self-energy
!---------------------------------------------- !----------------------------------------------
! call self_energy_Tmatrix_diag_so(eta,nBas2,nC2,nO2,nV2,nR2,nOO,nVV,seHF(:), & call self_energy_Tmatrix_diag_so(eta,nBas2,nC2,nO2,nV2,nR2,nOO,nVV,seHF(:), &
! Omega1(:),rho1(:,:,:),Omega2(:),rho2(:,:,:), & Omega1(:),rho1(:,:,:),Omega2(:),rho2(:,:,:), &
! SigT(:)) SigT(:))
! Compute renormalization factor for T-matrix self-energy ! Compute renormalization factor for T-matrix self-energy
! call renormalization_factor_Tmatrix_so(eta,nBas2,nC2,nO2,nV2,nR2,nOO,nVV,seHF(:), & call renormalization_factor_Tmatrix_so(eta,nBas2,nC2,nO2,nV2,nR2,nOO,nVV,seHF(:), &
! Omega1(:),rho1(:,:,:),Omega2(:),rho2(:,:,:), & Omega1(:),rho1(:,:,:),Omega2(:),rho2(:,:,:), &
! Z(:)) Z(:))
!---------------------------------------------- !----------------------------------------------
! Solve the quasi-particle equation ! Solve the quasi-particle equation
!---------------------------------------------- !----------------------------------------------
! eG0T0(:) = seHF(:) + Z(:)*SigT(:) eG0T0(:) = seHF(:) + Z(:)*SigT(:)
!---------------------------------------------- !----------------------------------------------
! Dump results ! Dump results
!---------------------------------------------- !----------------------------------------------
! call print_G0T0(nBas2,nO2,seHF(:),ENuc,ERHF,SigT(:),Z(:),eG0T0(:),EcRPA) call print_G0T0(nBas2,nO2,seHF(:),ENuc,ERHF,SigT(:),Z(:),eG0T0(:),EcRPA)
end subroutine soG0T0 end subroutine soG0T0

12
src/QuAcK/sort_ppRPA.f90
View File

@ -69,12 +69,12 @@ subroutine sort_ppRPA(nOO,nVV,Omega,Z,Omega1,X1,Y1,Omega2,X2,Y2)
call matout(nOO,1,Omega2(:)) call matout(nOO,1,Omega2(:))
write(*,*) write(*,*)
! write(*,*) 'X1.X1 - Y1.Y1' write(*,*) 'X1t.X1 - Y1t.Y1'
! call matout(nVV,nVV,matmul(transpose(X1),X1) - matmul(transpose(Y1),Y1)) call matout(nVV,nVV,matmul(transpose(X1),X1) - matmul(transpose(Y1),Y1))
! write(*,*) 'X2.X2 - Y2.Y2' write(*,*) 'X2t.X2 - Y2t.Y2'
! call matout(nOO,nOO,matmul(transpose(X2),X2) - matmul(transpose(Y2),Y2)) call matout(nOO,nOO,matmul(transpose(X2),X2) - matmul(transpose(Y2),Y2))
! write(*,*) 'X1.X2 - Y1.Y2' write(*,*) 'X1t.X2 - Y1t.Y2'
! call matout(nVV,nOO,matmul(transpose(X1),X2) - matmul(transpose(Y1),Y2)) call matout(nVV,nOO,matmul(transpose(X1),X2) - matmul(transpose(Y1),Y2))
end subroutine sort_ppRPA end subroutine sort_ppRPA

2
src/utils/Makefile
View File

@ -13,7 +13,7 @@ FFLAGS = -Wall -Wno-unused -Wno-unused-dummy-argument -O3
endif endif
LIBS = ../../lib/*.a LIBS = ../../lib/*.a
#LIBS = -lblas -llapack LIBS += -lblas -llapack
SRCF90 = $(wildcard *.f90) SRCF90 = $(wildcard *.f90)

47
src/utils/wrap_lapack.f90
View File

@ -47,45 +47,40 @@ subroutine diagonalize_general_matrix(N,A,WR,VR)
! Local variables ! Local variables
integer :: lwork,info integer :: lwork,info
double precision,allocatable :: work(:),WI(:),VL(:,:),tmp1(:,:),tmp2(:,:) double precision,allocatable :: work(:),WI(:),VL(:,:)
! Memory allocation ! Memory allocation
lwork = 4*N lwork = 4*N
allocate(WI(N),VL(N,N),work(lwork),tmp1(N,N),tmp2(N,N)) allocate(WI(N),VL(N,N),work(lwork))
tmp1 = A ! tmp1 = A
call dgeev('V','V',N,A,N,WR,WI,VL,N,VR,N,work,lwork,info) call dgeev('V','V',N,A,N,WR,WI,VL,N,VR,N,work,lwork,info)
if(info /= 0) then if(info /= 0) then
print*,'Problem in diagonalize_general_matrix (dgeev)!!' print*,'Problem in diagonalize_general_matrix (dgeev)!!'
endif endif
call matout(N,1,WI) ! tmp2 = 0d0
! do i=1,N
! do j=1,N
! do k=1,N
! tmp2(i,j) = tmp2(i,j) + tmp1(i,k)*vr(k,j)
! end do
! end do
! end do
tmp2 = 0d0 ! print*,'tmp2'
do i=1,N ! call matout(N,N,tmp2)
do j=1,N
do k=1,N
tmp2(i,j) = tmp2(i,j) + vl(k,i)*tmp1(k,j)
end do
end do
end do
print*,'tmp2' ! tmp1 = 0d0
call matout(N,N,tmp2) ! do i=1,N
! do j=1,N
! tmp1(i,j) = wr(j)*vr(i,j)
! end do
! end do
tmp1 = 0d0 ! print*,'tmp1'
do i=1,N ! call matout(N,N,tmp1)
do j=1,N
tmp1(i,j) = wr(i)*vl(i,j)
end do
end do
print*,'tmp1'
call matout(N,N,tmp1)
print*,'coucou'
print*,maxval(tmp1-tmp2),minval(tmp1-tmp2)
end subroutine diagonalize_general_matrix end subroutine diagonalize_general_matrix