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