Changeset 1816 in Sophya for trunk/SophyaExt/FitsIOServer/datacirclefits.cc

Timestamp:

Dec 16, 2001, 11:32:07 PM (24 years ago)

Author:

ansari

Message:

remplacement nint() qui n'existe que sous OSF par l_ft_nint() ds datacirclefits.cc - Reza 16/12/01

File:

• trunk/SophyaExt/FitsIOServer/datacirclefits.cc (modified) (3 diffs)

trunk/SophyaExt/FitsIOServer/datacirclefits.cc

@@ -5 +5 @@
    Class used to recover the circles and measures involved in a mission. The parameters needful to create a circle and the number of samples on this circle are read from a FITS data array. In addition, a function returns the measurement at a given angular position psi on the circle.
 */
+
+/* La fonction nint(double) n'existe pas partout ! */
+static long l_ft_nint(double x)
+{
+return ( (x < 0.) ? (long)(x-0.5) : (long)(x+0.5) ) ;
+}
+
 
 DataCircleFits::DataCircleFits() : 
@@ -83 +90 @@
 
   double dtab;
-  int ibin= nint(psi*_NMeasurements/(2.*M_PI));
+  int ibin= l_ft_nint(psi*_NMeasurements/(2.*M_PI));
   //cout << " ibin= " << ibin << ", " << psi << endl;
 
@@ -128 +135 @@
     exit(0);
   }
-  int ibin= nint(psi*_NMeasurements/(2.*M_PI));
+  int ibin= l_ft_nint(psi*_NMeasurements/(2.*M_PI));
   return _mesures[ibin];
 }