Subroutine f08lef ( |
vect, m, n, ncc, kl, ku, ab, ldab, d, e, q, ldq, pt, ldpt, c, ldc, work, info) |
Integer, Intent (In) |
:: |
m, n, ncc, kl, ku, ldab, ldq, ldpt, ldc |
Integer, Intent (Out) |
:: |
info |
Real (Kind=nag_wp), Intent (Inout) |
:: |
ab(ldab,*), q(ldq,*), pt(ldpt,*), c(ldc,*) |
Real (Kind=nag_wp), Intent (Out) |
:: |
d(min(m,n)), e(min(m,n)-1), work(2*max(m,n)) |
Character (1), Intent (In) |
:: |
vect |
|