|
DCOPY, DSCAL是Lahey Fortan专属子程序。
DCOPY
SUBROUTINE DCOPY (N, DX, INCX, DY, INCY)
Purpose
Copy a vector.
GAMS Category
D1A5
Author(s)
Lawson, C. L., (JPL)
Hanson, R. J., (SNLA)
Kincaid, D. R., (U. of Texas)
Krogh, F. T., (JPL)
Description
B L A S Subprogram
Description of Parameters
--Input--
N number of elements in input vector(s)
DX double precision vector with N elements
INCX storage spacing between elements of DX
DY double precision vector with N elements
INCY storage spacing between elements of DY
--Output--
DY copy of vector DX (unchanged if N .LE. 0)
Copy double precision DX to double precision DY.
For I = 0 to N-1, copy DX(LX+I*INCX) to DY(LY+I*INCY),
where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is
defined in a similar way using INCY.
DSCAL
SUBROUTINE DSCAL (N, DA, DX, INCX)
Purpose
Multiply a vector by a constant.
GAMS Category
D1A6
Author(s)
Lawson, C. L., (JPL)
Hanson, R. J., (SNLA)
Kincaid, D. R., (U. of Texas)
Krogh, F. T., (JPL)
Description
B L A S Subprogram
Description of Parameters
--Input--
N number of elements in input vector(s)
DA double precision scale factor
DX double precision vector with N elements
INCX storage spacing between elements of DX
--Output--
DX double precision result (unchanged if N.LE.0)
Replace double precision DX by double precision DA*DX.
For I = 0 to N-1, replace DX(IX+I*INCX) with DA * DX(IX+I*INCX),
where IX = 1 if INCX .GE. 0, else IX = 1+(1-N)*INCX.
|
|