Ignore:
Timestamp:
Mar 5, 2011 5:58:07 PM (9 years ago)
Author:
stefan
Message:

fixes for WSMP

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Clp/src/ClpCholeskyWssmpKKT.cpp

    r1693 r1695  
    6464// so I have linked in ekkwssmp which is an older version
    6565#ifndef USE_EKKWSSMP
    66 void F77_FUNC(wsetmaxthrds,WSETMAXTHRDS)(const ipfint* NTHREADS);
    67 
    68 void F77_FUNC(wssmp,WSSMP)(const ipfint* N, const ipfint* IA,
    69                            const ipfint* JA, const double* AVALS,
    70                            double* DIAG,  ipfint* PERM,
    71                            ipfint* INVP,  double* B,   
    72                            const ipfint* LDB, const ipfint* NRHS,
    73                            double* AUX, const ipfint* NAUX,
    74                            ipfint* MRP, ipfint* IPARM,
     66extern "C" {
     67void F77_FUNC(wsetmaxthrds,WSETMAXTHRDS)(const int* NTHREADS);
     68
     69void F77_FUNC(wssmp,WSSMP)(const int* N, const int* IA,
     70                           const int* JA, const double* AVALS,
     71                           double* DIAG,  int* PERM,
     72                           int* INVP,  double* B,   
     73                           const int* LDB, const int* NRHS,
     74                           double* AUX, const int* NAUX,
     75                           int* MRP, int* IPARM,
    7576                           double* DPARM);
    7677void F77_FUNC_(wsmp_clear,WSMP_CLEAR)(void);
    77 
     78}
    7879#else
    7980/* minimum needed for user */
Note: See TracChangeset for help on using the changeset viewer.