mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-10-11 02:21:52 +02:00
20 lines
241 B
Fortran
20 lines
241 B
Fortran
|
program print_e_scf
|
||
|
call run
|
||
|
end
|
||
|
|
||
|
subroutine run
|
||
|
|
||
|
use bitmasks
|
||
|
implicit none
|
||
|
|
||
|
call print_debug_scf_complex
|
||
|
|
||
|
print*,'hf 1e,2e,total energy'
|
||
|
print*,hf_one_electron_energy
|
||
|
print*,hf_two_electron_energy
|
||
|
print*,hf_energy
|
||
|
|
||
|
end
|
||
|
|
||
|
|