HP MLIB User's Guide Vol. 1 7th Ed.

198 HP MLIB User’s Guide
F_SSUMSQ/F_DSUMSQ/F_CSUMSQ/F_ZSUMSQ Sum of squares
INTEGER*8 INCX, N
REAL*4 SCL, SSQ, X( * )
SUBROUTINE F_SSUMSQ (N, X, INCX, SSQ, SCL)
INTEGER*8 INCX, N
REAL*8 SCL, SSQ, X( * )
SUBROUTINE F_DSUMSQ (N, X, INCX, SSQ, SCL)
INTEGER*8 INCX, N
REAL*4 SCL, SSQ
COMPLEX*8 X( * )
SUBROUTINE F_CSUMSQ (N, X, INCX, SSQ, SCL)
INTEGER*8 INCX, N
REAL*8 SCL, SSQ
COMPLEX*16 X( * )
SUBROUTINE F_ZSUMSQ (N, X, INCX, SSQ, SCL)