mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-06-26 06:22:04 +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
|
|
|
|
|