NAME
ZDRSCL - 1/a n
SYNOPSIS
SUBROUTINE ZDRSCL( N, SA, SX, INCX )
INTEGER INCX, N
DOUBLE PRECISION SA
COMPLEX*16 SX( * )
PURPOSE
ZDRSCL 1/a n x/a
ARGUMENTS
N ()
x
SA ()
a x SA 0
SX (/) 16 (COMPLEX*16 array)dimension
(1+(N-1)*abs(INCX)) The n-element vector x.
INCX ()
SX > 0: SX(1) = X(1) SX(1+(i-1)*INCX) = x(i), 1< i<= n
[]
bbbush <bbbush@163.com>
manl
[]
2003.11.22
linuxman:
http://cmpp.linuxforum.net