Browse Source

Support INTERFACE64

pull/3539/head
Martin Kroeker GitHub 4 years ago
parent
commit
99ec157487
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 22 additions and 1 deletions
  1. +22
    -1
      lapack-netlib/SRC/DEPRECATED/zlatzm.c

+ 22
- 1
lapack-netlib/SRC/DEPRECATED/zlatzm.c View File

@@ -19,7 +19,28 @@
#undef I
#endif

typedef int integer;
#if defined(OS_WINDOWS) && defined(__64BIT__)
typedef long long BLASLONG;
typedef unsigned long long BLASULONG;
#else
typedef long BLASLONG;
typedef unsigned long BLASULONG;
#endif

#ifdef LAPACK_ILP64
typedef BLASLONG blasint;
#if defined(OS_WINDOWS) && defined(__64BIT__)
#define blasabs(x) llabs(x)
#else
#define blasabs(x) labs(x)
#endif
#else
typedef int blasint;
#define blasabs(x) abs(x)
#endif

typedef blasint integer;

typedef unsigned int uinteger;
typedef char *address;
typedef short int shortint;


Loading…
Cancel
Save