Changeset d2f1b1 for pcp/src/perturbed.c

Timestamp:

Apr 22, 2008, 11:14:02 AM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

8786c3

Parents:

0da6d5

Message:

fixed some Free(.."bla") to show correct function name

File:

• pcp/src/perturbed.c (modified) (3 diffs)

pcp/src/perturbed.c

@@ -2763 +2763 @@
   UnLockDensityArray(Dens0,GapDownDensity,real); // Psip1R
 //  for (i=0;i<Num;i++)
-//    if (x_l[i] != NULL) Free(x_l[i], "bla", "bla");         
-//  Free(x_l, "bla");
+//    if (x_l[i] != NULL) Free(x_l[i], "FillDeltaCurrentDensity: x_l[i]");         
+//  Free(x_l, "FillDeltaCurrentDensity: x_l");
   gsl_multimin_fdfminimizer_free (minset);
   gsl_vector_free (x);            
@@ -2841 +2841 @@
   recvbuf = (double *) Malloc(gsize * p_num * sizeof(double), "CalculateOverlap: recvbuf");
   MPI_Allgather(sendbuf, p_num, MPI_DOUBLE, recvbuf, p_num, MPI_DOUBLE, P->Par.comm_ST_PsiT);
-  Free(sendbuf, "bla");
+  Free(sendbuf, "CalculateOverlap: sendbuf");
   for (i=0;i<gsize;i++) {// extract results from other processes out of receiving buffer
     m = recvbuf[i*p_num]; // m is ActNum of the process whose results we've just received
@@ -2848 +2848 @@
       Psi->Overlap[m][j-1] = Psi->Overlap[j-1][m] = recvbuf[i*p_num+j]; // put each entry into correspondent Overlap row
   }
-  Free(recvbuf, "bla");
+  Free(recvbuf, "CalculateOverlap: recvbuf");
 }