Home Explore Help
Register Sign In
lij
/
PS_Method_CCS_test
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Tree: 6f9ff47688
Branches Tags
PS_Method_CC...
/
libarmadillo
/
include
/
armadillo_bits
/
def_superlu.hpp

def_superlu.hpp 4.0 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051 
  1. // Copyright 2008-2016 Conrad Sanderson (http://conradsanderson.id.au)
    2. 

  2. // Copyright 2008-2016 National ICT Australia (NICTA)
    3. 

  3. // 
    4. 

  4. // Licensed under the Apache License, Version 2.0 (the "License");
    5. 

  5. // you may not use this file except in compliance with the License.
    6. 

  6. // You may obtain a copy of the License at
    7. 

  7. // http://www.apache.org/licenses/LICENSE-2.0
    8. 

  8. // 
    9. 

  9. // Unless required by applicable law or agreed to in writing, software
    10. 

  10. // distributed under the License is distributed on an "AS IS" BASIS,
    11. 

  11. // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
    12. 

  12. // See the License for the specific language governing permissions and
    13. 

  13. // limitations under the License.
    14. 

  14. // ------------------------------------------------------------------------
    15. 

  15. 

  16. #if defined(ARMA_USE_SUPERLU)
    17. 

  17. 

  18. extern "C"
    19. 

  19.   {
    20. 

  20.   extern void arma_wrapper(sgssv)(superlu::superlu_options_t*, superlu::SuperMatrix*, int*, int*, superlu::SuperMatrix*, superlu::SuperMatrix*, superlu::SuperMatrix*, superlu::SuperLUStat_t*, int*);
    21. 

  21.   extern void arma_wrapper(dgssv)(superlu::superlu_options_t*, superlu::SuperMatrix*, int*, int*, superlu::SuperMatrix*, superlu::SuperMatrix*, superlu::SuperMatrix*, superlu::SuperLUStat_t*, int*);
    22. 

  22.   extern void arma_wrapper(cgssv)(superlu::superlu_options_t*, superlu::SuperMatrix*, int*, int*, superlu::SuperMatrix*, superlu::SuperMatrix*, superlu::SuperMatrix*, superlu::SuperLUStat_t*, int*);
    23. 

  23.   extern void arma_wrapper(zgssv)(superlu::superlu_options_t*, superlu::SuperMatrix*, int*, int*, superlu::SuperMatrix*, superlu::SuperMatrix*, superlu::SuperMatrix*, superlu::SuperLUStat_t*, int*);
    24. 

  24.   
    25. 

  25.   extern void arma_wrapper(sgssvx)(superlu::superlu_options_t*, superlu::SuperMatrix*, int*, int*, int*, char*,  float*,  float*, superlu::SuperMatrix*, superlu::SuperMatrix*, void*, int, superlu::SuperMatrix*, superlu::SuperMatrix*,  float*,  float*,  float*,  float*, superlu::GlobalLU_t*, superlu::mem_usage_t*, superlu::SuperLUStat_t*, int*);
    26. 

  26.   extern void arma_wrapper(dgssvx)(superlu::superlu_options_t*, superlu::SuperMatrix*, int*, int*, int*, char*, double*, double*, superlu::SuperMatrix*, superlu::SuperMatrix*, void*, int, superlu::SuperMatrix*, superlu::SuperMatrix*, double*, double*, double*, double*, superlu::GlobalLU_t*, superlu::mem_usage_t*, superlu::SuperLUStat_t*, int*);
    27. 

  27.   extern void arma_wrapper(cgssvx)(superlu::superlu_options_t*, superlu::SuperMatrix*, int*, int*, int*, char*,  float*,  float*, superlu::SuperMatrix*, superlu::SuperMatrix*, void*, int, superlu::SuperMatrix*, superlu::SuperMatrix*,  float*,  float*,  float*,  float*, superlu::GlobalLU_t*, superlu::mem_usage_t*, superlu::SuperLUStat_t*, int*);
    28. 

  28.   extern void arma_wrapper(zgssvx)(superlu::superlu_options_t*, superlu::SuperMatrix*, int*, int*, int*, char*, double*, double*, superlu::SuperMatrix*, superlu::SuperMatrix*, void*, int, superlu::SuperMatrix*, superlu::SuperMatrix*, double*, double*, double*, double*, superlu::GlobalLU_t*, superlu::mem_usage_t*, superlu::SuperLUStat_t*, int*);
    29. 

  29.   
    30. 

  30.   extern void arma_wrapper(StatInit)(superlu::SuperLUStat_t*);
    31. 

  31.   extern void arma_wrapper(StatFree)(superlu::SuperLUStat_t*);
    32. 

  32.   extern void arma_wrapper(set_default_options)(superlu::superlu_options_t*);
    33. 

  33.   
    34. 

  34.   extern void arma_wrapper(Destroy_SuperNode_Matrix)(superlu::SuperMatrix*);
    35. 

  35.   extern void arma_wrapper(Destroy_CompCol_Matrix)(superlu::SuperMatrix*);
    36. 

  36.   extern void arma_wrapper(Destroy_SuperMatrix_Store)(superlu::SuperMatrix*);
    37. 

  37.   
    38. 

  38.   // We also need superlu_malloc() and superlu_free().
    39. 

  39.   // When using the original SuperLU code directly, you (the user) may
    40. 

  40.   // define USER_MALLOC and USER_FREE, but the joke is on you because
    41. 

  41.   // if you are linking against SuperLU and not compiling from scratch,
    42. 

  42.   // it won't actually make a difference anyway!  If you've compiled
    43. 

  43.   // SuperLU against a custom USER_MALLOC and USER_FREE, you're probably up
    44. 

  44.   // shit creek about a thousand different ways before you even get to this
    45. 

  45.   // code, so, don't do that!
    46. 

  46.   
    47. 

  47.   extern void* arma_wrapper(superlu_malloc)(size_t);
    48. 

  48.   extern void  arma_wrapper(superlu_free)(void*);
    49. 

  49.   }
    50. 

  50. 

  51. #endif
    52.