Changeset 20936 for trunk/Ohana/src/opihi/cmd.astro/imfit-vgauss.c

Timestamp:

Dec 7, 2008, 3:31:01 PM (18 years ago)

Author:

eugene

Message:

big update from eam_branch_20081124 with updates to Opihi math

File:

• trunk/Ohana/src/opihi/cmd.astro/imfit-vgauss.c (modified) (2 diffs)

trunk/Ohana/src/opihi/cmd.astro/imfit-vgauss.c

@@ -1 +1 @@
 # include "imfit.h"
 
-float vgaussTD (float, float, float *, int, float *);
+opihi_flt vgaussTD (opihi_flt, opihi_flt, opihi_flt *, int, opihi_flt *);
 void  vgaussCL ();
 
@@ -25 +25 @@
 }
 
-/* pseudo 2D gaussian with floating 2nd and 3rd order terms -- x, y, sx, sy, sxy, I, sky, f1, f2 */
-float vgaussTD (float x, float y, float *par, int Npar, float *dpar) {
+/* pseudo 2D gaussian with opihi_flting 2nd and 3rd order terms -- x, y, sx, sy, sxy, I, sky, f1, f2 */
+opihi_flt vgaussTD (opihi_flt x, opihi_flt y, opihi_flt *par, int Npar, opihi_flt *dpar) {
 
-  float X, Y, px, py;
-  float z, r, q, f, k;
+  opihi_flt X, Y, px, py;
+  opihi_flt z, r, q, f, k;
 
   X = x - par[0];