escript  Revision_
LapackInverseHelper.h
Go to the documentation of this file.
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