Subroutine */
| 3787 | } /* cgeqrf_ */ |
| 3788 | |
| 3789 | /* Subroutine */ int cgesdd_(char *jobz, integer *m, integer *n, complex *a, |
| 3790 | integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer |
| 3791 | *ldvt, complex *work, integer *lwork, real *rwork, integer *iwork, |
| 3792 | integer *info) |
| 3793 | { |
| 3794 | /* System generated locals */ |
| 3795 | integer a_dim1, a_offset, u_dim1, u_offset, vt_dim1, vt_offset, i__1, |
| 3796 | i__2, i__3; |
| 3797 | |
| 3798 | /* Local variables */ |
| 3799 | static integer i__, ie, il, ir, iu, blk; |
| 3800 | static real dum[1], eps; |
| 3801 | static integer iru, ivt, iscl; |
| 3802 | static real anrm; |
| 3803 | static integer idum[1], ierr, itau, irvt; |
| 3804 | extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, |
| 3805 | integer *, complex *, complex *, integer *, complex *, integer *, |
| 3806 | complex *, complex *, integer *); |
| 3807 | extern logical lsame_(char *, char *); |
| 3808 | static integer chunk, minmn, wrkbl, itaup, itauq; |
| 3809 | static logical wntqa; |
| 3810 | static integer nwork; |
| 3811 | extern /* Subroutine */ int clacp2_(char *, integer *, integer *, real *, |
| 3812 | integer *, complex *, integer *); |
| 3813 | static logical wntqn, wntqo, wntqs; |
| 3814 | static integer mnthr1, mnthr2; |
| 3815 | extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, |
| 3816 | integer *, real *, real *, complex *, complex *, complex *, |
| 3817 | integer *, integer *); |
| 3818 | extern doublereal clange_(char *, integer *, integer *, complex *, |
| 3819 | integer *, real *); |
| 3820 | extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, |
| 3821 | integer *, complex *, complex *, integer *, integer *), clacrm_( |
| 3822 | integer *, integer *, complex *, integer *, real *, integer *, |
| 3823 | complex *, integer *, real *), clarcm_(integer *, integer *, real |
| 3824 | *, integer *, complex *, integer *, complex *, integer *, real *), |
| 3825 | clascl_(char *, integer *, integer *, real *, real *, integer *, |
| 3826 | integer *, complex *, integer *, integer *), sbdsdc_(char |
| 3827 | *, char *, integer *, real *, real *, real *, integer *, real *, |
| 3828 | integer *, real *, integer *, real *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer |
| 3829 | *, complex *, complex *, integer *, integer *); |
| 3830 | extern doublereal slamch_(char *); |
| 3831 | extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex |
| 3832 | *, integer *, complex *, integer *), claset_(char *, |
| 3833 | integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *); |
| 3834 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 3835 | integer *, integer *, ftnlen, ftnlen); |
| 3836 | extern /* Subroutine */ int cungbr_(char *, integer *, integer *, integer |
| 3837 | *, complex *, integer *, complex *, complex *, integer *, integer |
| 3838 | *); |
| 3839 | static real bignum; |
| 3840 | extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, |
| 3841 | real *, integer *, integer *, real *, integer *, integer *), cunmbr_(char *, char *, char *, integer *, integer *, |
| 3842 | integer *, complex *, integer *, complex *, complex *, integer *, |
| 3843 | complex *, integer *, integer *), cunglq_( |
| 3844 | integer *, integer *, integer *, complex *, integer *, complex *, |
| 3845 | complex *, integer *, integer *); |
| 3846 | static integer ldwrkl; |
nothing calls this directly
no test coverage detected