AbstractLinAlgPack: C++ Interfaces For Vectors, Matrices And Related Linear Algebra Objects  Version of the Day
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Groups Pages
AbstractLinAlgPack_MA28CommonBlockEncap.cpp
1 // @HEADER
2 // ***********************************************************************
3 //
4 // Moocho: Multi-functional Object-Oriented arCHitecture for Optimization
5 // Copyright (2003) Sandia Corporation
6 //
7 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
8 // license for use of this work by or on behalf of the U.S. Government.
9 //
10 // Redistribution and use in source and binary forms, with or without
11 // modification, are permitted provided that the following conditions are
12 // met:
13 //
14 // 1. Redistributions of source code must retain the above copyright
15 // notice, this list of conditions and the following disclaimer.
16 //
17 // 2. Redistributions in binary form must reproduce the above copyright
18 // notice, this list of conditions and the following disclaimer in the
19 // documentation and/or other materials provided with the distribution.
20 //
21 // 3. Neither the name of the Corporation nor the names of the
22 // contributors may be used to endorse or promote products derived from
23 // this software without specific prior written permission.
24 //
25 // THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
26 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28 // PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
29 // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
30 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
31 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
32 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
33 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
34 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
35 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
36 //
37 // Questions? Contact Roscoe A. Bartlett (rabartl@sandia.gov)
38 //
39 // ***********************************************************************
40 // @HEADER
41 
42 #include "Moocho_ConfigDefs.hpp"
43 
44 
45 #ifdef HAVE_MOOCHO_MA28
46 
47 
48 #include "AbstractLinAlgPack_MA28CommonBlockEncap.hpp"
49 
50 using std::cout;
51 using std::endl;
52 
53 // /////////////////////////////////////////////////////////////////////////////
54 // MA28CommonBlockReferences
55 
56 MA28_Cpp::MA28CommonBlockReferences& MA28_Cpp::MA28CommonBlockReferences::operator=(
57  const MA28CommonBlockStorage& ma28cb)
58 {
59  ma28ed_ = ma28cb.ma28ed_;
60  ma28fd_ = ma28cb.ma28fd_;
61  ma28gd_ = ma28cb.ma28gd_;
62  ma28hd_ = ma28cb.ma28hd_;
63  ma30ed_ = ma28cb.ma30ed_;
64  ma30fd_ = ma28cb.ma30fd_;
65  ma30gd_ = ma28cb.ma30gd_;
66  ma30hd_ = ma28cb.ma30hd_;
67  ma30id_ = ma28cb.ma30id_;
68  mc23bd_ = ma28cb.mc23bd_;
69  return *this;
70 }
71 
72 
73 void MA28_Cpp::MA28CommonBlockReferences::dump_values(std::ostream& o) {
74  o << "ma28ed.lp = " << ma28ed_.lp << endl
75  << "ma28ed.mp = " << ma28ed_.mp << endl
76  << "ma28ed.lblock = " << ma28ed_.lblock << endl
77  << "ma28ed.grow = " << ma28ed_.grow << endl
78  << "ma28fd.eps = " << ma28fd_.eps << endl
79  << "ma28fd.rmin = " << ma28fd_.rmin << endl
80  << "ma28fd.resid = " << ma28fd_.resid << endl
81  << "ma28fd.irncp = " << ma28fd_.irncp << endl
82  << "ma28fd.icncp = " << ma28fd_.icncp << endl
83  << "ma28fd.minirn = " << ma28fd_.minirn << endl
84  << "ma28fd.minicn = " << ma28fd_.minicn << endl
85  << "ma28fd.abort1 = " << ma28fd_.abort1 << endl
86  << "ma28fd.abort2 = " << ma28fd_.abort2 << endl
87  << "ma28gd.idisp[0] = " << ma28gd_.idisp[0] << endl
88  << "ma28gd.idisp[1] = " << ma28gd_.idisp[1] << endl
89  << "ma28hd.tol = " << ma28hd_.tol << endl
90  << "ma28hd.themax = " << ma28hd_.themax << endl
91  << "ma28hd.big = " << ma28hd_.big << endl
92  << "ma28hd.dxmax = " << ma28hd_.dxmax << endl
93  << "ma28hd.errmax = " << ma28hd_.errmax << endl
94  << "ma28hd.dres = " << ma28hd_.dres << endl
95  << "ma28hd.cgce = " << ma28hd_.cgce << endl
96  << "ma28hd.ndrop = " << ma28hd_.ndrop << endl
97  << "ma28hd.maxit = " << ma28hd_.maxit << endl
98  << "ma28hd.noiter = " << ma28hd_.noiter << endl
99  << "ma28hd.nsrch = " << ma28hd_.nsrch << endl
100  << "ma28hd.istart = " << ma28hd_.istart << endl
101  << "ma28hd.lbig = " << ma28hd_.lbig << endl
102  << "ma30ed.lp = " << ma30ed_.lp << endl
103  << "ma30ed.abort1 = " << ma30ed_.abort1 << endl
104  << "ma30ed.abort2 = " << ma30ed_.abort2 << endl
105  << "ma30ed.abort3 = " << ma30ed_.abort3 << endl
106  << "ma30fd.irncp = " << ma30fd_.irncp << endl
107  << "ma30fd.icncp = " << ma30fd_.icncp << endl
108  << "ma30fd.irank = " << ma30fd_.irank << endl
109  << "ma30fd.minirn = " << ma30fd_.minirn << endl
110  << "ma30fd.minicn = " << ma30fd_.minicn << endl
111  << "ma30gd.eps = " << ma30gd_.eps << endl
112  << "ma30gd.rmin = " << ma30gd_.rmin << endl
113  << "ma30hd.resid = " << ma30hd_.resid << endl
114  << "ma30id.tol = " << ma30id_.tol << endl
115  << "ma30id.big = " << ma30id_.big << endl
116  << "ma30id.ndrop = " << ma30id_.ndrop << endl
117  << "ma30id.nsrch = " << ma30id_.nsrch << endl
118  << "ma30id.lbig = " << ma30id_.lbig << endl;
119 }
120 
121 // /////////////////////////////////////////////////////////////////////////////
122 // MA28CommonBlockStorage
123 
124 MA28_Cpp::MA28CommonBlockStorage& MA28_Cpp::MA28CommonBlockStorage::operator=(
125  const MA28CommonBlockReferences& ma28cb)
126 {
127  ma28ed_ = ma28cb.ma28ed_;
128  ma28fd_ = ma28cb.ma28fd_;
129  ma28gd_ = ma28cb.ma28gd_;
130  ma28hd_ = ma28cb.ma28hd_;
131  ma30ed_ = ma28cb.ma30ed_;
132  ma30fd_ = ma28cb.ma30fd_;
133  ma30gd_ = ma28cb.ma30gd_;
134  ma30hd_ = ma28cb.ma30hd_;
135  ma30id_ = ma28cb.ma30id_;
136  mc23bd_ = ma28cb.mc23bd_;
137  return *this;
138 }
139 
140 void MA28_Cpp::MA28CommonBlockStorage::dump_values(std::ostream& o) {
141  o << "ma28ed.lp = " << ma28ed_.lp << endl
142  << "ma28ed.mp = " << ma28ed_.mp << endl
143  << "ma28ed.lblock = " << ma28ed_.lblock << endl
144  << "ma28ed.grow = " << ma28ed_.grow << endl
145  << "ma28fd.eps = " << ma28fd_.eps << endl
146  << "ma28fd.rmin = " << ma28fd_.rmin << endl
147  << "ma28fd.resid = " << ma28fd_.resid << endl
148  << "ma28fd.irncp = " << ma28fd_.irncp << endl
149  << "ma28fd.icncp = " << ma28fd_.icncp << endl
150  << "ma28fd.minirn = " << ma28fd_.minirn << endl
151  << "ma28fd.minicn = " << ma28fd_.minicn << endl
152  << "ma28fd.abort1 = " << ma28fd_.abort1 << endl
153  << "ma28fd.abort2 = " << ma28fd_.abort2 << endl
154  << "ma28gd.idisp[0] = " << ma28gd_.idisp[0] << endl
155  << "ma28gd.idisp[1] = " << ma28gd_.idisp[1] << endl
156  << "ma28hd.tol = " << ma28hd_.tol << endl
157  << "ma28hd.themax = " << ma28hd_.themax << endl
158  << "ma28hd.big = " << ma28hd_.big << endl
159  << "ma28hd.dxmax = " << ma28hd_.dxmax << endl
160  << "ma28hd.errmax = " << ma28hd_.errmax << endl
161  << "ma28hd.dres = " << ma28hd_.dres << endl
162  << "ma28hd.cgce = " << ma28hd_.cgce << endl
163  << "ma28hd.ndrop = " << ma28hd_.ndrop << endl
164  << "ma28hd.maxit = " << ma28hd_.maxit << endl
165  << "ma28hd.noiter = " << ma28hd_.noiter << endl
166  << "ma28hd.nsrch = " << ma28hd_.nsrch << endl
167  << "ma28hd.istart = " << ma28hd_.istart << endl
168  << "ma28hd.lbig = " << ma28hd_.lbig << endl
169  << "ma30ed.lp = " << ma30ed_.lp << endl
170  << "ma30ed.abort1 = " << ma30ed_.abort1 << endl
171  << "ma30ed.abort2 = " << ma30ed_.abort2 << endl
172  << "ma30ed.abort3 = " << ma30ed_.abort3 << endl
173  << "ma30fd.irncp = " << ma30fd_.irncp << endl
174  << "ma30fd.icncp = " << ma30fd_.icncp << endl
175  << "ma30fd.irank = " << ma30fd_.irank << endl
176  << "ma30fd.minirn = " << ma30fd_.minirn << endl
177  << "ma30fd.minicn = " << ma30fd_.minicn << endl
178  << "ma30gd.eps = " << ma30gd_.eps << endl
179  << "ma30gd.rmin = " << ma30gd_.rmin << endl
180  << "ma30hd.resid = " << ma30hd_.resid << endl
181  << "ma30id.tol = " << ma30id_.tol << endl
182  << "ma30id.big = " << ma30id_.big << endl
183  << "ma30id.ndrop = " << ma30id_.ndrop << endl
184  << "ma30id.nsrch = " << ma30id_.nsrch << endl
185  << "ma30id.lbig = " << ma30id_.lbig << endl;
186 }
187 
188 
189 #endif // HAVE_MOOCHO_MA28