10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00
quantum_package/plugins/mrcepa0/mrcc_sto.irp.f
Anthony Scemama a846375d25
MRCC stoch (#56)
* experimental mrcc_sto

* experimental (not working) delta_cancel

* delta_cancel was uninitialized

* mrcc dressing on first column ; mrcc_stoch estimates energy from dressing

* mrcc_zmq

* checkpointed mrcc_zmq

* corrected small bias - better balanced checkpoints

* checkpoints were triggered at wrong time

* hardcoded and arbitrary target absolute error for mrcc_zmq

* removed delta_ij_cancel

* removed useless parameter coef in mrcc_part_dress_1c
2017-12-04 10:49:37 +01:00

28 lines
554 B
Fortran

program mrsc2sub
implicit none
double precision, allocatable :: energy(:)
allocate (energy(N_states))
!!mrmode : 1=mrcepa0, 2=mrsc2 add, 3=mrcc
mrmode = 4
read_wf = .True.
SOFT_TOUCH read_wf
call set_generators_bitmasks_as_holes_and_particles
if (.True.) then
integer :: i,j
do j=1,N_states
do i=1,N_det
psi_coef(i,j) = CI_eigenvectors(i,j)
enddo
enddo
SOFT_TOUCH psi_coef
endif
call run(N_states,energy)
if(do_pt2)then
call run_pt2(N_states,energy)
endif
deallocate(energy)
end