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