Merge pull request #95 from el-tomo/master

changed the way the Dirichlet BCs are updated according to code review
OpenCMISS · Jul 27, 2015 · df1c1db · df1c1db
2 parents 9596fb2 + bce1061
commit df1c1db
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/...tricFiniteElasticity/GudunovMonodomainElasticity1D3DMesh/titin_10/src/titin_10Example.f90 b/...tricFiniteElasticity/GudunovMonodomainElasticity1D3DMesh/titin_10/src/titin_10Example.f90
@@ -1622,8 +1622,8 @@ PROGRAM simple_geometryEXAMPLE
     NodeNumber=LeftSurfaceNodes(node_idx)
     CALL CMISSDecomposition_NodeDomainGet(DecompositionFE,NodeNumber,1,NodeDomain,Err)
     IF(NodeDomain==ComputationalNodeNumber) THEN
-      CALL CMISSBoundaryConditions_SetNode(BoundaryConditionsFE,DependentFieldFE,CMISS_FIELD_U_VARIABLE_TYPE,1,1,NodeNumber,1, &
-        & CMISS_BOUNDARY_CONDITION_FIXED,VALUE,Err)
+      CALL CMISSField_ParameterSetUpdateNode(DependentFieldFE,CMISS_FIELD_U_VARIABLE_TYPE,CMISS_FIELD_VALUES_SET_TYPE, &
+        & 1,1,NodeNumber,1,VALUE,Err)
     ENDIF
   ENDDO
 
@@ -1680,8 +1680,8 @@ PROGRAM simple_geometryEXAMPLE
       NodeNumber=LeftSurfaceNodes(node_idx)
       CALL CMISSDecomposition_NodeDomainGet(DecompositionFE,NodeNumber,1,NodeDomain,Err)
       IF(NodeDomain==ComputationalNodeNumber) THEN
-        CALL CMISSBoundaryConditions_SetNode(BoundaryConditionsFE,DependentFieldFE,CMISS_FIELD_U_VARIABLE_TYPE,1,1,NodeNumber,1, &
-          & CMISS_BOUNDARY_CONDITION_FIXED,VALUE,Err)
+        CALL CMISSField_ParameterSetUpdateNode(DependentFieldFE,CMISS_FIELD_U_VARIABLE_TYPE,CMISS_FIELD_VALUES_SET_TYPE, &
+          & 1,1,NodeNumber,1,VALUE,Err)
       ENDIF
     ENDDO