program shifted_bk
  implicit none
  BEGIN_DOC
! TODO
  END_DOC

  call diagonalize_CI()
  call dress_zmq()
end