diff options
| author | allen <allen@1d96b42b-98df-4a6a-9d84-1b24288d4588> | 2000-05-10 12:12:43 +0000 |
|---|---|---|
| committer | allen <allen@1d96b42b-98df-4a6a-9d84-1b24288d4588> | 2000-05-10 12:12:43 +0000 |
| commit | 8f8ff1bd16e13f873c848f4231cf272f32d6b7e9 (patch) | |
| tree | ad329bcef9a720c301916ab8189244bf1341d47c /src | |
| parent | 199e00d2441c3f9e4364596dc79c2723f1cf2f58 (diff) | |
New macros for calling C from fortran
using PUGH_pGH
git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@40 1d96b42b-98df-4a6a-9d84-1b24288d4588
Diffstat (limited to 'src')
| -rw-r--r-- | src/petsc_confmetric_solver.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/petsc_confmetric_solver.c b/src/petsc_confmetric_solver.c index ef65006..3bab3b4 100644 --- a/src/petsc_confmetric_solver.c +++ b/src/petsc_confmetric_solver.c @@ -171,7 +171,7 @@ void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, tolerance =AbsTol[0]; /* Get the link to pugh Extension */ - pughGH = (pGH*)GH->extensions[CCTK_GHExtensionHandle("PUGH")]; + pughGH = PUGH_pGH(GH); if (!pughGH) CCTK_WARN(0,"ETERNAL ERROR: Cannot find PUGH Extension Handle\n"); /* Get the extras extension for 3D grid functions */ |