med

2024-06-29 08:24:51 +02:00 · 2017-03-20 16:21:41 +01:00 · 2017-03-20 16:21:41 +01:00 · 5ec072ea2d
commit 5ec072ea2d
parent 3b8239976a
1 changed files with 16 additions and 0 deletions
--- a/src/Davidson/diagonalize_restart_and_save_all_nstates_diag.irp.f
+++ b/src/Davidson/diagonalize_restart_and_save_all_nstates_diag.irp.f
@ -0,0 +1,16 @@
+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
+ call save_wavefunction_general(N_det,N_states_diag,psi_det_sorted,size(psi_coef_sorted,1),psi_coef_sorted)
+
+
+
+end