26 static long int nZoneEval=-1;
27 if(
nzone==nZoneEval )
34 for( nelem=ipISO; nelem<
LIMELM; ++nelem )
45 iso.
pestrk[ipISO][nelem][ipHi][ipLo] = 0.;
46 iso.
pestrk[ipISO][nelem][ipLo][ipHi] = 0.;
61 ah *= pow( (
double)(nelem+1), -4.5 );
65 stark = 0.264*pow(ah,0.4);
116 if(
Transitions[ipISO][nelem][ipHi][ipLo].ipCont <= 0 )
119 aa = stark*
iso.
strkar[ipISO][nelem][ipLo][ipHi]*
134 iso.
pestrk[ipISO][nelem][ipLo][ipHi] = 0.;
135 iso.
pestrk[ipISO][nelem][ipHi][ipLo] = 0.;