Changeset 1853 for trunk/source/iso_collide.cpp

Timestamp:

03/17/08 07:39:48 (10 months ago)

Author:

rporter

Message:

A set of changes to iso sequence collisions. The main effects are greater collisional excitation from ground states at kT much less then deltaE and a smoothing of excitation onto "collapsed" levels.

Files:

• trunk/source/iso_collide.cpp (modified) (2 diffs)

trunk/source/iso_collide.cpp

@@ -387 +387 @@
                                         ) / phycon.sqrte*COLL_CONST/(double)StatesElem[ipISO][nelem][ipHi].g );
 
-                                if( ipISO == ipHE_LIKE )
+                                if( ipISO == ipH_LIKE )
+                                {
+                                        if( N_(ipHi) > iso.n_HighestResolved_max[ipISO][nelem] &&
+                                                N_(ipLo) <= iso.n_HighestResolved_max[ipISO][nelem] )
+                                        {
+                                                Transitions[ipISO][nelem][ipHi][ipLo].Coll.ColUL *= 
+                                                        (8.f/3.f)*(log((realnum)N_(ipHi))+2.f);
+                                        }
+                                }
+                                else if( ipISO == ipHE_LIKE )
                                 {
                                         fixit();
@@ -397 +406 @@
                                         {
                                                 Transitions[ipISO][nelem][ipHi][ipLo].Coll.ColUL *=
-                                                        (realnum)( (2./3.)*(log((double)N_(ipHi))+2) );
+                                                        (2.f/3.f)*(log((realnum)N_(ipHi))+2.f);
                                         }
                                 }