Changeset 846 in Sophya for trunk/SophyaLib/HiStats/ntuple.cc

Timestamp:

Apr 10, 2000, 10:36:28 AM (25 years ago)

Author:

ansari

Message:

ajout SetVal pour I/O fichiers fits

File:

• trunk/SophyaLib/HiStats/ntuple.cc (modified) (3 diffs)

trunk/SophyaLib/HiStats/ntuple.cc

@@ -207 +207 @@
 }
 
+/* --Methode-- */
+//++
+void NTuple::SetVal(int n, int k, float value)  
+//
+//      initialise la valeur de la variable `k' de l'evenement `n'.
+//--
+{
+if (n >= mNEnt)   return;
+if ( (k < 0) || (k >= mNVar) )    return;
+int numb = n/mBlk;
+int offb = n-numb*mBlk;
+*(mPtr[numb]+offb*mNVar+k) = value;
+}
 
 /* --Methode-- */
@@ -538 +551 @@
 
 
-/* --Methode-- */
+/* --Methode-- */ 
 //++
 void   ObjFileIO<NTuple>::WriteSelf(POutPersist& s)  const
@@ -602 +615 @@
 }
 
+
 #ifdef __CXX_PRAGMA_TEMPLATES__
 #pragma define_template ObjFileIO<NTuple>