10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-09-27 12:00:56 +02:00
quantum_package/plugins/eginer/multistate/diag_restart_save_all_states.irp.f

15 lines
277 B
Fortran
Raw Normal View History

2018-02-09 18:23:05 +01:00
program diag_and_save
implicit none
read_wf = .True.
touch read_wf
call routine
end
subroutine routine
implicit none
call diagonalize_CI
print*,'N_det = ',N_det
2018-09-21 10:02:55 +02:00
call save_wavefunction_general(N_det,N_states,psi_det_sorted,size(psi_coef_sorted,1),psi_coef_sorted)
2018-02-09 18:23:05 +01:00
end