mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-08 03:54:45 +02:00
16 lines
221 B
Fortran
16 lines
221 B
Fortran
program print_e_mo_debug
|
|
implicit none
|
|
read_wf = .True.
|
|
touch read_wf
|
|
call routine
|
|
|
|
end
|
|
|
|
subroutine routine
|
|
use bitmasks
|
|
implicit none
|
|
integer :: i
|
|
read*,i
|
|
call print_mo_energies(psi_det(:,:,i),N_int,mo_num)
|
|
end
|