Changeset 577 in Sophya for trunk/Poubelle/archTOI.old/lfit.c

Timestamp:

Nov 16, 1999, 2:20:39 PM (26 years ago)

Author:

ansari

Message:

SST

File:

• trunk/Poubelle/archTOI.old/lfit.c (modified) (1 diff)

trunk/Poubelle/archTOI.old/lfit.c

@@ -2 +2 @@
 #include "nrutil.h"
 
-void lfit(float x[], float y[], float sig[], int ndat, float a[], int ia[],
-        int ma, float **covar, float *chisq, void (*funcs)(float, float [], int))
+void lfit(double x[], double y[], double sig[], int ndat, double a[], int ia[],
+        int ma, double **covar, double *chisq, void (*funcs)(double, double [], int))
 {
-        void covsrt(float **covar, int ma, int ia[], int mfit);
-        void gaussj(float **a, int n, float **b, int m);
+        void covsrt(double **covar, int ma, int ia[], int mfit);
+        void gaussj(double **a, int n, double **b, int m);
         int i,j,k,l,m,mfit=0;
-        float ym,wt,sum,sig2i,**beta,*afunc;
+        double ym,wt,sum,sig2i,**beta,*afunc;
 
         beta=matrix(1,ma,1,1);