Changeset 27838 for branches/tap_branches/Ohana/src/opihi/cmd.astro/petrosian.c

Timestamp:

May 3, 2010, 8:41:49 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/tap_branches

Files:

• . (modified) (1 prop)
• Ohana (modified) (1 prop)
• Ohana/src/opihi/cmd.astro/petrosian.c (modified) (2 diffs)

branches/tap_branches/Ohana/src/opihi/cmd.astro/petrosian.c

@@ -4 +4 @@
   
   int i, above;
-  float *in;
   double Fsum, Asum, Area, R_90, rad_90, flux_90;
   Vector *rvec, *avec, *fvec, *Rvec, *Fvec, *Svec, *Avec;
@@ -40 +39 @@
   ResetVector (Avec, OPIHI_FLT, fvec[0].Nelements);
 
+  flux_90 = rad_90 = 0.0;
+  R_90 = 0.1;
   above = TRUE;
   Fsum = 0.0;