253     integer chunk, minmn, wrkbl, itaup, itauq, mnthr, iwork;  in cgesvd_()  local
312     minmn = min(*m,*n);  in cgesvd_()
348     else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn)  in cgesvd_()
363         if (*m >= *n && minmn > 0)  in cgesvd_()
619         else if (minmn > 0)  in cgesvd_()
3280             slascl_("G", &c__0, &c__0, &bignum, &anrm, &minmn, &c__1, &s[1], & minmn, &ierr);  in cgesvd_()
3284             i__2 = minmn - 1;  in cgesvd_()
3285             slascl_("G", &c__0, &c__0, &bignum, &anrm, &i__2, &c__1, &rwork[ ie], &minmn, &ierr);  in cgesvd_()
3289             slascl_("G", &c__0, &c__0, &smlnum, &anrm, &minmn, &c__1, &s[1], & minmn, &ierr);  in cgesvd_()
3293             i__2 = minmn - 1;  in cgesvd_()
3294             slascl_("G", &c__0, &c__0, &smlnum, &anrm, &i__2, &c__1, &rwork[ ie], &minmn, &ierr);  in cgesvd_()