1 /*
2 *_________________________________________________________________________*
3 * POEMS: PARALLELIZABLE OPEN SOURCE EFFICIENT MULTIBODY SOFTWARE *
4 * DESCRIPTION: SEE READ-ME *
5 * FILE NAME: virtualcolmatrix.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 #include "virtualcolmatrix.h"
19 #include <iostream>
20 #include <cstdlib>
21
22 using namespace std;
23
VirtualColMatrix()24 VirtualColMatrix::VirtualColMatrix(){
25 numcols = 1;
26 }
27
~VirtualColMatrix()28 VirtualColMatrix::~VirtualColMatrix(){
29 }
30
operator_2int(int i,int j)31 double& VirtualColMatrix::operator_2int(int i, int j){
32 if(j!=1){
33 cerr << "matrix index invalid in operator ()" << endl;
34 exit(1);
35 }
36 return (*this).operator_1int(i);
37 }
38
Get_2int(int i,int j) const39 double VirtualColMatrix::Get_2int(int i, int j) const{
40 if(j!=1){
41 cerr << "Subscript out of bounds for collumn matrix" << endl;
42 exit(1);
43 }
44 return Get_1int(i);
45 }
46
Set_2int(int i,int j,double value)47 void VirtualColMatrix::Set_2int(int i, int j, double value){
48 if(j!=1){
49 cerr << "Subscript out of bounds for collumn matrix" << endl;
50 exit(1);
51 }
52 Set_1int(i,value);
53 }
54
BasicGet_2int(int i,int j) const55 double VirtualColMatrix::BasicGet_2int(int i, int j) const{
56 return BasicGet_1int(i);
57 }
58
BasicSet_2int(int i,int j,double value)59 void VirtualColMatrix::BasicSet_2int(int i, int j, double value){
60 BasicSet_1int(i,value);
61 }
62
BasicIncrement_2int(int i,int j,double value)63 void VirtualColMatrix::BasicIncrement_2int(int i, int j, double value){
64 BasicIncrement_1int(i,value);
65 }
66
67