mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-19 12:22:10 +00:00
Added ifdefs for 64-bit addresses.
This commit is contained in:
@@ -54,7 +54,11 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
#define HANDLE_SIZE 8
|
||||
/* kind of integer to hold a pointer. Use int.
|
||||
This might need to be changed on 64-bit systems. */
|
||||
#ifdef LargeFptr
|
||||
typedef long long fptr; /* 32-bit by default */
|
||||
#else
|
||||
typedef int fptr; /* 32-bit by default */
|
||||
#endif
|
||||
|
||||
typedef struct {
|
||||
SuperMatrix *L;
|
||||
|
||||
@@ -57,8 +57,11 @@ Availability:
|
||||
#include "umfpack.h"
|
||||
#endif
|
||||
|
||||
#ifdef LargeFptr
|
||||
typedef long long fptr; /* 64-bit*/
|
||||
#else
|
||||
typedef int fptr; /* 32-bit by default */
|
||||
|
||||
#endif
|
||||
|
||||
void
|
||||
fort_umf_factor_(int *n, int *nnz,
|
||||
@@ -162,7 +165,7 @@ fort_umf_solve_(int *itrans, int *n,
|
||||
}
|
||||
|
||||
*info = umfpack_di_solve(trans,NULL,NULL,NULL,
|
||||
x,b,*numptr,Control,Info);
|
||||
x,b,(void *) *numptr,Control,Info);
|
||||
|
||||
#else
|
||||
fprintf(stderr," UMF Not Configured, fix make.inc and recompile\n");
|
||||
@@ -193,8 +196,8 @@ fort_umf_free_(
|
||||
*/
|
||||
#ifdef Have_UMF_
|
||||
void *Symbolic, *Numeric ;
|
||||
Symbolic = *symptr;
|
||||
Numeric = *numptr;
|
||||
Symbolic = (void *) *symptr;
|
||||
Numeric = (void *) *numptr;
|
||||
|
||||
umfpack_di_free_numeric(&Numeric);
|
||||
umfpack_di_free_symbolic(&Symbolic);
|
||||
|
||||
Reference in New Issue
Block a user