program shifted_bk
implicit none
BEGIN_DOC
! TODO
END_DOC
call diagonalize_CI()
call dress_zmq()
end