quantum_package/plugins/QmcChem/save_for_qmcchem.irp.f

program save_for_qmc
 read_wf = .True.
 TOUCH read_wf
 print *,  "N_det = ", N_det
 call write_spindeterminants 
 if (do_pseudo) then
   call write_pseudopotential
 endif
end
Added Davidson in MRCC 2015-05-21 10:15:13 +02:00			`program save_for_qmc`
			`read_wf = .True.`
			`TOUCH read_wf`
LinearAlgebra 2015-11-30 20:57:41 +01:00			`print *, "N_det = ", N_det`
Added Davidson in MRCC 2015-05-21 10:15:13 +02:00			`call write_spindeterminants`
Changed pseudo_ao in EZFIO 2015-05-26 21:37:17 +02:00			`if (do_pseudo) then`
			`call write_pseudopotential`
			`endif`
Added Davidson in MRCC 2015-05-21 10:15:13 +02:00			`end`