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)
198HP MLIB User’s Guide