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 21 complex 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 37 complex 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 53 doublecomplex 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 69 doublecomplex 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
