eigh_jacobi Interface

public interface eigh_jacobi

Module Procedures

private subroutine d_jacobi(a, d, v, nrot)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(inout), dimension(:,:) :: a
real(kind=8), intent(out), dimension(size(a,1)) :: d
real(kind=8), intent(out), dimension(size(a,1),size(a,2)) :: v
integer, intent(out) :: nrot

private subroutine c_jacobi(a, d, U, sweep)

Arguments

Type IntentOptional Attributes Name
complex(kind=8), intent(inout), dimension(:,:) :: a
real(kind=8), intent(out), dimension(size(a,1)) :: d
complex(kind=8), intent(out), dimension(size(a,1),size(a,2)) :: U
integer :: sweep