mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-18 11:23:38 +01:00
removed stupid dependency on the AO integrals in basis_correction
This commit is contained in:
parent
970f846a4d
commit
e5da77577f
@ -7,22 +7,10 @@ program basis_correction
|
|||||||
touch read_wf
|
touch read_wf
|
||||||
no_core_density = .True.
|
no_core_density = .True.
|
||||||
touch no_core_density
|
touch no_core_density
|
||||||
provide ao_two_e_integrals_in_map
|
if(io_mo_two_e_integrals .ne. "Read")then
|
||||||
|
provide ao_two_e_integrals_in_map
|
||||||
|
endif
|
||||||
provide mo_two_e_integrals_in_map
|
provide mo_two_e_integrals_in_map
|
||||||
call print_basis_correction
|
call print_basis_correction
|
||||||
! call print_e_b
|
|
||||||
end
|
end
|
||||||
|
|
||||||
subroutine print_e_b
|
|
||||||
implicit none
|
|
||||||
print *, 'Hello world'
|
|
||||||
print*,'ecmd_lda_mu_of_r = ',ecmd_lda_mu_of_r
|
|
||||||
print*,'ecmd_pbe_ueg_mu_of_r = ',ecmd_pbe_ueg_mu_of_r
|
|
||||||
print*,'ecmd_pbe_ueg_eff_xi_mu_of_r = ',ecmd_pbe_ueg_eff_xi_mu_of_r
|
|
||||||
print*,''
|
|
||||||
print*,'psi_energy + E^B_LDA = ',psi_energy + ecmd_lda_mu_of_r
|
|
||||||
print*,'psi_energy + E^B_PBE_UEG = ',psi_energy + ecmd_pbe_ueg_mu_of_r
|
|
||||||
print*,'psi_energy + E^B_PBE_UEG_Xi = ',psi_energy + ecmd_pbe_ueg_eff_xi_mu_of_r
|
|
||||||
print*,''
|
|
||||||
print*,'mu_average_prov = ',mu_average_prov
|
|
||||||
end
|
|
||||||
|
Loading…
Reference in New Issue
Block a user