Changeset 64fa9e for pcp/src/pseudo.c

Timestamp:

Apr 21, 2008, 2:19:24 PM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

e00f47

Parents:

32de28

git-author:

Frederik Heber <heber@…> (04/18/08 14:51:49)

git-committer:

Frederik Heber <heber@…> (04/21/08 14:19:24)

Message:

Free(): now takes a debug string to know where free error occured

File:

• pcp/src/pseudo.c (modified) (1 diff)

pcp/src/pseudo.c

@@ -678 +678 @@
   struct Ions *I = &P->Ion;
   struct Lattice *Lat = &P->Lat;
-  Free(PP->integrand1);
-  Free(PP->integrand);
-  Free(PP->dfnl); 
-  Free(PP->rr);
-  Free(PP->t);
+  Free(PP->integrand1, "RemovePseudoRead: PP->integrand1");
+  Free(PP->integrand, "RemovePseudoRead: PP->integrand");
+  Free(PP->dfnl, "RemovePseudoRead: PP->dfnl"); 
+  Free(PP->rr, "RemovePseudoRead: PP->rr");
+  Free(PP->t, "RemovePseudoRead: PP->t");
   for (i=0; i< Lat->Psi.LocalNo+1; i++) {
     for (it=0; it < I->Max_Types; it++) {
       for (il =0; il < PP->lm_end[it]; il++) 
-        Free(PP->fnl[i][it][il]);
-      Free(PP->fnl[i][it]);
-    }
-    Free(PP->fnl[i]); 
+        Free(PP->fnl[i][it][il], "RemovePseudoRead: PP->fnl[i][it][il]");
+      Free(PP->fnl[i][it], "RemovePseudoRead: PP->fnl[i][it]");
+    }
+    Free(PP->fnl[i], "RemovePseudoRead: PP->fnl[i]"); 
   }
   for (it=0; it < I->Max_Types; it++) {
     if (I->I[it].corecorr == CoreCorrected) {
-      Free(PP->corewave[it]);
-      Free(PP->formfCore[it]);
+      Free(PP->corewave[it], "RemovePseudoRead: PP->corewave[it]");
+      Free(PP->formfCore[it], "RemovePseudoRead: PP->formfCore[it]");
     }
   }
   for (it=0; it < I->Max_Types; it++) {
     for (il=0; il < PP->nang[it]; il++) {
-      Free(PP->R[it][il]);
-      Free(PP->v_loc[it][il]);
+      Free(PP->R[it][il], "RemovePseudoRead: PP->R[it][il]");
+      Free(PP->v_loc[it][il], "RemovePseudoRead: PP->v_loc[it][il]");
     }
     for (il=0; il < 3; il++) {
-      Free(PP->rcl[it][il]);
-      Free(PP->al[it][il]);
-      Free(PP->bl[it][il]);
+      Free(PP->rcl[it][il], "RemovePseudoRead: PP->rcl[it][il]");
+      Free(PP->al[it][il], "RemovePseudoRead: PP->al[it][il]");
+      Free(PP->bl[it][il], "RemovePseudoRead: PP->bl[it][il]");
     }
     for (il=0;il<PP->lm_end[it];il++) {
-      //Free(PP->phi_ps_nl[it][il]);
-      Free(PP->phi_ps_nl[it][il]);
+      //Free(PP->phi_ps_nl[it][il], "RemovePseudoRead: PP->phi_ps_nl[it][il]");
+      Free(PP->phi_ps_nl[it][il], "RemovePseudoRead: PP->phi_ps_nl[it][il]");
     }
     for (ia=0;ia<I->I[it].Max_IonsOfType;ia++) {
-      Free(PP->ei[it][ia]);
-      Free(PP->expiGR[it][ia]);
-    }
-    Free(PP->ei[it]);
-    Free(PP->expiGR[it]);
-    //Free(PP->phi_ps_nl[it]);
-    Free(PP->phi_ps_nl[it]);
-    Free(PP->R[it]);
-    Free(PP->v_loc[it]);
-    Free(PP->r[it]);
-    Free(PP->integrand2[it]);
-    Free(PP->rcl[it]);
-    Free(PP->al[it]);
-    Free(PP->bl[it]);
-    Free(PP->FacGauss[it]);
-    Free(PP->phi_ps_loc[it]);
-    Free(PP->core[it]);
-    Free(PP->rc[it]);
-    Free(PP->wNonLoc[it]);
-  }
-  //Free(PP->phi_ps_nl);
-  Free(PP->phi_ps_nl);
-  Free(PP->R);
-  Free(PP->v_loc);
-  Free(PP->r);
-  Free(PP->integrand2);
-  Free(PP->rcl);
-  Free(PP->al);
-  Free(PP->bl);
-  Free(PP->FacGauss);
-  Free(PP->phi_ps_loc);
-  Free(PP->core);
-  Free(PP->rc);
-  Free(PP->wNonLoc);
-  Free(PP->ei);
-  Free(PP->expiGR);
-  Free(PP->corewave);
-  Free(PP->formfCore);
-  Free(PP->fnl); 
-  Free(PP->VCoulombc);
-  Free(PP->lm_end);
-  Free(PP->zval);
-  Free(PP->nang);
-  Free(PP->mmax);
-  Free(PP->clog);
+      Free(PP->ei[it][ia], "RemovePseudoRead: PP->ei[it][ia]");
+      Free(PP->expiGR[it][ia], "RemovePseudoRead: PP->expiGR[it][ia]");
+    }
+    Free(PP->ei[it], "RemovePseudoRead: PP->ei[it]");
+    Free(PP->expiGR[it], "RemovePseudoRead: PP->expiGR[it]");
+    //Free(PP->phi_ps_nl[it], "RemovePseudoRead: PP->phi_ps_nl[it]");
+    Free(PP->phi_ps_nl[it], "RemovePseudoRead: PP->phi_ps_nl[it]");
+    Free(PP->R[it], "RemovePseudoRead: PP->R[it]");
+    Free(PP->v_loc[it], "RemovePseudoRead: PP->v_loc[it]");
+    Free(PP->r[it], "RemovePseudoRead: PP->r[it]");
+    Free(PP->integrand2[it], "RemovePseudoRead: PP->integrand2[it]");
+    Free(PP->rcl[it], "RemovePseudoRead: PP->rcl[it]");
+    Free(PP->al[it], "RemovePseudoRead: PP->al[it]");
+    Free(PP->bl[it], "RemovePseudoRead: PP->bl[it]");
+    Free(PP->FacGauss[it], "RemovePseudoRead: PP->FacGauss[it]");
+    Free(PP->phi_ps_loc[it], "RemovePseudoRead: PP->phi_ps_loc[it]");
+    Free(PP->core[it], "RemovePseudoRead: PP->core[it]");
+    Free(PP->rc[it], "RemovePseudoRead: PP->rc[it]");
+    Free(PP->wNonLoc[it], "RemovePseudoRead: PP->wNonLoc[it]");
+  }
+  //Free(PP->phi_ps_nl, "RemovePseudoRead: PP->phi_ps_nl");
+  Free(PP->phi_ps_nl, "RemovePseudoRead: PP->phi_ps_nl");
+  Free(PP->R, "RemovePseudoRead: PP->R");
+  Free(PP->v_loc, "RemovePseudoRead: PP->v_loc");
+  Free(PP->r, "RemovePseudoRead: PP->r");
+  Free(PP->integrand2, "RemovePseudoRead: PP->integrand2");
+  Free(PP->rcl, "RemovePseudoRead: PP->rcl");
+  Free(PP->al, "RemovePseudoRead: PP->al");
+  Free(PP->bl, "RemovePseudoRead: PP->bl");
+  Free(PP->FacGauss, "RemovePseudoRead: PP->FacGauss");
+  Free(PP->phi_ps_loc, "RemovePseudoRead: PP->phi_ps_loc");
+  Free(PP->core, "RemovePseudoRead: PP->core");
+  Free(PP->rc, "RemovePseudoRead: PP->rc");
+  Free(PP->wNonLoc, "RemovePseudoRead: PP->wNonLoc");
+  Free(PP->ei, "RemovePseudoRead: PP->ei");
+  Free(PP->expiGR, "RemovePseudoRead: PP->expiGR");
+  Free(PP->corewave, "RemovePseudoRead: PP->corewave");
+  Free(PP->formfCore, "RemovePseudoRead: PP->formfCore");
+  Free(PP->fnl, "RemovePseudoRead: PP->fnl"); 
+  Free(PP->VCoulombc, "RemovePseudoRead: PP->VCoulombc");
+  Free(PP->lm_end, "RemovePseudoRead: PP->lm_end");
+  Free(PP->zval, "RemovePseudoRead: PP->zval");
+  Free(PP->nang, "RemovePseudoRead: PP->nang");
+  Free(PP->mmax, "RemovePseudoRead: PP->mmax");
+  Free(PP->clog, "RemovePseudoRead: PP->clog");
 }