Interface diag

Construct a diagonal matrix from a vector, or extract the diagonal elements of a matrix and return them as a vector.

vect -- intent(in), dimension(:), real(dp) or complex(dp)

matrix -- intent(in), dimension(:,:), real(dp) or complex(dp)

Return values:

m1 -- real(dp), dimension(size(vect),size(vect))

m2 -- complex(dp), dimension(size(vect),size(vect))

v3 -- real(dp), dimension(size(matrix,1))

v4 -- complex(dp), dimension(size(matrix,1))

print interface