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