Changeset 2419 in Sophya for trunk/SophyaPI/PIext/pawexecut.cc

Timestamp:

Jul 21, 2003, 11:13:10 PM (22 years ago)

Author:

cmv

Message:

• introduction notion de numero de ligne dans expression ntuple modif prototype PlotExprFunc NTLoopExprFunc (add _nl _nstart _nend) modif int_4 -> int_8_exprf (long long) pour _nl (DecodeLoopParameters,

PrepareNTExpressionCFile, LinkExprFunc,...)

• doc pour _nl _nstart _nend et arragement repartition RegisterHelp/RegisterCommand

(rz + cmv 21/7/2003)

File:

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

trunk/SophyaPI/PIext/pawexecut.cc

@@ -501 +501 @@
 
 // evenements a utiliser
-int_4 k1=0, k2=objnt->NbLines(), dk=1;
+int_8 k1=0, k2=objnt->NbLines(), dk=1;
 srvo.DecodeLoopParameters(loop,k1,k2,dk);
 if (k1<0) k1=0;
 if (k2<0) k2=objnt->NbLines();
-if (k2>(int)objnt->NbLines()) k2=objnt->NbLines();
+if (k2>(int_8)objnt->NbLines()) k2=objnt->NbLines();
 if (dk<=0) dk=1;
 
@@ -522 +522 @@
   double xnt[5]={0,0,0,0,0};
   double* xn;
-  for(int_4 k=k1; k<k2; k += dk)    {
+  for(int_8 k=k1; k<k2; k += dk)    {
     xn = objnt->GetLineD(k);
-    if(f(xn,xnt,xnt+1,xnt+2,xnt+3) != 0) {
+    if(f((int_8_exprf)k,xn,xnt,xnt+1,xnt+2,xnt+3) != 0) {
       if(fout) fprintf(fout,"%d ",k); else printf("%d ",k);
       for(i=0;i<(int)varnum.size();i++) {