diff options
author | Erik Schnetter <schnetter@aei.mpg.de> | 2004-09-18 13:40:00 +0000 |
---|---|---|
committer | Erik Schnetter <schnetter@aei.mpg.de> | 2004-09-18 13:40:00 +0000 |
commit | d77e4fb3d67b829ccac829e92d8293c290bed78c (patch) | |
tree | bebd3fa7a8b043e8cc153a1c467f2353b3d9f36d /Carpet/CarpetTest/interface.ccl | |
parent | 91ec86281fe4c575df2cbff1ba088c75e01ccced (diff) |
Add test routine for hyperslabbing
darcs-hash:20040918134055-891bb-2255e545a38dc4a4a87a2b1f9a135ac8ce905790.gz
Diffstat (limited to 'Carpet/CarpetTest/interface.ccl')
-rw-r--r-- | Carpet/CarpetTest/interface.ccl | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/Carpet/CarpetTest/interface.ccl b/Carpet/CarpetTest/interface.ccl index d4b58deb4..214ba898a 100644 --- a/Carpet/CarpetTest/interface.ccl +++ b/Carpet/CarpetTest/interface.ccl @@ -3,6 +3,8 @@ implements: CarpetTest + + CCTK_REAL gfg type=GF { gf @@ -27,3 +29,42 @@ CCTK_REAL scg type=SCALAR { sc } "scalar" + + + +CCTK_INT FUNCTION \ + Hyperslab_GlobalMappingByIndex (CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN vindex, \ + CCTK_INT IN hdim, \ + CCTK_INT ARRAY IN direction, \ + CCTK_INT ARRAY IN origin, \ + CCTK_INT ARRAY IN extent, \ + CCTK_INT ARRAY IN downsample, \ + CCTK_INT IN table_handle, \ + CCTK_INT CCTK_FPOINTER IN \ + conversion_fn (CCTK_INT IN nelems, \ + CCTK_INT IN src_stride, \ + CCTK_INT IN dst_stride, \ + CCTK_INT IN src_type, \ + CCTK_INT IN dst_type, \ + CCTK_POINTER_TO_CONST IN from, \ + CCTK_POINTER IN to), \ + CCTK_INT ARRAY OUT hsize) +REQUIRES FUNCTION Hyperslab_GlobalMappingByIndex + +CCTK_INT FUNCTION Hyperslab_FreeMapping (CCTK_INT IN mapping_handle) +REQUIRES FUNCTION Hyperslab_FreeMapping + +CCTK_INT FUNCTION \ + Hyperslab_Get (CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN mapping_handle, \ + CCTK_INT IN proc, \ + CCTK_INT IN vindex, \ + CCTK_INT IN timelevel, \ + CCTK_INT IN hdatatype, \ + CCTK_POINTER IN hdata) +REQUIRES FUNCTION Hyperslab_Get + + + +CCTK_REAL yy TYPE=gf "A copy of y" |