DDOTRun Method

***PURPOSE Compute the inner product of two vectors. ***CATEGORY D1A4 ***TYPE DOUBLE PRECISION (SDOT-S, DDOT-D, CDOTU-C) ***KEYWORDS BLAS, INNER PRODUCT, LINEAR ALGEBRA, VECTOR ***AUTHOR 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-- DDOT double precision dot product (zero if N .LE. 0) Returns the dot product of double precision DX and DY. DDOT = sum for I = 0 to N-1 of DX(LX+I*INCX) * 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. ***REFERENCES C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. Krogh, Basic linear algebra subprograms for Fortran usage, Algorithm No. 539, Transactions on Mathematical Software 5, 3 (September 1979), pp. 308-323. ***ROUTINES CALLED (NONE) ***REVISION HISTORY (YYMMDD) 791001 DATE WRITTEN 890831 Modified array declarations. (WRB) 890831 REVISION DATE from Version 3.2 891214 Prologue converted to Version 4.0 format. (BAB) 920310 Corrected definition of LX in DESCRIPTION. (WRB) 920501 Reformatted the REFERENCES section. (WRB) ***END PROLOGUE DDOT ***FIRST EXECUTABLE STATEMENT DDOT

public double Run(
	int N,
	double[] DX,
	int offset_dx,
	int INCX,
	double[] DY,
	int offset_dy,
	int INCY
)

Public Function Run ( 
	N As Integer,
	DX As Double(),
	offset_dx As Integer,
	INCX As Integer,
	DY As Double(),
	offset_dy As Integer,
	INCY As Integer
) As Double