Subroutine */
| 3814 | } /* zgeqrf_ */ |
| 3815 | |
| 3816 | /* Subroutine */ int zgesdd_(char *jobz, integer *m, integer *n, |
| 3817 | doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, |
| 3818 | integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, |
| 3819 | integer *lwork, doublereal *rwork, integer *iwork, integer *info) |
| 3820 | { |
| 3821 | /* System generated locals */ |
| 3822 | integer a_dim1, a_offset, u_dim1, u_offset, vt_dim1, vt_offset, i__1, |
| 3823 | i__2, i__3; |
| 3824 | |
| 3825 | /* Local variables */ |
| 3826 | static integer i__, ie, il, ir, iu, blk; |
| 3827 | static doublereal dum[1], eps; |
| 3828 | static integer iru, ivt, iscl; |
| 3829 | static doublereal anrm; |
| 3830 | static integer idum[1], ierr, itau, irvt; |
| 3831 | extern logical lsame_(char *, char *); |
| 3832 | static integer chunk, minmn; |
| 3833 | extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, |
| 3834 | integer *, doublecomplex *, doublecomplex *, integer *, |
| 3835 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 3836 | integer *); |
| 3837 | static integer wrkbl, itaup, itauq; |
| 3838 | static logical wntqa; |
| 3839 | static integer nwork; |
| 3840 | static logical wntqn, wntqo, wntqs; |
| 3841 | extern /* Subroutine */ int zlacp2_(char *, integer *, integer *, |
| 3842 | doublereal *, integer *, doublecomplex *, integer *); |
| 3843 | static integer mnthr1, mnthr2; |
| 3844 | extern /* Subroutine */ int dbdsdc_(char *, char *, integer *, doublereal |
| 3845 | *, doublereal *, doublereal *, integer *, doublereal *, integer *, |
| 3846 | doublereal *, integer *, doublereal *, integer *, integer *); |
| 3847 | |
| 3848 | extern /* Subroutine */ int dlascl_(char *, integer *, integer *, |
| 3849 | doublereal *, doublereal *, integer *, integer *, doublereal *, |
| 3850 | integer *, integer *), xerbla_(char *, integer *), |
| 3851 | zgebrd_(integer *, integer *, doublecomplex *, integer *, |
| 3852 | doublereal *, doublereal *, doublecomplex *, doublecomplex *, |
| 3853 | doublecomplex *, integer *, integer *); |
| 3854 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 3855 | integer *, integer *, ftnlen, ftnlen); |
| 3856 | static doublereal bignum; |
| 3857 | extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, |
| 3858 | integer *, doublereal *); |
| 3859 | extern /* Subroutine */ int zgelqf_(integer *, integer *, doublecomplex *, |
| 3860 | integer *, doublecomplex *, doublecomplex *, integer *, integer * |
| 3861 | ), zlacrm_(integer *, integer *, doublecomplex *, integer *, |
| 3862 | doublereal *, integer *, doublecomplex *, integer *, doublereal *) |
| 3863 | , zlarcm_(integer *, integer *, doublereal *, integer *, |
| 3864 | doublecomplex *, integer *, doublecomplex *, integer *, |
| 3865 | doublereal *), zlascl_(char *, integer *, integer *, doublereal *, |
| 3866 | doublereal *, integer *, integer *, doublecomplex *, integer *, |
| 3867 | integer *), zgeqrf_(integer *, integer *, doublecomplex *, |
| 3868 | integer *, doublecomplex *, doublecomplex *, integer *, integer * |
| 3869 | ); |
| 3870 | static integer ldwrkl; |
| 3871 | extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, |
| 3872 | doublecomplex *, integer *, doublecomplex *, integer *), |
| 3873 | zlaset_(char *, integer *, integer *, doublecomplex *, |
nothing calls this directly
no test coverage detected