1extern int dsvdc_(doublereal *x, integer *ldx, integer *n, integer *p, doublereal *s, doublereal *e, doublereal *u, integer *ldu, doublereal *v, integer *ldv, doublereal *work, integer *job, integer *info);
2/*:ref: dnrm2_ 7 3 4 7 4 */
3/*:ref: dscal_ 14 4 4 7 7 4 */
4/*:ref: ddot_ 7 5 4 7 4 7 4 */
5/*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
6/*:ref: drotg_ 14 4 7 7 7 7 */
7/*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
8/*:ref: dswap_ 14 5 4 7 4 7 4 */
9