Subroutine */
| 2686 | } /* cgelqf_ */ |
| 2687 | |
| 2688 | /* Subroutine */ int cgelsd_(integer *m, integer *n, integer *nrhs, complex * |
| 2689 | a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, |
| 2690 | integer *rank, complex *work, integer *lwork, real *rwork, integer * |
| 2691 | iwork, integer *info) |
| 2692 | { |
| 2693 | /* System generated locals */ |
| 2694 | integer a_dim1, a_offset, b_dim1, b_offset, i__1, i__2, i__3, i__4; |
| 2695 | |
| 2696 | /* Local variables */ |
| 2697 | static integer ie, il, mm; |
| 2698 | static real eps, anrm, bnrm; |
| 2699 | static integer itau, nlvl, iascl, ibscl; |
| 2700 | static real sfmin; |
| 2701 | static integer minmn, maxmn, itaup, itauq, mnthr, nwork; |
| 2702 | extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, |
| 2703 | integer *, real *, real *, complex *, complex *, complex *, |
| 2704 | integer *, integer *), slabad_(real *, real *); |
| 2705 | extern doublereal clange_(char *, integer *, integer *, complex *, |
| 2706 | integer *, real *); |
| 2707 | extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, |
| 2708 | integer *, complex *, complex *, integer *, integer *), clalsd_( |
| 2709 | char *, integer *, integer *, integer *, real *, real *, complex * |
| 2710 | , integer *, real *, integer *, complex *, real *, integer *, |
| 2711 | integer *), clascl_(char *, integer *, integer *, real *, |
| 2712 | real *, integer *, integer *, complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *, |
| 2713 | complex *, complex *, integer *, integer *); |
| 2714 | extern doublereal slamch_(char *); |
| 2715 | extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex |
| 2716 | *, integer *, complex *, integer *), claset_(char *, |
| 2717 | integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *); |
| 2718 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 2719 | integer *, integer *, ftnlen, ftnlen); |
| 2720 | static real bignum; |
| 2721 | extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, |
| 2722 | real *, integer *, integer *, real *, integer *, integer *), cunmbr_(char *, char *, char *, integer *, integer *, |
| 2723 | integer *, complex *, integer *, complex *, complex *, integer *, |
| 2724 | complex *, integer *, integer *), slaset_( |
| 2725 | char *, integer *, integer *, real *, real *, real *, integer *), cunmlq_(char *, char *, integer *, integer *, integer *, |
| 2726 | complex *, integer *, complex *, complex *, integer *, complex *, |
| 2727 | integer *, integer *); |
| 2728 | static integer ldwork; |
| 2729 | extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, |
| 2730 | integer *, complex *, integer *, complex *, complex *, integer *, |
| 2731 | complex *, integer *, integer *); |
| 2732 | static integer liwork, minwrk, maxwrk; |
| 2733 | static real smlnum; |
| 2734 | static integer lrwork; |
| 2735 | static logical lquery; |
| 2736 | static integer nrwork, smlsiz; |
| 2737 | |
| 2738 | |
| 2739 | /* |
| 2740 | -- LAPACK driver routine (version 3.2) -- |
| 2741 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 2742 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 2743 | November 2006 |
| 2744 | |
| 2745 |
nothing calls this directly
no test coverage detected