From 561a6c0e21bb77c21114ccbbd86d3af5ddb5a3f1 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 8 May 2014 12:18:56 +0200 Subject: Conversion, LAPACK -> base --- .../src/Numeric/LinearAlgebra/LAPACK/lapack-aux.h | 60 ---------------------- 1 file changed, 60 deletions(-) delete mode 100644 packages/hmatrix/src/Numeric/LinearAlgebra/LAPACK/lapack-aux.h (limited to 'packages/hmatrix/src/Numeric/LinearAlgebra/LAPACK/lapack-aux.h') diff --git a/packages/hmatrix/src/Numeric/LinearAlgebra/LAPACK/lapack-aux.h b/packages/hmatrix/src/Numeric/LinearAlgebra/LAPACK/lapack-aux.h deleted file mode 100644 index a3f1899..0000000 --- a/packages/hmatrix/src/Numeric/LinearAlgebra/LAPACK/lapack-aux.h +++ /dev/null @@ -1,60 +0,0 @@ -/* - * We have copied the definitions in f2c.h required - * to compile clapack.h, modified to support both - * 32 and 64 bit - - http://opengrok.creo.hu/dragonfly/xref/src/contrib/gcc-3.4/libf2c/readme.netlib - http://www.ibm.com/developerworks/library/l-port64.html - */ - -#ifdef _LP64 -typedef int integer; -typedef unsigned int uinteger; -typedef int logical; -typedef long longint; /* system-dependent */ -typedef unsigned long ulongint; /* system-dependent */ -#else -typedef long int integer; -typedef unsigned long int uinteger; -typedef long int logical; -typedef long long longint; /* system-dependent */ -typedef unsigned long long ulongint; /* system-dependent */ -#endif - -typedef char *address; -typedef short int shortint; -typedef float real; -typedef double doublereal; -typedef struct { real r, i; } complex; -typedef struct { doublereal r, i; } doublecomplex; -typedef short int shortlogical; -typedef char logical1; -typedef char integer1; - -typedef logical (*L_fp)(); -typedef short ftnlen; - -/********************************************************/ - -#define FVEC(A) int A##n, float*A##p -#define DVEC(A) int A##n, double*A##p -#define QVEC(A) int A##n, complex*A##p -#define CVEC(A) int A##n, doublecomplex*A##p -#define PVEC(A) int A##n, void* A##p, int A##s -#define FMAT(A) int A##r, int A##c, float* A##p -#define DMAT(A) int A##r, int A##c, double* A##p -#define QMAT(A) int A##r, int A##c, complex* A##p -#define CMAT(A) int A##r, int A##c, doublecomplex* A##p -#define PMAT(A) int A##r, int A##c, void* A##p, int A##s - -#define KFVEC(A) int A##n, const float*A##p -#define KDVEC(A) int A##n, const double*A##p -#define KQVEC(A) int A##n, const complex*A##p -#define KCVEC(A) int A##n, const doublecomplex*A##p -#define KPVEC(A) int A##n, const void* A##p, int A##s -#define KFMAT(A) int A##r, int A##c, const float* A##p -#define KDMAT(A) int A##r, int A##c, const double* A##p -#define KQMAT(A) int A##r, int A##c, const complex* A##p -#define KCMAT(A) int A##r, int A##c, const doublecomplex* A##p -#define KPMAT(A) int A##r, int A##c, const void* A##p, int A##s - -- cgit v1.2.3