1/* This file has been modified to use the standard gfortran calling 2 convention, rather than the f2c calling convention. 3 4 It does not require -ff2c when compiled with gfortran. 5*/ 6 7/* complexdots.f -- translated by f2c (version 20100827). 8 You must link the resulting object file with libf2c: 9 on Microsoft Windows system, link with libf2c.lib; 10 on Linux or Unix systems, link with .../path/to/libf2c.a -lm 11 or, if you install libf2c.a in a standard place, with -lf2c -lm 12 -- in that order, at the end of the command line, as in 13 cc *.o -lf2c -lm 14 Source for libf2c is in /netlib/f2c/libf2c.zip, e.g., 15 16 http://www.netlib.org/f2c/libf2c.zip 17*/ 18 19#include "datatypes.h" 20 21complex cdotc_(integer *n, complex *cx, integer 22 *incx, complex *cy, integer *incy) 23{ 24 complex res; 25 extern /* Subroutine */ int cdotcw_(integer *, complex *, integer *, 26 complex *, integer *, complex *); 27 28 /* Parameter adjustments */ 29 --cy; 30 --cx; 31 32 /* Function Body */ 33 cdotcw_(n, &cx[1], incx, &cy[1], incy, &res); 34 return res; 35} /* cdotc_ */ 36 37complex cdotu_(integer *n, complex *cx, integer 38 *incx, complex *cy, integer *incy) 39{ 40 complex res; 41 extern /* Subroutine */ int cdotuw_(integer *, complex *, integer *, 42 complex *, integer *, complex *); 43 44 /* Parameter adjustments */ 45 --cy; 46 --cx; 47 48 /* Function Body */ 49 cdotuw_(n, &cx[1], incx, &cy[1], incy, &res); 50 return res; 51} /* cdotu_ */ 52 53doublecomplex zdotc_(integer *n, doublecomplex *cx, integer *incx, 54 doublecomplex *cy, integer *incy) 55{ 56 doublecomplex res; 57 extern /* Subroutine */ int zdotcw_(integer *, doublecomplex *, integer *, 58 doublecomplex *, integer *, doublecomplex *); 59 60 /* Parameter adjustments */ 61 --cy; 62 --cx; 63 64 /* Function Body */ 65 zdotcw_(n, &cx[1], incx, &cy[1], incy, &res); 66 return res; 67} /* zdotc_ */ 68 69doublecomplex zdotu_(integer *n, doublecomplex *cx, integer *incx, 70 doublecomplex *cy, integer *incy) 71{ 72 doublecomplex res; 73 extern /* Subroutine */ int zdotuw_(integer *, doublecomplex *, integer *, 74 doublecomplex *, integer *, doublecomplex *); 75 76 /* Parameter adjustments */ 77 --cy; 78 --cx; 79 80 /* Function Body */ 81 zdotuw_(n, &cx[1], incx, &cy[1], incy, &res); 82 return res; 83} /* zdotu_ */ 84 85