58 for( nelem=ipISO; nelem <
LIMELM; nelem++ )
65 for( ipLo=0; ipLo < ipHi - 1; ipLo++ )
68 if(
Transitions[ipISO][nelem][ipHi][ipLo].ipCont > 0 )
70 OneLine =
Transitions[ipISO][nelem][ipHi][ipLo].Emis->pump*
75 accel_iso[ipISO] += OneLine;
87 accel_iso[ipISO] += OneLine;
93 accel_iso[ipISO] *=
EN1RYD;
119 for( i=0; i <
nUTA; i++ )
168 fe2drive + h2drive + AllRest;