CVM Class Library  8.1
This C++ class library encapsulates concepts of vector and different matrices including square, band, symmetric and hermitian ones in Euclidean space of real and complex numbers.
 All Classes Files Functions Variables Typedefs Friends Macros Pages
cmplx.f
Go to the documentation of this file.
1 C CVM Class Library
2 C http://cvmlib.com
3 C
4 C Copyright Sergei Nikolaev 1992-2013
5 C Distributed under the Boost Software License, Version 1.0.
6 C (See accompanying file LICENSE_1_0.txt or copy at
7 C http://www.boost.org/LICENSE_1_0.txt)
8 C
9 C
10 C g++/icc is messing with fortran functions returning complex numbers,
11 C thus wrapping them around
12 
13  SUBROUTINE vcdotu (DOT, N, X, INCX, Y, INCY)
14 CDEC$ IF DEFINED (FTN_EXPORTS)
15 CDEC$ ATTRIBUTES DLLEXPORT::VCDOTU
16 CDEC$ ENDIF
17  INTEGER n, incx, incy
18  COMPLEX x(*), y(*), dot
19  COMPLEX cdotu
20 
21  dot = cdotu(n, x, incx, y, incy)
22 
23  RETURN
24  END !SUBROUTINE VCDOTU
25 
26  SUBROUTINE vzdotu (DOT, N, X, INCX, Y, INCY)
27 CDEC$ IF DEFINED (FTN_EXPORTS)
28 CDEC$ ATTRIBUTES DLLEXPORT::VZDOTU
29 CDEC$ ENDIF
30  INTEGER n, incx, incy
31  DOUBLE COMPLEX x(*), y(*), dot
32  DOUBLE COMPLEX zdotu
33 
34  dot = zdotu(n, x, incx, y, incy)
35 
36  RETURN
37  END !SUBROUTINE VZDOTU
38 
39  SUBROUTINE vcdotc (DOT, N, X, INCX, Y, INCY)
40 CDEC$ IF DEFINED (FTN_EXPORTS)
41 CDEC$ ATTRIBUTES DLLEXPORT::VCDOTC
42 CDEC$ ENDIF
43  INTEGER n, incx, incy
44  COMPLEX x(*), y(*), dot
45  COMPLEX cdotc
46 
47  dot = cdotc(n, x, incx, y, incy)
48 
49  RETURN
50  END !SUBROUTINE VCDOTC
51 
52  SUBROUTINE vzdotc (DOT, N, X, INCX, Y, INCY)
53 CDEC$ IF DEFINED (FTN_EXPORTS)
54 CDEC$ ATTRIBUTES DLLEXPORT::VZDOTC
55 CDEC$ ENDIF
56  INTEGER n, incx, incy
57  DOUBLE COMPLEX x(*), y(*), dot
58  DOUBLE COMPLEX zdotc
59 
60  dot = zdotc(n, x, incx, y, incy)
61 
62  RETURN
63  END !SUBROUTINE VZDOTC
Generated on Tue Jul 22 2014 18:52:07 for CVM Class Library by   doxygen 1.8.1.2