1*DECK DPRVEC 2 DOUBLE PRECISION FUNCTION DPRVEC (M, U, V) 3C***BEGIN PROLOGUE DPRVEC 4C***SUBSIDIARY 5C***PURPOSE Subsidiary to DBVSUP 6C***LIBRARY SLATEC 7C***TYPE DOUBLE PRECISION (PRVEC-S, DPRVEC-D) 8C***AUTHOR Watts, H. A., (SNLA) 9C***DESCRIPTION 10C 11C This subroutine computes the inner product of a vector U 12C with the imaginary product or mate vector corresponding to V. 13C 14C***SEE ALSO DBVSUP 15C***ROUTINES CALLED DDOT 16C***REVISION HISTORY (YYMMDD) 17C 750601 DATE WRITTEN 18C 890831 Modified array declarations. (WRB) 19C 890831 REVISION DATE from Version 3.2 20C 891214 Prologue converted to Version 4.0 format. (BAB) 21C 900328 Added TYPE section. (WRB) 22C 910722 Updated AUTHOR section. (ALS) 23C***END PROLOGUE DPRVEC 24C 25 DOUBLE PRECISION DDOT 26 INTEGER M, N, NP 27 DOUBLE PRECISION U(*), V(*), VP 28C***FIRST EXECUTABLE STATEMENT DPRVEC 29 N = M/2 30 NP = N + 1 31 VP = DDOT(N,U(1),1,V(NP),1) 32 DPRVEC = DDOT(N,U(NP),1,V(1),1) - VP 33 RETURN 34 END 35