gsvj0 Interface

public interface gsvj0

GSVJ0 is called from CGESVJ as a pre-processor and that is its main purpose. It applies Jacobi rotations in the same way as CGESVJ does, but it does not check convergence (stopping criterion). Few tuning parameters (marked by [TP]) are available for the implementer.


Subroutines

public pure subroutine cgsvj0(jobv, m, n, a, lda, d, sva, mv, v, ldv, eps, sfmin, tol, nsweep, work, lwork, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: jobv
integer(kind=ilp), intent(in) :: m
integer(kind=ilp), intent(in) :: n
complex(kind=sp), intent(inout) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda
complex(kind=sp), intent(inout) :: d(n)
real(kind=sp), intent(inout) :: sva(n)
integer(kind=ilp), intent(in) :: mv
complex(kind=sp), intent(inout) :: v(ldv,*)
integer(kind=ilp), intent(in) :: ldv
real(kind=sp), intent(in) :: eps
real(kind=sp), intent(in) :: sfmin
real(kind=sp), intent(in) :: tol
integer(kind=ilp), intent(in) :: nsweep
complex(kind=sp), intent(out) :: work(lwork)
integer(kind=ilp), intent(in) :: lwork
integer(kind=ilp), intent(out) :: info

public pure subroutine dgsvj0(jobv, m, n, a, lda, d, sva, mv, v, ldv, eps, sfmin, tol, nsweep, work, lwork, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: jobv
integer(kind=ilp), intent(in) :: m
integer(kind=ilp), intent(in) :: n
real(kind=dp), intent(inout) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda
real(kind=dp), intent(inout) :: d(n)
real(kind=dp), intent(inout) :: sva(n)
integer(kind=ilp), intent(in) :: mv
real(kind=dp), intent(inout) :: v(ldv,*)
integer(kind=ilp), intent(in) :: ldv
real(kind=dp), intent(in) :: eps
real(kind=dp), intent(in) :: sfmin
real(kind=dp), intent(in) :: tol
integer(kind=ilp), intent(in) :: nsweep
real(kind=dp), intent(out) :: work(lwork)
integer(kind=ilp), intent(in) :: lwork
integer(kind=ilp), intent(out) :: info

public pure subroutine sgsvj0(jobv, m, n, a, lda, d, sva, mv, v, ldv, eps, sfmin, tol, nsweep, work, lwork, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: jobv
integer(kind=ilp), intent(in) :: m
integer(kind=ilp), intent(in) :: n
real(kind=sp), intent(inout) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda
real(kind=sp), intent(inout) :: d(n)
real(kind=sp), intent(inout) :: sva(n)
integer(kind=ilp), intent(in) :: mv
real(kind=sp), intent(inout) :: v(ldv,*)
integer(kind=ilp), intent(in) :: ldv
real(kind=sp), intent(in) :: eps
real(kind=sp), intent(in) :: sfmin
real(kind=sp), intent(in) :: tol
integer(kind=ilp), intent(in) :: nsweep
real(kind=sp), intent(out) :: work(lwork)
integer(kind=ilp), intent(in) :: lwork
integer(kind=ilp), intent(out) :: info

public pure subroutine zgsvj0(jobv, m, n, a, lda, d, sva, mv, v, ldv, eps, sfmin, tol, nsweep, work, lwork, info)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: jobv
integer(kind=ilp), intent(in) :: m
integer(kind=ilp), intent(in) :: n
complex(kind=dp), intent(inout) :: a(lda,*)
integer(kind=ilp), intent(in) :: lda
complex(kind=dp), intent(inout) :: d(n)
real(kind=dp), intent(inout) :: sva(n)
integer(kind=ilp), intent(in) :: mv
complex(kind=dp), intent(inout) :: v(ldv,*)
integer(kind=ilp), intent(in) :: ldv
real(kind=dp), intent(in) :: eps
real(kind=dp), intent(in) :: sfmin
real(kind=dp), intent(in) :: tol
integer(kind=ilp), intent(in) :: nsweep
complex(kind=dp), intent(out) :: work(lwork)
integer(kind=ilp), intent(in) :: lwork
integer(kind=ilp), intent(out) :: info

Module Procedures

public interface stdlib_cgsvj0()

Arguments

None

public interface stdlib_dgsvj0()

Arguments

None

public interface stdlib_sgsvj0()

Arguments

None

public interface stdlib_zgsvj0()

Arguments

None