Changeset 11684 for issm/branches/trunk-jpl-damage/src/c/modules/CreateJacobianMatrixx/CreateJacobianMatrixx.cpp
- Timestamp:
- 03/12/12 14:40:42 (13 years ago)
- Location:
- issm/branches/trunk-jpl-damage
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/branches/trunk-jpl-damage
-
issm/branches/trunk-jpl-damage/src/c/modules/CreateJacobianMatrixx/CreateJacobianMatrixx.cpp
r11327 r11684 10 10 #include "../../EnumDefinitions/EnumDefinitions.h" 11 11 12 void CreateJacobianMatrixx(Mat * pJff,Elements* elements,Nodes* nodes, Vertices* vertices,Loads* loads,Materials* materials, Parameters* parameters,double kmax){12 void CreateJacobianMatrixx(Matrix** pJff,Elements* elements,Nodes* nodes, Vertices* vertices,Loads* loads,Materials* materials, Parameters* parameters,double kmax){ 13 13 14 14 int i,connectivity; … … 17 17 Element *element = NULL; 18 18 Load *load = NULL; 19 Mat 19 Matrix* Jff = NULL; 20 20 21 21 /*Checks*/ … … 29 29 30 30 /*Initialize Jacobian Matrix*/ 31 Jff= NewMat(fsize,fsize,connectivity,numberofdofspernode);31 Jff=new Matrix(fsize,fsize,connectivity,numberofdofspernode); 32 32 33 33 /*Create and assemble matrix*/ … … 41 41 if(load->InAnalysis(configuration_type)) load->PenaltyCreateJacobianMatrix(Jff,kmax); 42 42 } 43 MatAssemblyBegin(Jff,MAT_FINAL_ASSEMBLY); 44 MatAssemblyEnd(Jff,MAT_FINAL_ASSEMBLY); 43 Jff->Assemble(); 45 44 46 45 /*Assign output pointer*/
Note:
See TracChangeset
for help on using the changeset viewer.