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

Timestamp:

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

Author:

ansari

Message:

SST

File:

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

trunk/Poubelle/archTOI.old/gaussj.c

@@ -4 +4 @@
 #define SWAP(a,b) {temp=(a);(a)=(b);(b)=temp;}
 
-void gaussj(float **a, int n, float **b, int m)
+void gaussj(double **a, int n, double **b, int m)
 {
         int *indxc,*indxr,*ipiv;
         int i,icol,irow,j,k,l,ll;
-        float big,dum,pivinv,temp;
+        double big,dum,pivinv,temp;
 
         indxc=ivector(1,n);