Nodalvalue.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
 
/*Headers:*/
/*{{{*/
#include "./Elements/Element.h"
#include "./Elements/Elements.h"
#include "./FemModel.h"
#include "../modules/SurfaceAreax/SurfaceAreax.h"
#include "../classes/Params/Parameters.h"
#include "../classes/gauss/Gauss.h"
#include "./classes.h"
/*}}}*/
 
      /*Nodalvalue constructors, destructors :*/
Nodalvalue::Nodalvalue(){/*{{{*/
 
   this->definitionenum = -1;
   this->name = NULL;
   this->model_enum = UNDEF;
   this->node = -1;
 
}
/*}}}*/
Nodalvalue::Nodalvalue(char* in_name, int in_definitionenum, int in_model_enum, int in_node){/*{{{*/
 
   this->definitionenum=in_definitionenum;
   this->name   = xNew<char>(strlen(in_name)+1);
   xMemCpy<char>(this->name,in_name,strlen(in_name)+1);
 
   this->model_enum=in_model_enum;
   this->node=in_node;
}
/*}}}*/
Nodalvalue::~Nodalvalue(){/*{{{*/
   if(this->name)xDelete(this->name);
}
/*}}}*/
/*Object virtual function resolutoin: */
Object* Nodalvalue::copy() {/*{{{*/
   Nodalvalue* mf = new Nodalvalue(this->name,this->definitionenum, this->model_enum,this->node);
   return (Object*) mf;
}
/*}}}*/
void Nodalvalue::DeepEcho(void){/*{{{*/
   this->Echo();
}
/*}}}*/
void Nodalvalue::Echo(void){/*{{{*/
   _printf_(" Nodalvalue: " << name << " " << this->definitionenum << "\n");
   _printf_("    model_enum: " << model_enum << " " << EnumToStringx(model_enum) << "\n");
   _printf_("    node: " << node << "\n");
}
/*}}}*/
int Nodalvalue::Id(void){/*{{{*/
   return -1;
}
/*}}}*/
void Nodalvalue::Marshall(char** pmarshalled_data,int* pmarshalled_data_size, int marshall_direction){/*{{{*/
   _error_("not implemented yet!"); 
} 
/*}}}*/
int Nodalvalue::ObjectEnum(void){/*{{{*/
   return NodalvalueEnum;
}
/*}}}*/
/*Definition virtual function resolutoin: */
int Nodalvalue::DefinitionEnum(){/*{{{*/
 
   return this->definitionenum;
}
/*}}}*/
char* Nodalvalue::Name(){/*{{{*/
 
   char* name2=xNew<char>(strlen(this->name)+1);
   xMemCpy(name2,this->name,strlen(this->name)+1);
 
   return name2;
}
/*}}}*/
IssmDouble Nodalvalue::Response(FemModel* femmodel){/*{{{*/
 
    /*output:*/
    IssmDouble value;
 
    /*set index, which will be used by the NodalValue module: */
    femmodel->parameters->SetParam(node,IndexEnum);
 
    /*call Nodalvalue:*/
    NodalValuex(&value, model_enum, femmodel->elements, femmodel->nodes, femmodel->vertices, femmodel->loads, 
          femmodel->materials, femmodel->parameters);
 
    /*done:*/
    return value;
 }
 /*}}}*/