[cig-commits] commit: merging petsc wrapper class removal into tip
Mercurial
hg at geodynamics.org
Mon Nov 24 11:31:33 PST 2008
changeset: 124:953337e08832
parent: 122:537d139cf964
parent: 123:d7db09e1378c
user: dave at tango.vpac.org
date: Thu Oct 16 17:44:05 2008 +1100
description:
merging petsc wrapper class removal into tip
diff -r 537d139cf964 -r 953337e08832 MaterialPoints/src/ParticleFeVariable.c
--- a/MaterialPoints/src/ParticleFeVariable.c Thu Oct 16 14:56:43 2008 +1100
+++ b/MaterialPoints/src/ParticleFeVariable.c Thu Oct 16 17:44:05 2008 +1100
@@ -296,13 +296,16 @@ void ParticleFeVariable_Update( void* ma
printf( "***\n*** Updating %s\n***\n", self->name );
/* Initialise Vectors */
- Vector_Zero( self->assemblyVector->vector );
- Vector_Zero( self->massMatrix->vector );
+ //Vector_Zero( self->assemblyVector->vector );
+ //Vector_Zero( self->massMatrix->vector );
+ VecSet( self->assemblyVector->vector, 0.0 );
+ VecSet( self->massMatrix->vector, 0.0 );
ForceVector_Assemble( self->assemblyVector );
ForceVector_Assemble( self->massMatrix );
- Vector_PointwiseDivide( self->assemblyVector->vector, self->assemblyVector->vector, self->massMatrix->vector );
+ //Vector_PointwiseDivide( self->assemblyVector->vector, self->assemblyVector->vector, self->massMatrix->vector );
+ VecPointwiseDivide( self->assemblyVector->vector, self->assemblyVector->vector, self->massMatrix->vector );
SolutionVector_UpdateSolutionOntoNodes( self->assemblyVector );
}
More information about the CIG-COMMITS
mailing list