4
1
mirror of https://github.com/pfloos/quack synced 2024-06-26 15:12:17 +02:00

fix correlation keywords

This commit is contained in:
Pierre-Francois Loos 2020-07-08 11:26:47 +02:00
parent 91a0120eee
commit 467fa5d08c
9 changed files with 18 additions and 18 deletions

View File

@ -13,7 +13,7 @@
# GGA = 2:
# Hybrid = 4:
# Hartree-Fock = 666: HF
0 H
1 VWN5
# quadrature grid SG-n
1
# Number of states in ensemble (nEns)

View File

@ -28,11 +28,11 @@ subroutine restricted_lda_correlation_derivative_discontinuity(DFA,nEns,wEns,nGr
Ec(:) = 0d0
case ('RVWN5')
case ('VWN5')
Ec(:) = 0d0
case ('RMFL20')
case ('MFL20')
call RMFL20_lda_correlation_derivative_discontinuity(nEns,wEns,nGrid,weight(:),rhow(:),Ec(:))

View File

@ -29,11 +29,11 @@ subroutine restricted_lda_correlation_energy(DFA,LDA_centered,nEns,wEns,nGrid,we
Ec = 0d0
case ('RVWN5')
case ('VWN5')
call RVWN5_lda_correlation_energy(nGrid,weight(:),rho(:),Ec)
case ('RMFL20')
case ('MFL20')
call RMFL20_lda_correlation_energy(LDA_centered,nEns,wEns(:),nGrid,weight(:),rho(:),Ec)

View File

@ -26,13 +26,13 @@ subroutine restricted_lda_correlation_individual_energy(DFA,LDA_centered,nEns,wE
! Vosko, Wilk and Nusair's functional V: Can. J. Phys. 58 (1980) 1200
case ('RVWN5')
case ('VWN5')
call RVWN5_lda_correlation_individual_energy(nGrid,weight(:),rhow(:),rho(:),Ec)
! Marut-Fromager-Loos weight-dependent correlation functional
case ('RMFL20')
case ('MFL20')
call RMFL20_lda_correlation_individual_energy(LDA_centered,nEns,wEns,nGrid,weight(:),rhow(:),rho(:),Ec)

View File

@ -31,11 +31,11 @@ subroutine restricted_lda_correlation_potential(DFA,LDA_centered,nEns,wEns,nGrid
Fc(:,:) = 0d0
case ('RVWN5')
case ('VWN5')
call RVWN5_lda_correlation_potential(nGrid,weight(:),nBas,AO(:,:),rho(:),Fc(:,:))
case ('RMFL20')
case ('MFL20')
call RMFL20_lda_correlation_potential(LDA_centered,nEns,wEns(:),nGrid,weight(:),nBas,AO(:,:),rho(:),Fc(:,:))

View File

@ -28,13 +28,13 @@ subroutine unrestricted_lda_correlation_derivative_discontinuity(DFA,nEns,wEns,n
! Wigner's LDA correlation functional: Wigner, Trans. Faraday Soc. 34 (1938) 678
case ('UW38')
case ('W38')
Ec(:,:) = 0d0
! Vosko, Wilk and Nusair's functional V: Can. J. Phys. 58 (1980) 1200
case ('UVWN5')
case ('VWN5')
Ec(:,:) = 0d0

View File

@ -28,19 +28,19 @@ subroutine unrestricted_lda_correlation_energy(DFA,nEns,wEns,nGrid,weight,rho,Ec
Ec(:) = 0d0
case ('UW38')
case ('W38')
call UW38_lda_correlation_energy(nGrid,weight,rho,Ec)
! Vosko, Wilk and Nusair's functional V: Can. J. Phys. 58 (1980) 1200
case ('UVWN5')
case ('VWN5')
call UVWN5_lda_correlation_energy(nGrid,weight,rho,Ec)
! Chachiyo's LDA correlation functional: Chachiyo, JCP 145 (2016) 021101
case ('UC16')
case ('C16')
call UC16_lda_correlation_energy(nGrid,weight,rho,Ec)

View File

@ -26,7 +26,7 @@ subroutine unrestricted_lda_correlation_individual_energy(DFA,LDA_centered,nEns,
! Vosko, Wilk and Nusair's functional V: Can. J. Phys. 58 (1980) 1200
case ('UVWN5')
case ('VWN5')
call UVWN5_lda_correlation_individual_energy(nGrid,weight,rhow,rho,Ec)

View File

@ -32,19 +32,19 @@ include 'parameters.h'
! Wigner's LDA correlation functional: Wigner, Trans. Faraday Soc. 34 (1938) 678
case ('UW38')
case ('W38')
call UW38_lda_correlation_potential(nGrid,weight(:),nBas,AO(:,:),rho(:,:),Fc(:,:,:))
! Vosko, Wilk and Nusair's functional V: Can. J. Phys. 58 (1980) 1200
case ('UVWN5')
case ('VWN5')
call UVWN5_lda_correlation_potential(nGrid,weight(:),nBas,AO(:,:),rho(:,:),Fc(:,:,:))
! Chachiyo's LDA correlation functional: Chachiyo, JCP 145 (2016) 021101
case ('UC16')
case ('C16')
call UC16_lda_correlation_potential(nGrid,weight(:),nBas,AO(:,:),rho(:,:),Fc(:,:,:))