Added new internal pugh function for providing the processor topology for GFs of

a given dimension.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@356 b61c5cb5-eaca-4651-9a7a-d64986f99364

1 files changed, 23 insertions, 0 deletions

diff --git a/src/PughUtils.c b/src/PughUtils.c
index d935cd3..b743bcc 100644
--- a/src/PughUtils.c
+++ b/src/PughUtils.c
@@ -41,6 +41,29 @@ int PUGH_QueryGroupStorage (cGH *GH, int group, const char *groupname);
 void CCTK_FCALL CCTK_FNAME (PUGH_PrintStorage)
                            (cGH *cctkGH);
 
+ /*@@
+   @routine    PUGH_Topology
+   @date       Sunday 28 October 2001
+   @author     Gabrielle Allen
+   @desc 
+   Return the processor topology for grid functions for a given dimension
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+
+int *PUGH_Topology(cGH *GH,int dim)
+{
+  pGH *pughGH;
+
+  pughGH = PUGH_pGH(GH);
+
+  return pughGH->Connectivity[dim-1]->nprocs;
+}
 
  /*@@
    @routine    PUGH_Report