subroutine iddr_rsvd(matvect)
    implicit none
end
