Changeset 3644

Timestamp:

04/30/10 12:01:14 (15 years ago)

Author:

jschierm

Message:

Scotch: removed high-level debug messages.

File:

• issm/trunk/externalpackages/scotch/gmapx.c (modified) (11 diffs)

issm/trunk/externalpackages/scotch/gmapx.c

@@ -230 +230 @@
   SCOTCH_stratInit (&stradat);                    /* Set default mapping strategy */
 
-  printf("point 0: C_FILENBR=%d, C_fileNbr=%d, C_paraNbr=%d\n",
-         C_FILENBR,C_fileNbr,C_paraNbr);
   for (i = 0; i < C_FILENBR; i ++)                /* Set default stream pointers */
     C_fileTab[i].pntr = (C_fileTab[i].mode[0] == 'r') ? stdin : stdout;
   for (i = 1; i < argcm; i ++) {                   /* Loop for all option codes                        */
-  printf("point 1: i=%d; C_fileNbr=%d, C_fileNum=%d, C_paraNbr=%d, C_paraNum=%d\n",
-         i,C_fileNbr,C_fileNum,C_paraNbr,C_paraNum);
     if ((argvm[i][0] != '-') || (argvm[i][1] == '\0') || (argvm[i][1] == '.')) { /* If found a file name */
-  printf("point 2: i=%d; C_fileNbr=%d, C_fileNum=%d, C_paraNbr=%d, C_paraNum=%d\n",
-         i,C_fileNbr,C_fileNum,C_paraNbr,C_paraNum);
       if (C_paraNum < C_paraNbr) {                /* If number of parameters not reached              */
         if ((C_partNbr = atoi (argvm[i])) < 1)     /* Get the number of parts                          */
@@ -246 +240 @@
         continue;                                 /* Process the other parameters */
       }
-  printf("point 3: i=%d; C_fileNbr=%d, C_fileNum=%d, C_paraNbr=%d, C_paraNum=%d\n",
-         i,C_fileNbr,C_fileNum,C_paraNbr,C_paraNum);
       if (C_fileNum < C_fileNbr)                  /* A file name has been given */
         C_fileTab[C_fileNum ++].name = argvm[i];
       else
         errorPrint ("main: too many file names given");
-  printf("point 4: i=%d; C_fileNbr=%d, C_fileNum=%d, C_paraNbr=%d, C_paraNum=%d\n",
-         i,C_fileNbr,C_fileNum,C_paraNbr,C_paraNum);
     }
     else {                                        /* If found an option name */
@@ -314 +304 @@
     }
   }
-  printf("point 5\n");
   if ((flagval & C_FLAGPART) != 0) {              /* If program run as the partitioner            */
     C_fileTab[3].name = C_fileTab[2].name;        /* Put provided file names at their right place */
@@ -320 +309 @@
     C_fileTab[1].name = "-";
   }
-  printf("point 6\n");
 
   fileBlockOpen (C_fileTab, C_FILENBR);           /* Open all files */
-  for (i=0; i<C_FILENBR; i++)
-    printf("C_fileTab[%d]: name=\"%s\",pntr=%p,mode=\"%s\"\n",
-           i,C_fileTab[i].name,C_fileTab[i].pntr,C_fileTab[i].mode);
-  printf("point 7\n");
 
   clockInit  (&runtime[0]);
   clockStart (&runtime[0]);
-  printf("point 8\n");
 
   SCOTCH_graphInit (&grafdat);                    /* Create graph structure         */
   SCOTCH_graphLoad (&grafdat, C_filepntrsrcinp, -1, grafflag, nvert, nedge2, adjir, adjjc, vertlab, vertwgt, edgewgt); /* Read source graph */
 
-  printf("point 9\n");
   SCOTCH_archInit (&archdat);                     /* Create architecture structure          */
   if ((flagval & C_FLAGPART) != 0)                /* If program run as the partitioner      */
@@ -341 +323 @@
   else
     SCOTCH_archLoad (&archdat, C_filepntrtgtinp, archtyp, napar, archpar); /* Read target architecture */
-  printf("point 10\n");
 
   clockStop  (&runtime[0]);                       /* Get input time */
@@ -347 +328 @@
   clockStart (&runtime[1]);
 
-  printf("point 10a\n");
   SCOTCH_graphMapInit    (&grafdat, &mapdat, &archdat, NULL);
-  printf("point 10b\n");
   SCOTCH_graphMapCompute (&grafdat, &mapdat, &stradat); /* Perform mapping */
-  printf("point 11\n");
 
   clockStop  (&runtime[1]);                       /* Get computation time */
@@ -360 +338 @@
 /*  convert output arguments from scotch data types  */
 
-/*  for (i=0; i<nvert; i++)
-    printf("maptab[%d][0]=%d, maptab[%d][1]=%d\n",
-           i,maptab[i][0],i,maptab[i][1]); */
   if (maptab) {
     *pmaptabi = (int (*)[2]) malloc(nvert*2*sizeof(int));
@@ -371 +346 @@
     free(maptab);
   }
-  printf("point 12\n");
 
   clockStop (&runtime[0]);                        /* Get output time */
@@ -380 +354 @@
     putc ('\n', C_filepntrlogout);
   }
-  printf("point 13\n");
   if (flagval & C_FLAGVERBTIM) {
     fprintf (C_filepntrlogout, "T\tMapping\t\t%g\nT\tI/O\t\t%g\nT\tTotal\t\t%g\n",
@@ -388 +361 @@
              (double) clockVal (&runtime[1]));
   }
-  printf("point 14\n");
   if (flagval & C_FLAGVERBMAP)
     SCOTCH_graphMapView (&grafdat, &mapdat, C_filepntrlogout);
-  printf("point 15\n");
 
   fileBlockClose (C_fileTab, C_FILENBR);          /* Always close explicitely to end eventual (un)compression tasks */
 
-  printf("point 16\n");
   SCOTCH_graphMapExit (&grafdat, &mapdat);
-  printf("point 16a\n");
   SCOTCH_graphExit    (&grafdat);
-  printf("point 16b\n");
   SCOTCH_stratExit    (&stradat);
-  printf("point 16c\n");
   SCOTCH_archExit     (&archdat);
-  printf("point 17\n");
 
   if (archpar) free(archpar);
@@ -415 +381 @@
   pthread_exit ((void *) 0);                      /* Allow potential (un)compression tasks to complete */
 #endif /* COMMON_PTHREAD */
-  printf("point 18\n");
   return (0);
 }