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

Timestamp:

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

Author:

ansari

Message:

SST

File:

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

trunk/Poubelle/archTOI.old/covsrt.c

@@ -1 +1 @@
 #define SWAP(a,b) {swap=(a);(a)=(b);(b)=swap;}
 
-void covsrt(float **covar, int ma, int ia[], int mfit)
+void covsrt(double **covar, int ma, int ia[], int mfit)
 {
         int i,j,k;
-        float swap;
+        double swap;
 
         for (i=mfit+1;i<=ma;i++)