diff options
-rw-r--r-- | interface.ccl | 16 | ||||
-rw-r--r-- | src/FuncAndJacobian.c | 2 | ||||
-rw-r--r-- | src/ParamCheck.c | 2 |
3 files changed, 10 insertions, 10 deletions
diff --git a/interface.ccl b/interface.ccl index 3bb592b..4397dd1 100644 --- a/interface.ccl +++ b/interface.ccl @@ -7,12 +7,12 @@ INHERITS: ADMBase StaticConformal grid REAL puncture_u TYPE=gf -CCTK_INT FUNCTION Rho_ADM( \ - CCTK_POINTER_TO_CONST IN cctkGH, \ - CCTK_INT IN size, \ - CCTK_POINTER IN source, \ - CCTK_POINTER IN x, \ - CCTK_POINTER IN y, \ - CCTK_POINTER IN z \ +CCTK_INT FUNCTION Set_Rho_ADM( \ + CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN size, \ + CCTK_REAL ARRAY OUT source, \ + CCTK_REAL ARRAY IN x, \ + CCTK_REAL ARRAY IN y, \ + CCTK_REAL ARRAY IN z \ ) -USES FUNCTION Rho_ADM +USES FUNCTION Set_Rho_ADM diff --git a/src/FuncAndJacobian.c b/src/FuncAndJacobian.c index c2c972e..a90c6be 100644 --- a/src/FuncAndJacobian.c +++ b/src/FuncAndJacobian.c @@ -250,7 +250,7 @@ F_of_v (CCTK_POINTER_TO_CONST cctkGH, // (U, U_x, U_y, U_z, U_xx, U_xy, U_xz, U_yy, U_yz, U_zz) rx3_To_xyz (nvar, s_x[i3D], r, phi, &(s_y[i3D]), &(s_z[i3D]), U); } - Rho_ADM(cctkGH, n1*n2*n3, sources, s_x, s_y, s_z); + Set_Rho_ADM(cctkGH, n1*n2*n3, sources, s_x, s_y, s_z); free(s_z); free(s_y); free(s_x); diff --git a/src/ParamCheck.c b/src/ParamCheck.c index ca06f64..9ec622e 100644 --- a/src/ParamCheck.c +++ b/src/ParamCheck.c @@ -21,7 +21,7 @@ TwoPunctures_ParamCheck (CCTK_ARGUMENTS) if (par_use_sources) { CCTK_INFO("Solving for BH-NS"); - if (CCTK_IsFunctionAliased ("Rho_ADM")) + if (CCTK_IsFunctionAliased ("Set_Rho_ADM")) CCTK_INFO("Aliased Functions found"); else CCTK_WARN(0, "I found no (aliased) function for matter sources, but " |