stdlib_cuncsd Interface
interface
public recursive module subroutine stdlib_cuncsd(jobu1, jobu2, jobv1t, jobv2t, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, work, lwork, rwork, lrwork, iwork, info)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=1), | intent(in) | :: | jobu1 | |||
| character(len=1), | intent(in) | :: | jobu2 | |||
| character(len=1), | intent(in) | :: | jobv1t | |||
| character(len=1), | intent(in) | :: | jobv2t | |||
| character(len=1), | intent(in) | :: | trans | |||
| character(len=1), | intent(in) | :: | signs | |||
| integer(kind=ilp), | intent(in) | :: | m | |||
| integer(kind=ilp), | intent(in) | :: | p | |||
| integer(kind=ilp), | intent(in) | :: | q | |||
| complex(kind=sp), | intent(inout) | :: | x11(ldx11,*) | |||
| integer(kind=ilp), | intent(in) | :: | ldx11 | |||
| complex(kind=sp), | intent(inout) | :: | x12(ldx12,*) | |||
| integer(kind=ilp), | intent(in) | :: | ldx12 | |||
| complex(kind=sp), | intent(inout) | :: | x21(ldx21,*) | |||
| integer(kind=ilp), | intent(in) | :: | ldx21 | |||
| complex(kind=sp), | intent(inout) | :: | x22(ldx22,*) | |||
| integer(kind=ilp), | intent(in) | :: | ldx22 | |||
| real(kind=sp), | intent(out) | :: | theta(*) | |||
| complex(kind=sp), | intent(out) | :: | u1(ldu1,*) | |||
| integer(kind=ilp), | intent(in) | :: | ldu1 | |||
| complex(kind=sp), | intent(out) | :: | u2(ldu2,*) | |||
| integer(kind=ilp), | intent(in) | :: | ldu2 | |||
| complex(kind=sp), | intent(out) | :: | v1t(ldv1t,*) | |||
| integer(kind=ilp), | intent(in) | :: | ldv1t | |||
| complex(kind=sp), | intent(out) | :: | v2t(ldv2t,*) | |||
| integer(kind=ilp), | intent(in) | :: | ldv2t | |||
| complex(kind=sp), | intent(out) | :: | work(*) | |||
| integer(kind=ilp), | intent(in) | :: | lwork | |||
| real(kind=sp), | intent(out) | :: | rwork(*) | |||
| integer(kind=ilp), | intent(in) | :: | lrwork | |||
| integer(kind=ilp), | intent(out) | :: | iwork(*) | |||
| integer(kind=ilp), | intent(out) | :: | info |