mirror of
https://git.planet-casio.com/Lephenixnoir/OpenLibm.git
synced 2025-01-01 06:23:39 +01:00
30 lines
821 B
Fortran
30 lines
821 B
Fortran
*DECK PRVEC
|
|
FUNCTION PRVEC (M, U, V)
|
|
C***BEGIN PROLOGUE PRVEC
|
|
C***SUBSIDIARY
|
|
C***PURPOSE Subsidiary to BVSUP
|
|
C***LIBRARY SLATEC
|
|
C***TYPE SINGLE PRECISION (PRVEC-S, DPRVEC-D)
|
|
C***AUTHOR Watts, H. A., (SNLA)
|
|
C***DESCRIPTION
|
|
C
|
|
C This subroutine computes the inner product of a vector U
|
|
C with the imaginary product or mate vector corresponding to V
|
|
C
|
|
C***SEE ALSO BVSUP
|
|
C***ROUTINES CALLED SDOT
|
|
C***REVISION HISTORY (YYMMDD)
|
|
C 750601 DATE WRITTEN
|
|
C 891214 Prologue converted to Version 4.0 format. (BAB)
|
|
C 900328 Added TYPE section. (WRB)
|
|
C 910722 Updated AUTHOR section. (ALS)
|
|
C***END PROLOGUE PRVEC
|
|
C
|
|
DIMENSION U(*),V(*)
|
|
C***FIRST EXECUTABLE STATEMENT PRVEC
|
|
N=M/2
|
|
NP=N+1
|
|
VP=SDOT(N,U(1),1,V(NP),1)
|
|
PRVEC=SDOT(N,U(NP),1,V(1),1) - VP
|
|
RETURN
|
|
END
|