From cc396ab996df8be585ddb70c84c9b943002c99a5 Mon Sep 17 00:00:00 2001 From: rhaas Date: Wed, 25 Jan 2012 15:19:00 +0000 Subject: support named spherical surfaces git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@36 ef6f4158-a8ee-47d1-ba14-cb73256398e0 --- interface.ccl | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'interface.ccl') diff --git a/interface.ccl b/interface.ccl index 3cb4cd0..4510fce 100644 --- a/interface.ccl +++ b/interface.ccl @@ -10,6 +10,11 @@ CCTK_POINTER_TO_CONST \ FUNCTION GetMPICommWorld (CCTK_POINTER_TO_CONST IN cctkGH) USES FUNCTION GetMPICommWorld +# translate SphericalSurface name into ID +CCTK_INT \ +FUNCTION sf_IdFromName (CCTK_INT IN id, CCTK_POINTER_TO_CONST IN name) +USES FUNCTION sf_IdFromName + INT qlm_state[num_surfaces] TYPE=scalar -- cgit v1.2.3