From dceb6a4edb1b4acc2471300cb8a1093997ce5df9 Mon Sep 17 00:00:00 2001
From: tradke <tradke@38c3d835-c875-442e-b0fe-21c19ce1d001>
Date: Thu, 22 Jan 2004 13:31:14 +0000
Subject: Renamed some aliased hyperslab functions to comply with the maximum
 length for names of Fortran routines (31 characters):

 Hyperslab_DefineGlobalMappingByPhys  -> Hyperslab_GlobalMappingByPhys
 Hyperslab_DefineGlobalMappingByIndex -> Hyperslab_GlobalMappingByIndex
 Hyperslab_DefineLocalMappingByPhys   -> Hyperslab_LocalMappingByPhys
 Hyperslab_DefineLocalMappingByIndex  -> Hyperslab_LocalMappingByIndex

Also renamed the providing functions accordingly.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGHIO/IOPanda/trunk@58 38c3d835-c875-442e-b0fe-21c19ce1d001
---
 interface.ccl | 40 ++++++++++++++++++++--------------------
 src/Output.c  | 20 ++++++++++----------
 2 files changed, 30 insertions(+), 30 deletions(-)

diff --git a/interface.ccl b/interface.ccl
index 6bad223..9c1c735 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -15,29 +15,29 @@ CCTK_INT FUNCTION \
                  CCTK_POINTER OUT hdata)
 
 CCTK_INT FUNCTION \
-  Hyperslab_DefineLocalMappingByIndex (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_local, \
-                                       CCTK_INT ARRAY OUT hsize_global, \
-                                       CCTK_INT ARRAY OUT hoffset_global)
+  Hyperslab_LocalMappingByIndex (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_local, \
+                                 CCTK_INT ARRAY OUT hsize_global, \
+                                 CCTK_INT ARRAY OUT hoffset_global)
 
 CCTK_INT FUNCTION Hyperslab_FreeMapping (CCTK_INT IN mapping_handle)
 
 
 USES FUNCTION Hyperslab_Get
-USES FUNCTION Hyperslab_DefineLocalMappingByIndex
+USES FUNCTION Hyperslab_LocalMappingByIndex
 USES FUNCTION Hyperslab_FreeMapping
diff --git a/src/Output.c b/src/Output.c
index 90a0b8a..4b5e4db 100644
--- a/src/Output.c
+++ b/src/Output.c
@@ -421,16 +421,16 @@ static int DumpVar (const cGH *GH, const ioRequest *request, const char *alias)
   }
 
   /* define the hyperslab mapping */
-  mapping = Hyperslab_DefineLocalMappingByIndex (GH, request->vindex,
-                                                 request->hdim,
-                                                 request->direction,
-                                                 request->origin,
-                                                 request->extent,
-                                                 request->downsample,
-                                                 -1, NULL,
-                                                 request->hsize_chunk,
-                                                 request->hsize,
-                                                 request->hoffset);
+  mapping = Hyperslab_LocalMappingByIndex (GH, request->vindex,
+                                           request->hdim,
+                                           request->direction,
+                                           request->origin,
+                                           request->extent,
+                                           request->downsample,
+                                           -1, NULL,
+                                           request->hsize_chunk,
+                                           request->hsize,
+                                           request->hoffset);
   if (mapping < 0)
   {
     fullname = CCTK_FullName (request->vindex);
-- 
cgit v1.2.3