1 /*
2  *_________________________________________________________________________*
3  *      POEMS: PARALLELIZABLE OPEN SOURCE EFFICIENT MULTIBODY SOFTWARE     *
4  *      DESCRIPTION: SEE READ-ME                                           *
5  *      FILE NAME: virtualrowmatrix.cpp                                    *
6  *      AUTHORS: See Author List                                           *
7  *      GRANTS: See Grants List                                            *
8  *      COPYRIGHT: (C) 2005 by Authors as listed in Author's List          *
9  *      LICENSE: Please see License Agreement                              *
10  *      DOWNLOAD: Free at www.rpi.edu/~anderk5                             *
11  *      ADMINISTRATOR: Prof. Kurt Anderson                                 *
12  *                     Computational Dynamics Lab                          *
13  *                     Rensselaer Polytechnic Institute                    *
14  *                     110 8th St. Troy NY 12180                           *
15  *      CONTACT:        anderk5@rpi.edu                                    *
16  *_________________________________________________________________________*/
17 
18 
19 #include "virtualrowmatrix.h"
20 #include <iostream>
21 #include <cstdlib>
22 
23 using namespace std;
24 
VirtualRowMatrix()25 VirtualRowMatrix::VirtualRowMatrix(){
26   numrows = 1;
27 }
28 
~VirtualRowMatrix()29 VirtualRowMatrix::~VirtualRowMatrix(){
30 }
31 
operator_2int(int i,int j)32 double& VirtualRowMatrix::operator_2int (int i, int j){
33   if(i!=1){
34     cerr << "matrix index invalid in operator ()" << endl;
35     exit(1);
36   }
37   return (*this).operator_1int(j);
38 }
39 
Get_2int(int i,int j) const40 double VirtualRowMatrix::Get_2int(int i, int j) const{
41   if(i!=1){
42     cerr << "Subscript out of bounds for row matrix" << endl;
43     exit(1);
44   }
45   return Get_1int(j);
46 }
47 
Set_2int(int i,int j,double value)48 void VirtualRowMatrix::Set_2int(int i, int j, double value){
49   if(i!=1){
50     cerr << "Subscript out of bounds for row matrix" << endl;
51     exit(1);
52   }
53   Set_1int(j,value);
54 }
55 
BasicGet_2int(int i,int j) const56 double VirtualRowMatrix::BasicGet_2int(int i, int j) const{
57   return BasicGet_1int(j);
58 }
59 
BasicSet_2int(int i,int j,double value)60 void VirtualRowMatrix::BasicSet_2int(int i, int j, double value){
61   BasicSet_1int(j,value);
62 }
63 
BasicIncrement_2int(int i,int j,double value)64 void VirtualRowMatrix::BasicIncrement_2int(int i, int j, double value){
65   BasicIncrement_1int(j,value);
66 }
67 
68 
69