Changeset 682 for trunk/source/atmdat_adfa.cpp

Timestamp:

12/05/06 13:33:25 (2 years ago)

Author:

peter

Message:

source/atmdat_adfa.cpp:

Promote ADfA.CF to double precision.

Files:

• trunk/source/atmdat_adfa.cpp (modified) (4 diffs)

trunk/source/atmdat_adfa.cpp

@@ -32 +32 @@
         float STH[NHYDRO_MAX_LEVEL];
         /* coll_ion.dat */
-        float CF[30][30][5];
+        double CF[30][30][5];
 public:
         friend float atmdat_ph1(int i, int j, int k, int l);
@@ -305 +305 @@
                         if( i == -1 && j == -1 )
                                 break;
-                        lgErr = lgErr || ( fscanf( io, "%e %e %e %e %e", &CF[i][j][0], &CF[i][j][1],
+                        lgErr = lgErr || ( fscanf( io, "%le %le %le %le %le", &CF[i][j][0], &CF[i][j][1],
                                                    &CF[i][j][2], &CF[i][j][3], &CF[i][j][4] ) != 5 );
                 }
@@ -925 +925 @@
         double t)
 {
-        float te, 
-          u;
-        double rate;
+        double rate, te, u;
 
 #       ifdef DEBUG_FUN
@@ -965 +963 @@
         }
 
-        te = (float)(t*EVRYD/TE1RYD);
+        te = t*EVRYD/TE1RYD;
         u = ADfA.CF[in-1][iz-1][0]/te;
         if( u > 80.0 )