quantum_package/plugins/dress_zmq/dress_zmq_routines.irp.f

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
fixed merge 2018-01-09 10:41:45 +01:00			`subroutine dress_zmq()`
dress_zmq with null dressing 2017-12-15 16:21:04 +01:00			`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`
Added Bk module 2018-03-05 17:04:26 +01:00			`call run_dressing(N_states,energy)`
dress_zmq with null dressing 2017-12-15 16:21:04 +01:00			`deallocate(energy)`
			`end`