From b7e57952112eae61054fc9171ddb311fbaca0841 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 4 Jun 2015 12:39:33 +0200 Subject: move c sources --- packages/base/src/C/lapack-aux.h | 82 ---------------------------------------- 1 file changed, 82 deletions(-) delete mode 100644 packages/base/src/C/lapack-aux.h (limited to 'packages/base/src/C/lapack-aux.h') diff --git a/packages/base/src/C/lapack-aux.h b/packages/base/src/C/lapack-aux.h deleted file mode 100644 index 6ffbef1..0000000 --- a/packages/base/src/C/lapack-aux.h +++ /dev/null @@ -1,82 +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 IVEC(A) int A##n, int*A##p -#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 IMAT(A) int A##r, int A##c, int* A##p -#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 OIMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, int* A##p -#define OFMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, float* A##p -#define ODMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, double* A##p -#define OQMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, complex* A##p -#define OCMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, doublecomplex* A##p - - -#define KIVEC(A) int A##n, const int*A##p -#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 KIMAT(A) int A##r, int A##c, const int* A##p -#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 - -#define KOIMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const int* A##p -#define KOFMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const float* A##p -#define KODMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const double* A##p -#define KOQMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const complex* A##p -#define KOCMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const doublecomplex* A##p - -#define AT(m,i,j) (m##p[(i)*m##Xr + (j)*m##Xc]) -#define TRAV(m,i,j) int i,j; for (i=0;i