Changeset 4055 for issm/trunk/src/c/modules/GetVectorFromInputsx/GetVectorFromInputsx.cpp

Timestamp:

06/18/10 19:24:59 (15 years ago)

Author:

Eric.Larour

Message:

Keep simplifying solutions.
New convergence module at the input level, instead at the solution level, when solution vectors are not
available anymore.

File:

• issm/trunk/src/c/modules/GetVectorFromInputsx/GetVectorFromInputsx.cpp (modified) (1 diff)

issm/trunk/src/c/modules/GetVectorFromInputsx/GetVectorFromInputsx.cpp

@@ -38 +38 @@
 
 }
+
+void GetVectorFromInputsx( double* pvector, DataSet* elements,DataSet* nodes, DataSet* vertices, DataSet* loads, DataSet* materials, Parameters* parameters, int NameEnum, int TypeEnum){
+        
+        /*output: */
+        double* vector=NULL;
+        
+        /*intermediary: */
+        Vec vec_vector=NULL;
+
+        GetVectorFromInputsx( &vec_vector, elements,nodes, vertices, loads, materials, parameters, NameEnum, TypeEnum);
+        VecToMPISerial(&vector,vec_vector);
+
+        /*Free ressources:*/
+        VecFree(&vec_vector);
+
+        /*Assign output pointers:*/
+        *pvector=vector;
+}