ESYS13
Revision_
|
00001 00002 /******************************************************* 00003 * 00004 * Copyright (c) 2009-2012 by University of Queensland 00005 * Earth Systems Science Computational Center (ESSCC) 00006 * http://www.uq.edu.au/esscc 00007 * 00008 * Primary Business: Queensland, Australia 00009 * Licensed under the Open Software License version 3.0 00010 * http://www.opensource.org/licenses/osl-3.0.php 00011 * 00012 *******************************************************/ 00013 00014 #ifndef LAPACKINVERSEHELPER_H 00015 #define LAPACKINVERSEHELPER_H 00016 00017 namespace escript 00018 { 00019 00023 class LapackInverseHelper 00024 { 00025 public: 00026 LapackInverseHelper(int N); 00027 ~LapackInverseHelper(); 00028 int invert(double* matrix); 00029 private: 00030 int* piv; 00031 double* work; 00032 int N; 00033 int lwork; 00034 }; 00035 00036 } // end of escript namespace 00037 00038 #endif