1extern int dsesrt_(char *which, logical *apply, integer *n, doublereal *x, integer *na, doublereal *a, integer *lda, ftnlen which_len); 2/*:ref: dswap_ 14 5 4 7 4 7 4 */ 3