ArrayInput2.cpp

Go to the documentation of this file.

 
#ifdef HAVE_CONFIG_H
   #include <config.h>
#else
#error "Cannot compile with HAVE_CONFIG_H symbol! run configure first!"
#endif
 
#include "../classes.h"
#include "../../shared/shared.h"
#include "./ArrayInput2.h"
 
/*ArrayInput2 constructors and destructor*/
ArrayInput2::ArrayInput2(void){/*{{{*/
 
   this->numberofelements_local = -1;
   this->N                      = NULL;
   this->values                 = NULL;
 
}/*}}}*/
ArrayInput2::ArrayInput2(int nbe_in){/*{{{*/
 
   _assert_(nbe_in>0);
   _assert_(nbe_in<1e11);
   this->numberofelements_local = nbe_in;
   this->N                      = xNewZeroInit<int>(this->numberofelements_local);
   this->values                 = xNewZeroInit<IssmDouble*>(this->numberofelements_local);
 
}/*}}}*/
ArrayInput2::~ArrayInput2(){/*{{{*/
   if(this->values){
      for(int i=0;i<this->numberofelements_local;i++) if(this->values[i]) xDelete<IssmDouble>(this->values[i]);
      xDelete<IssmDouble>(this->values);
   }
   if(this->N) xDelete<int>(this->N);
}
/*}}}*/
 
/*Object virtual functions definitions:*/
Input2* ArrayInput2::copy() {/*{{{*/
 
   ArrayInput2* output = new ArrayInput2(this->numberofelements_local);
 
   output->N = xNew<int>(this->numberofelements_local);
   xMemCpy<int>(output->N,this->N,this->numberofelements_local);
 
   output->values = xNew<IssmDouble*>(this->numberofelements_local);
   for(int i=0;i<this->numberofelements_local;i++){
      if(this->values[i]){
         _assert_(this->N[i]>0);
         output->values[i] = xNew<IssmDouble>(this->N[i]);
         xMemCpy<IssmDouble>(output->values[i],this->values[i],this->N[i]);
      }
      else{
         output->values[i] = NULL;
      }
   }
 
   return output;
}
/*}}}*/
void ArrayInput2::DeepEcho(void){/*{{{*/
   _printf_("ArrayInput2 Echo:\n");
   //printarray(this->values,this->M,this->N);
   //_printf_(setw(15)<<"   ArrayInput2 "<<setw(25)<<left<<EnumToStringx(this->enum_type)<<" "<<(value?"true":"false") << "\n");
}
/*}}}*/
void ArrayInput2::Echo(void){/*{{{*/
   this->DeepEcho();
}
/*}}}*/
int  ArrayInput2::Id(void){/*{{{*/
   return -1;
}/*}}}*/
void ArrayInput2::Marshall(char** pmarshalled_data,int* pmarshalled_data_size, int marshall_direction){ /*{{{*/
 
   MARSHALLING_ENUM(ArrayInput2Enum);
   MARSHALLING(this->numberofelements_local);
   if(this->numberofelements_local){
      MARSHALLING_DYNAMIC(this->N,int,this->numberofelements_local);
      for(int i=0;i<this->numberofelements_local;i++){
         if(this->values[i]){
            MARSHALLING_DYNAMIC(this->values[i],IssmDouble,this->N[i]);
         }
      }
   }
   else{
      this->N      = NULL;
      this->values = NULL;
   }
 
}
/*}}}*/
int  ArrayInput2::ObjectEnum(void){/*{{{*/
   return ArrayInput2Enum;
}
/*}}}*/
 
/*ArrayInput2 management*/
void ArrayInput2::SetInput(int row,int numindices,IssmDouble* values_in){/*{{{*/
 
   _assert_(this);
   _assert_(row>=0 && row<this->numberofelements_local);
 
   if(this->N[row] != numindices){
      if(this->values[row]) xDelete<IssmDouble>(this->values[row]);
      this->values[row] = xNew<IssmDouble>(numindices);
   }
 
   IssmDouble *el_values = this->values[row];
   for(int i=0;i<numindices;i++) el_values[i] = values_in[i];
 
   this->N[row] = numindices;
}
/*}}}*/
void ArrayInput2::GetArray(int row,IssmDouble** pvalues,int* pN){/*{{{*/
 
   _assert_(this);
   _assert_(row>=0 && row<this->numberofelements_local);
   if(pvalues){
      IssmDouble* outvalues = xNew<IssmDouble>(this->N[row]);
      xMemCpy<IssmDouble>(outvalues,this->values[row],this->N[row]);
      *pvalues = outvalues;
   }
   if(pN){
      *pN = this->N[row];
   }
}
/*}}}*/
void ArrayInput2::GetArrayPtr(int row,IssmDouble** pvalues,int* pN){/*{{{*/
 
   _assert_(this);
   _assert_(row>=0 && row<this->numberofelements_local);
   if(pvalues){
      *pvalues = this->values[row];
   }
   if(pN){
      *pN = this->N[row];
   }
}
/*}}}*/