1 extern int v3p_netlib_slassq_(
2   v3p_netlib_integer *n,
3   v3p_netlib_real *x,
4   v3p_netlib_integer *incx,
5   v3p_netlib_real *scale,
6   v3p_netlib_real *sumsq
7   );
8