unitary_defect Function

public pure function unitary_defect(A) result(rF)

Return the unitary defect with respect to the Frobenius norm $rF = ||A^{\dagger}A-I||_F / sqrt{n}$

Arguments

Type	Intent	Optional	Attributes		Name
class(*),	intent(in)			::	A(:,:)

Return Value real(kind=dp)