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