[cig-commits] [commit] rajesh-petsc, rajesh-petsc-schur: removed commented out v_from_vector_petsc, v_from_vector_pseudo_surf_petsc, p_to_nodes_petsc (c0bff4a)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/citcoms

On branches: rajesh-petsc,rajesh-petsc-schur
Link       : https://github.com/geodynamics/citcoms/compare/464e1b32299b15819f93efd98d969cddb84dfe51...f97ae655a50bdbd6dac1923a3471ee4dae178fbd

>---------------------------------------------------------------

commit c0bff4ac92b55bc1b2c25e5987b08fe814202631
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date:   Wed Aug 20 15:09:40 2014 -0700

    removed commented out v_from_vector_petsc, v_from_vector_pseudo_surf_petsc, p_to_nodes_petsc


>---------------------------------------------------------------

c0bff4ac92b55bc1b2c25e5987b08fe814202631
 lib/Nodal_mesh.c | 42 ------------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/lib/Nodal_mesh.c b/lib/Nodal_mesh.c
index 3269c3b..5e087cd 100644
--- a/lib/Nodal_mesh.c
+++ b/lib/Nodal_mesh.c
@@ -58,17 +58,7 @@ void v_from_vector(E)
 
     return;
 }
-/*
-PetscErrorCode v_from_vector_petsc(struct All_variables *E)
-{
-  PetscFunctionReturn(0);
-}
 
-PetscErrorCode v_from_vector_pseudo_surf_petsc(struct All_variables *E)
-{
-  PetscFunctionReturn(0);
-}
-*/
 void assign_v_to_vector(E)
      struct All_variables *E;
 {
@@ -210,39 +200,7 @@ void velo_from_element_d(E,VV,m,el,sphere_key)
     }
     return;
 }
-/*
-PetscErrorCode p_to_nodes_petsc(struct All_variables *E, 
-    Vec PVec, Vec PNVec, int lev )
-{
-  PetscErrorCode ierr;
-  PetscScalar *P[2], *PN[2]; // 2 instead of NCS(=14) to save space
-  int e, element,node, j;
-
-  ierr = VecGetArray(PVec, &P[1]); CHKERRQ(ierr); --P[1];
-  ierr = VecGetArray(PNVec, &PN[1]); CHKERRQ(ierr); --PN[1];
 
-  for(node = 1; node <= E->lmesh.NNO[lev]; ++node )
-    PN[1][node] = 0.0;
-
-  for(element = 1; element <= E->lmesh.NEL[lev]; element++)
-    for(j = 1; j <= enodes[E->mesh.nsd]; j++)
-    {
-      node = E->IEN[lev][1][element].node[j];
-      PN[1][node] += P[1][element] * E->TWW[lev][1][element].node[j];
-    }
-
-  (E->exchange_node_f)(E, PN, lev); 
-
-  for(node = 1; node <= E->lmesh.NNO[lev]; node++)
-    PN[1][node] *= E->MASS[lev][1][node];
-
-  ++P[1]; ierr = VecRestoreArray(PVec, &P[1]); CHKERRQ(ierr);
-  ++PN[1]; ierr = VecRestoreArray(PNVec, &PN[1]); CHKERRQ(ierr);
-
-  PetscFunctionReturn(0);
-
-}
-*/
 void p_to_nodes(E,P,PN,lev)
      struct All_variables *E;
      double **P;