9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-03 22:55:58 +02:00
qp2/src/dressing/dress_zmq_routines.irp.f
2019-01-25 11:39:31 +01:00

23 lines
446 B
Fortran

subroutine dress_zmq()
implicit none
double precision, allocatable :: energy(:)
allocate (energy(N_states))
threshold_generators = 1d0
read_wf = .True.
SOFT_TOUCH read_wf threshold_generators
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_dressing(N_states,energy)
deallocate(energy)
end