check_normalized Interface

public interface check_normalized

Check if w.f. is normalized = 1 if k = k' = 0 if k /= k' with the matrix form wf' wf = I for a real matrix wf^T wf = I for a complex matrix


Module Procedures

private subroutine check_normal_real_sym(wf, tol)

Arguments

Type IntentOptional Attributes Name
real(kind=long), intent(in) :: wf(:,:)
real(kind=long), intent(in) :: tol

private subroutine check_normal_real_nonsym(wf_l, wf_r, tol)

Arguments

Type IntentOptional Attributes Name
real(kind=long), intent(in) :: wf_l(:,:)
real(kind=long), intent(in) :: wf_r(:,:)
real(kind=long), intent(in) :: tol

private subroutine check_normal_complex_hermitian(wf, tol)

Arguments

Type IntentOptional Attributes Name
complex(kind=long), intent(in) :: wf(:,:)
real(kind=long), intent(in) :: tol

private subroutine check_normal_complex_nonsym(wf_l, wf_r, tol)

Arguments

Type IntentOptional Attributes Name
complex(kind=long), intent(in) :: wf_l(:,:)
complex(kind=long), intent(in) :: wf_r(:,:)
real(kind=long), intent(in) :: tol