mirror of
https://github.com/pfloos/quack
synced 2024-12-22 20:35:36 +01:00
update eDFT
This commit is contained in:
parent
65ca5214b6
commit
2142a13bda
@ -27,3 +27,4 @@ P 1
|
||||
1 0.0240300 1.0000000
|
||||
D 1
|
||||
1 0.1239000 1.0000000
|
||||
|
||||
|
@ -19,16 +19,16 @@
|
||||
# Number of states in ensemble (nEns)
|
||||
3
|
||||
# occupation numbers of orbitals
|
||||
1 1 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
|
||||
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
|
||||
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
|
||||
1 1 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
||||
# Ensemble weights: wEns(1),...,wEns(nEns-1)
|
||||
0.20 0.30
|
||||
0.00 0.00
|
||||
# Ncentered ? 0 for NO
|
||||
1
|
||||
# Parameters for CC weight-dependent exchange functional
|
||||
|
@ -27,3 +27,4 @@ P 1
|
||||
1 0.0240300 1.0000000
|
||||
D 1
|
||||
1 0.1239000 1.0000000
|
||||
|
||||
|
@ -221,12 +221,12 @@ program QuAcK
|
||||
|
||||
if(doSph) then
|
||||
|
||||
call read_integrals_sph(nEl(:),nBas,S,T,V,Hc,ERI_AO)
|
||||
call read_integrals_sph(nBas,S,T,V,Hc,ERI_AO)
|
||||
|
||||
else
|
||||
|
||||
call system('./GoQCaml')
|
||||
call read_integrals(nEl(:),nBas,S,T,V,Hc,ERI_AO)
|
||||
call read_integrals(nBas,S,T,V,Hc,ERI_AO)
|
||||
|
||||
end if
|
||||
|
||||
|
@ -123,7 +123,7 @@ program eDFT
|
||||
call cpu_time(start_int)
|
||||
|
||||
call system('./GoQCaml')
|
||||
call read_integrals(nEl(:),nBas,S,T,V,Hc,ERI)
|
||||
call read_integrals(nBas,S,T,V,Hc,ERI)
|
||||
|
||||
call cpu_time(end_int)
|
||||
|
||||
|
@ -1,4 +1,4 @@
|
||||
subroutine read_integrals(nEl,nBas,S,T,V,Hc,G)
|
||||
subroutine read_integrals(nBas,S,T,V,Hc,G)
|
||||
|
||||
! Read one- and two-electron integrals from files
|
||||
|
||||
@ -12,7 +12,6 @@ subroutine read_integrals(nEl,nBas,S,T,V,Hc,G)
|
||||
! Local variables
|
||||
|
||||
logical :: debug
|
||||
integer :: nEl(nspin)
|
||||
integer :: mu,nu,la,si
|
||||
double precision :: Ov,Kin,Nuc,ERI
|
||||
double precision :: lambda
|
||||
|
Loading…
Reference in New Issue
Block a user