Changeset 2670 in Sophya for trunk/SophyaPI/PIext

Timestamp:

Apr 15, 2005, 4:47:02 PM (20 years ago)

Author:

cmv

Message:

on profite du defaut r_8 pour ntuple cmv 15/04/2005

File:

• trunk/SophyaPI/PIext/pawexecut.cc (modified) (3 diffs)

trunk/SophyaPI/PIext/pawexecut.cc

@@ -687 +687 @@
  char** ntvn = new char*[nvar];
  for(int i=0;i<nvar;i++) ntvn[i] = const_cast<char *>(varname[i].c_str());
- r_4 *xnt = new r_4[nvar];
+ r_8 *xnt = new r_8[nvar];
  NTuple *nt = new NTuple(nvar,ntvn);
 
@@ -800 +800 @@
  NTuple * nt = NULL;
  int nvar=0, nfill=0;
- r_4 *xnt=NULL;
+ r_8 *xnt=NULL;
 
  for(int i=1;i<tokens.size();i++) {
@@ -837 +837 @@
    int nvar1 = nt1->NVar();
    int n = (nvar1>nvar)? nvar1: nvar;
-   r_4 *xnt1 = new r_4[n];
+   r_8 *xnt1 = new r_8[n];
    for(int i=0;i<n;i++) xnt1[i]=0.;
    for(uint_4 iev=0;iev<nt1->NEntry();iev++) {
-     nt1->GetVec(iev,xnt1);
+     nt1->GetVecD(iev,xnt1);
      nt->Fill(xnt1);
    }