This interface overloads the Fortran intrinsic procedure to define
the transpose operation for a Diagonal matrix.
B = transpose(A)
A : Matrix of Diagonal type.
It is an intent(in) argument.
B : Resulting transposed matrix. It is of the same type as A.