From: schnorr <schnorr@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Fri, 29 Oct 2010 15:08:15 +0000 (+0000)
Subject: adding more categories to instrumented NAS DT benchmark
X-Git-Tag: v3_5~345
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/536b583c5b6a90e0ace30a23a77e06a3859289d7

adding more categories to instrumented NAS DT benchmark

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@8480 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---

diff --git a/examples/smpi/NAS/DT-trace/dt.c b/examples/smpi/NAS/DT-trace/dt.c
index b830b8908a..f649670947 100644
--- a/examples/smpi/NAS/DT-trace/dt.c
+++ b/examples/smpi/NAS/DT-trace/dt.c
@@ -539,6 +539,7 @@ int SendResults(DGraph *dg,DGNode *nd,Arr *feat){
   DGArc *ar=NULL;
   DGNode *head=NULL;
   if(!feat) return 0;
+  TRACE_smpi_set_category ("SendResults");
   for(i=0;i<nd->outDegree;i++){
     ar=nd->outArc[i];
     if(ar->tail!=nd) continue;
@@ -549,6 +550,7 @@ int SendResults(DGraph *dg,DGNode *nd,Arr *feat){
       MPI_Send(feat->val,feat->len,MPI_DOUBLE,head->address,tag,MPI_COMM_WORLD);
     }
   }
+  TRACE_smpi_set_category (NULL);
   return 1;
 }
 Arr* CombineStreams(DGraph *dg,DGNode *nd){
@@ -607,6 +609,8 @@ double ReduceStreams(DGraph *dg,DGNode *nd){
   Arr *feat=NULL;
   double retv=0.0;
 
+  TRACE_smpi_set_category ("ReduceStreams");
+
   for(i=0;i<nd->inDegree;i++){
     ar=nd->inArc[i];
     if(ar->head!=nd) continue;
@@ -637,6 +641,9 @@ int ProcessNodes(DGraph *dg,int me){
   double rchksum=0.0;
   MPI_Status status;
 
+  TRACE_smpi_set_category ("ProcessNodes");
+
+
   for(i=0;i<dg->numNodes;i++){
     nd=dg->node[i];
     if(nd->address!=me) continue;
@@ -652,6 +659,10 @@ int ProcessNodes(DGraph *dg,int me){
       SendResults(dg,nd,feat);
     }
   }
+
+  TRACE_smpi_set_category ("ProcessNodes");
+
+
   if(me==0){ /* Report node */
     rchksum=0.0;
     chksum=0.0;
@@ -679,7 +690,7 @@ int main(int argc,char **argv ){
     MPI_Init( &argc, &argv );
     MPI_Comm_rank( MPI_COMM_WORLD, &my_rank );
     MPI_Comm_size( MPI_COMM_WORLD, &comm_size );
-    TRACE_smpi_set_category ("start");
+    TRACE_smpi_set_category ("begin");
 
      if(argc!=2||
                 (  strncmp(argv[1],"BH",2)!=0
@@ -731,9 +742,8 @@ int main(int argc,char **argv ){
       timer_start(0);
     }
 
-    TRACE_smpi_set_category ("dt");
     verified=ProcessNodes(dg,my_rank);
-    TRACE_smpi_set_category ("finalize");
+    TRACE_smpi_set_category ("end");
  
     featnum=NUM_SAMPLES*fielddim;
     bytes_sent=featnum*dg->numArcs;