source: pacpussensors/trunk/Vislab/lib3dv-1.2.0/lib3dv/eigen/blas/complexdots.f

Last change on this file was 136, checked in by ldecherf, 8 years ago

Doc

File size: 979 bytes
Line 
1 COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
2 INTEGER INCX,INCY,N
3 COMPLEX CX(*),CY(*)
4 COMPLEX RES
5 EXTERNAL CDOTCW
6
7 CALL CDOTCW(N,CX,INCX,CY,INCY,RES)
8 CDOTC = RES
9 RETURN
10 END
11
12 COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
13 INTEGER INCX,INCY,N
14 COMPLEX CX(*),CY(*)
15 COMPLEX RES
16 EXTERNAL CDOTUW
17
18 CALL CDOTUW(N,CX,INCX,CY,INCY,RES)
19 CDOTU = RES
20 RETURN
21 END
22
23 DOUBLE COMPLEX FUNCTION ZDOTC(N,CX,INCX,CY,INCY)
24 INTEGER INCX,INCY,N
25 DOUBLE COMPLEX CX(*),CY(*)
26 DOUBLE COMPLEX RES
27 EXTERNAL ZDOTCW
28
29 CALL ZDOTCW(N,CX,INCX,CY,INCY,RES)
30 ZDOTC = RES
31 RETURN
32 END
33
34 DOUBLE COMPLEX FUNCTION ZDOTU(N,CX,INCX,CY,INCY)
35 INTEGER INCX,INCY,N
36 DOUBLE COMPLEX CX(*),CY(*)
37 DOUBLE COMPLEX RES
38 EXTERNAL ZDOTUW
39
40 CALL ZDOTUW(N,CX,INCX,CY,INCY,RES)
41 ZDOTU = RES
42 RETURN
43 END
Note: See TracBrowser for help on using the repository browser.