Added new level-1d operation: setid.

Details:
- Defined a new level-1d operation, setid, which sets the imaginary
  elements of an object's diagonal to a single scalar. This can be
  useful, for example, when trying to make the diagonal of a Hermitian
  matrix real-valued.