quantum_package/src/Determinants/truncate_wf.irp.f

program s2_eig_restart
 implicit none
 read_wf = .True.
 call routine
end
subroutine routine
 implicit none
  call make_s2_eigenfunction
  TOUCH psi_det psi_coef psi_det_sorted psi_coef_sorted psi_average_norm_contrib_sorted N_det
  call save_wavefunction
end
Modifs of fobo-scf 2016-07-16 16:09:50 +02:00			`program s2_eig_restart`
			`implicit none`
			`read_wf = .True.`
			`call routine`
			`end`
			`subroutine routine`
			`implicit none`
			`call make_s2_eigenfunction`
Add all the mising file... 2015-04-20 16:45:06 +02:00			`TOUCH psi_det psi_coef psi_det_sorted psi_coef_sorted psi_average_norm_contrib_sorted N_det`
			`call save_wavefunction`
			`end`