Changeset 2096 for branches/newmole/source/radius_increment.cpp
- Timestamp:
- 05/30/08 07:04:12 (7 months ago)
- Files:
-
- 1 modified
-
branches/newmole/source/radius_increment.cpp (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/newmole/source/radius_increment.cpp
r2089 r2096 105 105 * change is to only do this branch if abundance is large enough to be detected by 106 106 * the ionization convergence solvers */ 107 const realnum err_tol = 1e-2 ;107 const realnum err_tol = 1e-2f; 108 108 /* >>chng 05 sep 02, when low-T solver used solution is approximate, 109 109 * and it must not matter (lot-T solver should not be used if it … … 114 114 for (long n=0; n<iso.numLevels_local[ipISO][nelem]; ++n) 115 115 { 116 abund += StatesElem[ipISO][nelem][n].Pop;116 abund += (realnum)StatesElem[ipISO][nelem][n].Pop; 117 117 } 118 118 //fprintf(ioQQQ,"%.2f %ld %ld %11.4g %11.4g\n",fnzone,ipISO,nelem,
