AbstractLinAlgPack_LinAlgOpPackHack.hpp

Go to the documentation of this file.
00001 // @HEADER
00002 // ***********************************************************************
00003 // 
00004 // Moocho: Multi-functional Object-Oriented arCHitecture for Optimization
00005 //                  Copyright (2003) Sandia Corporation
00006 // 
00007 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
00008 // license for use of this work by or on behalf of the U.S. Government.
00009 // 
00010 // This library is free software; you can redistribute it and/or modify
00011 // it under the terms of the GNU Lesser General Public License as
00012 // published by the Free Software Foundation; either version 2.1 of the
00013 // License, or (at your option) any later version.
00014 //  
00015 // This library is distributed in the hope that it will be useful, but
00016 // WITHOUT ANY WARRANTY; without even the implied warranty of
00017 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00018 // Lesser General Public License for more details.
00019 //  
00020 // You should have received a copy of the GNU Lesser General Public
00021 // License along with this library; if not, write to the Free Software
00022 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
00023 // USA
00024 // Questions? Contact Roscoe A. Bartlett (rabartl@sandia.gov) 
00025 // 
00026 // ***********************************************************************
00027 // @HEADER
00028 //
00029 
00030 #ifndef LIN_ALG_OP_PACK_HACK_H
00031 #define LIN_ALG_OP_PACK_HACK_H
00032 
00033 #include "AbstractLinAlgPack_LinAlgOpPack.hpp"
00034 
00035 #include "DenseLinAlgPack/src/DenseLinAlgPack_LinAlgOpPack.hpp"
00036 #include "AbstractLinAlgPack_MatrixSymOpNonsingSerial.hpp"
00037 
00038 namespace LinAlgOpPack {
00039 
00040 using DenseLinAlgPack::DVector;
00041 using DenseLinAlgPack::DVectorSlice;
00042 using DenseLinAlgPack::DMatrixSlice;
00043 using AbstractLinAlgPack::SpVectorSlice;
00044 using AbstractLinAlgPack::GenPermMatrixSlice;
00045 using AbstractLinAlgPack::MatrixOp;
00046 using AbstractLinAlgPack::MatrixNonsing;
00047 using AbstractLinAlgPack::MatrixOpNonsing;
00048 
00051 void Mp_StM(
00052   DMatrixSlice* vs_lhs, value_type alpha
00053   ,const MatrixOp& mwo_rhs1, BLAS_Cpp::Transp trans_rhs1
00054   );
00055 
00058 void Vp_StMtV(
00059   DVectorSlice* vs_lhs, value_type alpha, const MatrixOp& mwo_rhs1
00060   ,BLAS_Cpp::Transp trans_rhs1, const DVectorSlice& vs_rhs2
00061   ,value_type beta = 1.0 );
00062 
00065 void Vp_MtV(
00066   DVectorSlice* vs_lhs, const MatrixOp& mwo_rhs1
00067   ,BLAS_Cpp::Transp trans_rhs1, const DVectorSlice& vs_rhs2
00068   ,value_type beta = 1.0 );
00069 
00072 void Vp_StMtV(
00073   DVectorSlice* vs_lhs, value_type alpha, const MatrixOp& mwo_rhs1
00074   ,BLAS_Cpp::Transp trans_rhs1, const SpVectorSlice& sv_rhs2
00075   ,value_type beta = 1.0 );
00076 
00079 void V_MtV(
00080   DVectorSlice* vs_lhs, const MatrixOp& mwo_rhs1
00081   ,BLAS_Cpp::Transp trans_rhs1, const SpVectorSlice& sv_rhs2 );
00082 
00085 void V_InvMtV(
00086   DVectorSlice* vs_lhs, const MatrixOpNonsing& mwo_rhs1
00087   ,BLAS_Cpp::Transp trans_rhs1, const DVectorSlice& vs_rhs2 );
00088 
00091 void V_InvMtV(
00092   DVector* v_lhs, const MatrixOpNonsing& mwo_rhs1
00093   ,BLAS_Cpp::Transp trans_rhs1, const DVectorSlice& vs_rhs2 );
00094 
00097 void V_InvMtV(
00098   DVectorSlice* vs_lhs, const MatrixOpNonsing& mwo_rhs1
00099   ,BLAS_Cpp::Transp trans_rhs1, const SpVectorSlice& sv_rhs2 );
00100 
00103 void V_InvMtV(
00104   DVector* v_lhs, const MatrixOpNonsing& mwo_rhs1
00105   ,BLAS_Cpp::Transp trans_rhs1, const SpVectorSlice& sv_rhs2 );
00106 
00109 void Vp_StPtMtV(
00110   DVectorSlice* vs_lhs, value_type alpha
00111   ,const GenPermMatrixSlice& gpms_rhs1, BLAS_Cpp::Transp trans_rhs1
00112   ,const MatrixOp& mwo_rhs2, BLAS_Cpp::Transp trans_rhs2
00113   ,const DVectorSlice& vs_rhs3, value_type beta = 1.0 );
00114 
00117 void Vp_StPtMtV(
00118   DVectorSlice* vs_lhs, value_type alpha
00119   ,const GenPermMatrixSlice& gpms_rhs1, BLAS_Cpp::Transp trans_rhs1
00120   ,const MatrixOp& mwo_rhs2, BLAS_Cpp::Transp trans_rhs2
00121   ,const SpVectorSlice& sv_rhs3, value_type beta = 1.0 );
00122 
00123 } // end namespace LinAlgOpPack
00124 
00125 // //////////////////////
00126 // Inline functions
00127 
00128 inline
00129 void LinAlgOpPack::Vp_MtV(
00130   DVectorSlice* vs_lhs, const MatrixOp& mwo_rhs1
00131   ,BLAS_Cpp::Transp trans_rhs1, const DVectorSlice& vs_rhs2
00132   ,value_type beta )
00133 {
00134   Vp_StMtV(vs_lhs,1.0,mwo_rhs1,trans_rhs1,vs_rhs2,beta);
00135 }
00136 
00137 inline
00138 void LinAlgOpPack::V_MtV(
00139   DVectorSlice* vs_lhs, const MatrixOp& mwo_rhs1
00140   ,BLAS_Cpp::Transp trans_rhs1, const SpVectorSlice& sv_rhs2 )
00141 {
00142   Vp_StMtV(vs_lhs,1.0,mwo_rhs1,trans_rhs1,sv_rhs2);
00143 }
00144 
00145 
00146 
00147 
00148 #endif // LIN_ALG_OP_PACK_HACK_H

Generated on Thu Sep 18 12:35:11 2008 for MOOCHO (Single Doxygen Collection) by doxygen 1.3.9.1