diff options
author | goodale <goodale@1d96b42b-98df-4a6a-9d84-1b24288d4588> | 2000-04-19 23:13:50 +0000 |
---|---|---|
committer | goodale <goodale@1d96b42b-98df-4a6a-9d84-1b24288d4588> | 2000-04-19 23:13:50 +0000 |
commit | 199e00d2441c3f9e4364596dc79c2723f1cf2f58 (patch) | |
tree | b4a1c9da0367eec7694d663817d6b4819e624a55 | |
parent | 2352c52df50a0e84ec767954ef0c735281fb19cf (diff) |
Changed names of PUGH functions to be uniform. Now all PUGH functions
should begin with PUGH.
Tom
git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@38 1d96b42b-98df-4a6a-9d84-1b24288d4588
-rw-r--r-- | src/petsc_confmetric.c | 6 | ||||
-rw-r--r-- | src/petsc_confmetric_solver.c | 6 | ||||
-rw-r--r-- | src/petsc_flat_solver.c | 6 |
3 files changed, 9 insertions, 9 deletions
diff --git a/src/petsc_confmetric.c b/src/petsc_confmetric.c index 6dd03d3..597d987 100644 --- a/src/petsc_confmetric.c +++ b/src/petsc_confmetric.c @@ -226,7 +226,7 @@ void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, for (i=0;i<pughGH->npoints;i++) wsp[i] = -1.0; /* Get myproc from the CCTK, get the gridspacing */ - myproc = pugh_MyProc(GH); + myproc = PUGH_MyProc(GH); dx = GH->cctk_delta_space[0]; dy = GH->cctk_delta_space[1]; dz = GH->cctk_delta_space[2]; @@ -295,7 +295,7 @@ void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, do a sync that means each processor knows the indiced in the ghost zones (eg, on its neighbors) in a FD stencil of 1 */ - retcode = pugh_SyncGroup(GH,"ellpetsc::petscworkspace"); + retcode = PUGH_SyncGroup(GH,"ellpetsc::petscworkspace"); /* So woohoo. Now for each point in our ijk space, we have @@ -920,7 +920,7 @@ void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, VecRestoreArray(soln,&values); /* Sync var in CCTK speak. */ - pugh_SyncGroup(GH,"ellpetsc::petscworkspace"); + PUGH_SyncGroup(GH,"ellpetsc::petscworkspace"); /* And finally free up the matrix memory FIXME ierr = MatReleaseValuesMemory(A); CHKERRA(ierr); */ diff --git a/src/petsc_confmetric_solver.c b/src/petsc_confmetric_solver.c index b439c8f..ef65006 100644 --- a/src/petsc_confmetric_solver.c +++ b/src/petsc_confmetric_solver.c @@ -245,7 +245,7 @@ void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, for (i=0;i<pEx->npoints;i++) wsp[i] = -1.0; /* Get myproc from the CCTK, get the gridspacing */ - myproc = pugh_MyProc(GH); + myproc = PUGH_MyProc(GH); dx = GH->cctk_delta_space[0]; dy = GH->cctk_delta_space[1]; dz = GH->cctk_delta_space[2]; @@ -311,7 +311,7 @@ void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, do a sync that means each processor knows the indiced in the ghost zones (eg, on its neighbors) in a FD stencil of 1 */ - retcode = pugh_SyncGroup(GH,"ellpetsc::petscworkspace"); + retcode = PUGH_SyncGroup(GH,"ellpetsc::petscworkspace"); /* So woohoo. Now for each point in our ijk space, we have @@ -1051,7 +1051,7 @@ void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, VecRestoreArray(soln,&values); /* Sync var in CCTK speak. */ - pugh_SyncGroup(GH,"ellpetsc::petscworkspace"); + PUGH_SyncGroup(GH,"ellpetsc::petscworkspace"); /* And finally free up the matrix memory FIXME ierr = MatReleaseValuesMemory(A); CHKERRA(ierr); */ diff --git a/src/petsc_flat_solver.c b/src/petsc_flat_solver.c index 2607937..3ee013a 100644 --- a/src/petsc_flat_solver.c +++ b/src/petsc_flat_solver.c @@ -176,7 +176,7 @@ void petsc_flat(cGH *GH, int FieldIndex, int MIndex, int NIndex, for (i=0;i<pEx->npoints;i++) wsp[i] = -1.0; /* Get myproc from the CCTK, get the gridspacing */ - myproc = pugh_MyProc(GH); + myproc = PUGH_MyProc(GH); dx = GH->cctk_delta_space[0]; dy = GH->cctk_delta_space[1]; dz = GH->cctk_delta_space[2]; @@ -245,7 +245,7 @@ void petsc_flat(cGH *GH, int FieldIndex, int MIndex, int NIndex, /* So now each point has a unique index of its own. If we do a sync that means each processor knows the indiced in the ghost zones (eg, on its neighbors) in a FD stencil of 1 */ - retcode = pugh_SyncGroup(GH,"ellpetsc::petscworkspace"); + retcode = PUGH_SyncGroup(GH,"ellpetsc::petscworkspace"); /* So woohoo. Now for each point in our ijk space, we have @@ -601,7 +601,7 @@ void petsc_flat(cGH *GH, int FieldIndex, int MIndex, int NIndex, VecRestoreArray(soln,&values); - pugh_SyncGroup(GH,"ellpetsc::petscworkspace"); + PUGH_SyncGroup(GH,"ellpetsc::petscworkspace"); /* And finally free up the matrix memory */ /*$ierr = MatReleaseValuesMemory(A); CHKERRA(ierr);$*/ |