subroutine dress_zmq()
  implicit none
  double precision, allocatable  :: energy(:)
  allocate (energy(N_states))

  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_dressing(N_states,energy)
  deallocate(energy)
end