Commit 507a1eaa authored by Ture Pålsson's avatar Ture Pålsson
Browse files

Rename DP and SP to avoid collissions

parent a7499599
......@@ -29,7 +29,7 @@
#include <time.h>
#include <float.h>
#if defined(SP)
#if defined(LPSINGLE)
#define ZERO 0.0
#define ONE 1.0
#define PREC "Single"
......@@ -37,7 +37,7 @@
typedef float REAL;
#elif defined(DP)
#elif defined(LPDOUBLE)
#define ZERO 0.0e0
#define ONE 1.0e0
......@@ -167,9 +167,9 @@ main(void)
*/
static void dgefa(REAL *a, LPLONG lda, LPLONG n, LPLONG *ipvt, LPLONG *info)
{
#if defined(DP)
#if defined(LPDOUBLE)
dgetrf_(&n, &n, a, &lda, ipvt, info);
#elif defined(SP)
#elif defined(LPSINGLE)
sgetrf_(&n, &n, a, &lda, ipvt, info);
#endif
}
......@@ -242,9 +242,9 @@ dgesl(REAL *a, LPLONG lda, LPLONG n, LPLONG *ipvt, REAL *b, int job)
LPLONG nrhs = 1;
LPLONG ldb = n;
static char trans = 'N';
#if defined(DP)
#if defined(LPDOUBLE)
dgetrs_(&trans, &n, &nrhs, a, &lda, ipvt, b, &ldb, &info);
#elif defined(SP)
#elif defined(LPSINGLE)
sgetrs_(&trans, &n, &nrhs, a, &lda, ipvt, b, &ldb, &info);
#endif
}
......
......@@ -42,7 +42,7 @@ typedef unsigned long size_t;
#endif
#ifdef SP
#ifdef LPSINGLE
#define ZERO 0.0
#define ONE 1.0
#define PREC "Single"
......@@ -51,7 +51,7 @@ typedef unsigned long size_t;
typedef float REAL;
#endif
#ifdef DP
#ifdef LPDOUBLE
#define ZERO 0.0e0
#define ONE 1.0e0
#define PREC "Double"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment