1 #include "FLA_f2c.h"
2
3
4 extern
5 complex cdotu_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy);
cdotu_f2c_(complex * r,integer * n,complex * cx,integer * incx,complex * cy,integer * incy)6 VOID cdotu_f2c_(complex *r, integer *n, complex *cx, integer *incx, complex *cy, integer *incy)
7 {
8 *r = cdotu_(n, cx, incx, cy, incy);
9 }
10
11 extern
12 doublecomplex zdotu_(integer *n, doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);
zdotu_f2c_(doublecomplex * r,integer * n,doublecomplex * cx,integer * incx,doublecomplex * cy,integer * incy)13 VOID zdotu_f2c_(doublecomplex *r, integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy)
14 {
15 *r = zdotu_(n, cx, incx, cy, incy);
16 }
17
18