Commit 0fe36bcc authored by Mulas, Giacomo's avatar Mulas, Giacomo
Browse files

correct valgrind omp errors

parent 1e55dd14

src/cluster/cluster.cpp

+9 −7
Original line number Diff line number Diff line
@@ -386,22 +386,24 @@ void cluster(string config_file, string data_file, string output_path) { 
	dcomplex **tqsps_2 = new dcomplex*[2];

	for (int ti = 0; ti < 2; ti++) {

	  tqse_2[ti] = new double[nsph]();

	  tqce_2[ti] = new double[nsph]();

	  tqcs_2[ti] = new double[nsph]();

	  tqce_2[ti] = new double[3]();

	  tqcs_2[ti] = new double[3]();

	  tqspe_2[ti] = new dcomplex[nsph]();

	  tqcpe_2[ti] = new dcomplex[nsph]();

	  tqcps_2[ti] = new dcomplex[nsph]();

	  tqcpe_2[ti] = new dcomplex[3]();

	  tqcps_2[ti] = new dcomplex[3]();

	  tqss_2[ti] = new double[nsph]();

	  tqsps_2[ti] = new dcomplex[nsph]();

	  for (int tj=0; tj<nsph; tj++) {

	    tqse_2[ti][tj] = tqse[ti][tj];

	    tqspe_2[ti][tj] = tqspe[ti][tj];

	    tqss_2[ti][tj] = tqss[ti][tj];

	    tqsps_2[ti][tj] = tqsps[ti][tj];

	  }

	  for (int tj=0; tj<3; tj++) {

	    tqce_2[ti][tj] = tqce[ti][tj];

	    tqcs_2[ti][tj] = tqcs[ti][tj];

	    tqspe_2[ti][tj] = tqspe[ti][tj];

	    tqcpe_2[ti][tj] = tqcpe[ti][tj];

	    tqcps_2[ti][tj] = tqcps[ti][tj];

	    tqss_2[ti][tj] = tqss[ti][tj];

	    tqsps_2[ti][tj] = tqsps[ti][tj];

	  }

	}

	double ****zpv_2 = new double***[c4->lm]; //[gconf->l_max][3][2][2]; // Matrix: dim[LM x 3 x 2 x 2]

src/libnptm/Commons.cpp

+1 −1
Original line number Diff line number Diff line
@@ -328,7 +328,7 @@ C1_AddOns::~C1_AddOns() { 
  for (int ai = nlemt - 1; ai > -1; ai--) {

    delete[] am0m[ai];

  }

  delete am0m;

  delete[] am0m;

  delete[] vint;

  delete[] vintm;

  delete[] vintt;