|
version 1.17, 2018/05/29 07:18:29
|
version 1.18, 2020/05/21 21:46:09
|
|
Line 41
|
Line 41
|
| *> where x( i ) = abs( X( 1 + ( i - 1 )*INCX ) ). The value of sumsq is |
*> where x( i ) = abs( X( 1 + ( i - 1 )*INCX ) ). The value of sumsq is |
| *> assumed to be at least unity and the value of ssq will then satisfy |
*> assumed to be at least unity and the value of ssq will then satisfy |
| *> |
*> |
| *> 1.0 .le. ssq .le. ( sumsq + 2*n ). |
*> 1.0 <= ssq <= ( sumsq + 2*n ). |
| *> |
*> |
| *> scale is assumed to be non-negative and scl returns the value |
*> scale is assumed to be non-negative and scl returns the value |
| *> |
*> |
|
Line 65
|
Line 65
|
| *> |
*> |
| *> \param[in] X |
*> \param[in] X |
| *> \verbatim |
*> \verbatim |
| *> X is COMPLEX*16 array, dimension (N) |
*> X is COMPLEX*16 array, dimension (1+(N-1)*INCX) |
| *> The vector x as described above. |
*> The vector x as described above. |
| *> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. |
*> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. |
| *> \endverbatim |
*> \endverbatim |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to zlassq.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack