|
AbstractLinAlgPack: C++ Interfaces For Vectors, Matrices And Related Linear Algebra Objects Version of the Day
|
|
AbstractLinAlgPack: C++ Interfaces For Vectors, Matrices And Related Linear Algebra Objects Version of the Day
|
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 #include "Moocho_ConfigDefs.hpp" 00030 00031 00032 #ifdef HAVE_MOOCHO_MA28 00033 00034 00035 #include "AbstractLinAlgPack_MA28CommonBlockEncap.hpp" 00036 00037 using std::cout; 00038 using std::endl; 00039 00040 // ///////////////////////////////////////////////////////////////////////////// 00041 // MA28CommonBlockReferences 00042 00043 MA28_Cpp::MA28CommonBlockReferences& MA28_Cpp::MA28CommonBlockReferences::operator=( 00044 const MA28CommonBlockStorage& ma28cb) 00045 { 00046 ma28ed_ = ma28cb.ma28ed_; 00047 ma28fd_ = ma28cb.ma28fd_; 00048 ma28gd_ = ma28cb.ma28gd_; 00049 ma28hd_ = ma28cb.ma28hd_; 00050 ma30ed_ = ma28cb.ma30ed_; 00051 ma30fd_ = ma28cb.ma30fd_; 00052 ma30gd_ = ma28cb.ma30gd_; 00053 ma30hd_ = ma28cb.ma30hd_; 00054 ma30id_ = ma28cb.ma30id_; 00055 mc23bd_ = ma28cb.mc23bd_; 00056 return *this; 00057 } 00058 00059 00060 void MA28_Cpp::MA28CommonBlockReferences::dump_values(std::ostream& o) { 00061 o << "ma28ed.lp = " << ma28ed_.lp << endl 00062 << "ma28ed.mp = " << ma28ed_.mp << endl 00063 << "ma28ed.lblock = " << ma28ed_.lblock << endl 00064 << "ma28ed.grow = " << ma28ed_.grow << endl 00065 << "ma28fd.eps = " << ma28fd_.eps << endl 00066 << "ma28fd.rmin = " << ma28fd_.rmin << endl 00067 << "ma28fd.resid = " << ma28fd_.resid << endl 00068 << "ma28fd.irncp = " << ma28fd_.irncp << endl 00069 << "ma28fd.icncp = " << ma28fd_.icncp << endl 00070 << "ma28fd.minirn = " << ma28fd_.minirn << endl 00071 << "ma28fd.minicn = " << ma28fd_.minicn << endl 00072 << "ma28fd.abort1 = " << ma28fd_.abort1 << endl 00073 << "ma28fd.abort2 = " << ma28fd_.abort2 << endl 00074 << "ma28gd.idisp[0] = " << ma28gd_.idisp[0] << endl 00075 << "ma28gd.idisp[1] = " << ma28gd_.idisp[1] << endl 00076 << "ma28hd.tol = " << ma28hd_.tol << endl 00077 << "ma28hd.themax = " << ma28hd_.themax << endl 00078 << "ma28hd.big = " << ma28hd_.big << endl 00079 << "ma28hd.dxmax = " << ma28hd_.dxmax << endl 00080 << "ma28hd.errmax = " << ma28hd_.errmax << endl 00081 << "ma28hd.dres = " << ma28hd_.dres << endl 00082 << "ma28hd.cgce = " << ma28hd_.cgce << endl 00083 << "ma28hd.ndrop = " << ma28hd_.ndrop << endl 00084 << "ma28hd.maxit = " << ma28hd_.maxit << endl 00085 << "ma28hd.noiter = " << ma28hd_.noiter << endl 00086 << "ma28hd.nsrch = " << ma28hd_.nsrch << endl 00087 << "ma28hd.istart = " << ma28hd_.istart << endl 00088 << "ma28hd.lbig = " << ma28hd_.lbig << endl 00089 << "ma30ed.lp = " << ma30ed_.lp << endl 00090 << "ma30ed.abort1 = " << ma30ed_.abort1 << endl 00091 << "ma30ed.abort2 = " << ma30ed_.abort2 << endl 00092 << "ma30ed.abort3 = " << ma30ed_.abort3 << endl 00093 << "ma30fd.irncp = " << ma30fd_.irncp << endl 00094 << "ma30fd.icncp = " << ma30fd_.icncp << endl 00095 << "ma30fd.irank = " << ma30fd_.irank << endl 00096 << "ma30fd.minirn = " << ma30fd_.minirn << endl 00097 << "ma30fd.minicn = " << ma30fd_.minicn << endl 00098 << "ma30gd.eps = " << ma30gd_.eps << endl 00099 << "ma30gd.rmin = " << ma30gd_.rmin << endl 00100 << "ma30hd.resid = " << ma30hd_.resid << endl 00101 << "ma30id.tol = " << ma30id_.tol << endl 00102 << "ma30id.big = " << ma30id_.big << endl 00103 << "ma30id.ndrop = " << ma30id_.ndrop << endl 00104 << "ma30id.nsrch = " << ma30id_.nsrch << endl 00105 << "ma30id.lbig = " << ma30id_.lbig << endl; 00106 } 00107 00108 // ///////////////////////////////////////////////////////////////////////////// 00109 // MA28CommonBlockStorage 00110 00111 MA28_Cpp::MA28CommonBlockStorage& MA28_Cpp::MA28CommonBlockStorage::operator=( 00112 const MA28CommonBlockReferences& ma28cb) 00113 { 00114 ma28ed_ = ma28cb.ma28ed_; 00115 ma28fd_ = ma28cb.ma28fd_; 00116 ma28gd_ = ma28cb.ma28gd_; 00117 ma28hd_ = ma28cb.ma28hd_; 00118 ma30ed_ = ma28cb.ma30ed_; 00119 ma30fd_ = ma28cb.ma30fd_; 00120 ma30gd_ = ma28cb.ma30gd_; 00121 ma30hd_ = ma28cb.ma30hd_; 00122 ma30id_ = ma28cb.ma30id_; 00123 mc23bd_ = ma28cb.mc23bd_; 00124 return *this; 00125 } 00126 00127 void MA28_Cpp::MA28CommonBlockStorage::dump_values(std::ostream& o) { 00128 o << "ma28ed.lp = " << ma28ed_.lp << endl 00129 << "ma28ed.mp = " << ma28ed_.mp << endl 00130 << "ma28ed.lblock = " << ma28ed_.lblock << endl 00131 << "ma28ed.grow = " << ma28ed_.grow << endl 00132 << "ma28fd.eps = " << ma28fd_.eps << endl 00133 << "ma28fd.rmin = " << ma28fd_.rmin << endl 00134 << "ma28fd.resid = " << ma28fd_.resid << endl 00135 << "ma28fd.irncp = " << ma28fd_.irncp << endl 00136 << "ma28fd.icncp = " << ma28fd_.icncp << endl 00137 << "ma28fd.minirn = " << ma28fd_.minirn << endl 00138 << "ma28fd.minicn = " << ma28fd_.minicn << endl 00139 << "ma28fd.abort1 = " << ma28fd_.abort1 << endl 00140 << "ma28fd.abort2 = " << ma28fd_.abort2 << endl 00141 << "ma28gd.idisp[0] = " << ma28gd_.idisp[0] << endl 00142 << "ma28gd.idisp[1] = " << ma28gd_.idisp[1] << endl 00143 << "ma28hd.tol = " << ma28hd_.tol << endl 00144 << "ma28hd.themax = " << ma28hd_.themax << endl 00145 << "ma28hd.big = " << ma28hd_.big << endl 00146 << "ma28hd.dxmax = " << ma28hd_.dxmax << endl 00147 << "ma28hd.errmax = " << ma28hd_.errmax << endl 00148 << "ma28hd.dres = " << ma28hd_.dres << endl 00149 << "ma28hd.cgce = " << ma28hd_.cgce << endl 00150 << "ma28hd.ndrop = " << ma28hd_.ndrop << endl 00151 << "ma28hd.maxit = " << ma28hd_.maxit << endl 00152 << "ma28hd.noiter = " << ma28hd_.noiter << endl 00153 << "ma28hd.nsrch = " << ma28hd_.nsrch << endl 00154 << "ma28hd.istart = " << ma28hd_.istart << endl 00155 << "ma28hd.lbig = " << ma28hd_.lbig << endl 00156 << "ma30ed.lp = " << ma30ed_.lp << endl 00157 << "ma30ed.abort1 = " << ma30ed_.abort1 << endl 00158 << "ma30ed.abort2 = " << ma30ed_.abort2 << endl 00159 << "ma30ed.abort3 = " << ma30ed_.abort3 << endl 00160 << "ma30fd.irncp = " << ma30fd_.irncp << endl 00161 << "ma30fd.icncp = " << ma30fd_.icncp << endl 00162 << "ma30fd.irank = " << ma30fd_.irank << endl 00163 << "ma30fd.minirn = " << ma30fd_.minirn << endl 00164 << "ma30fd.minicn = " << ma30fd_.minicn << endl 00165 << "ma30gd.eps = " << ma30gd_.eps << endl 00166 << "ma30gd.rmin = " << ma30gd_.rmin << endl 00167 << "ma30hd.resid = " << ma30hd_.resid << endl 00168 << "ma30id.tol = " << ma30id_.tol << endl 00169 << "ma30id.big = " << ma30id_.big << endl 00170 << "ma30id.ndrop = " << ma30id_.ndrop << endl 00171 << "ma30id.nsrch = " << ma30id_.nsrch << endl 00172 << "ma30id.lbig = " << ma30id_.lbig << endl; 00173 } 00174 00175 00176 #endif // HAVE_MOOCHO_MA28
1.7.4
