SetControlInputsFromVectorx.cpp File Reference

#include "./SetControlInputsFromVectorx.h"
#include "../../shared/shared.h"
#include "../../toolkits/toolkits.h"

Go to the source code of this file.

Functions
void	SetControlInputsFromVectorx (FemModel *femmodel, IssmDouble *vector)
void	SetControlInputsFromVectorx (FemModel *femmodel, Vector< IssmDouble > *vector)

Function Documentation

SetControlInputsFromVectorx() [1/2]

void SetControlInputsFromVectorx	(	FemModel *	femmodel,
		IssmDouble *	vector
	)

Definition at line 9 of file SetControlInputsFromVectorx.cpp.

                                                                       {
 
   bool isautodiff; 
   femmodel->parameters->FindParam(&isautodiff,AutodiffIsautodiffEnum);
   if(isautodiff){
      int  num_controls;
      int* control_type = NULL;
      int* M = NULL;
      int* N = NULL;
 
      /*Retrieve some parameters*/
      femmodel->parameters->FindParam(&num_controls,InversionNumControlParametersEnum);
      femmodel->parameters->FindParam(&control_type,NULL,InversionControlParametersEnum);
      femmodel->parameters->FindParam(&M,NULL,ControlInputSizeMEnum);
      femmodel->parameters->FindParam(&N,NULL,ControlInputSizeNEnum);
 
      int offset = 0;
      for(int i=0;i<num_controls;i++){
         for(int j=0;j<femmodel->elements->Size();j++){
            Element* element=(Element*)femmodel->elements->GetObjectByOffset(j);
            element->SetControlInputsFromVector(vector,control_type[i],i,offset,N[i],M[i]);
         }
      offset += M[i]*N[i]; 
      }
 
      xDelete<int>(control_type);
      xDelete<int>(M);
      xDelete<int>(N);
   }
   else{
 
      int  num_controls;
      int* control_type = NULL;
      femmodel->parameters->FindParam(&num_controls,InversionNumControlParametersEnum);
      femmodel->parameters->FindParam(&control_type,NULL,InversionControlParametersEnum);
      int offset = 0;
      for(int i=0;i<num_controls;i++){
         for(int j=0;j<femmodel->elements->Size();j++){
            Element* element=(Element*)femmodel->elements->GetObjectByOffset(j);
            element->SetControlInputsFromVector(vector,control_type[i],i);
         }
      }
      xDelete<int>(control_type);
   }
}

SetControlInputsFromVectorx() [2/2]

void SetControlInputsFromVectorx	(	FemModel *	femmodel,
		Vector< IssmDouble > *	vector
	)

Definition at line 55 of file SetControlInputsFromVectorx.cpp.

                                                                               {
 
   IssmDouble* serial_vector=vector->ToMPISerial();
   SetControlInputsFromVectorx(femmodel,serial_vector);
   xDelete<IssmDouble>(serial_vector);
}