30 long int iperm[
NLINE];
43 for(i=0; i<
NLINE; ++i)
54 for(
long ipISO = 0; ipISO<
NISO; ipISO++ )
56 for( nelem=ipISO; nelem <
LIMELM; nelem++ )
65 for( ipLo=0; ipLo < ipHi; ipLo++ )
67 if(
Transitions[ipISO][nelem][ipHi][ipLo].ipCont <= 0 )
73 if(
Transitions[ipISO][nelem][ipHi][ipLo].Emis->PopOpc > smallfloat &&
75 ( (
Transitions[ipISO][nelem][ipHi][ipLo].Emis->TauTot -
Transitions[ipISO][nelem][ipHi][ipLo].Emis->TauIn) > smallfloat ) )
81 wl[ip] =
Transitions[ipISO][nelem][ipHi][ipLo].WLAng;
87 ip =
MIN2((
long)NLINE-1,ip+1);
116 ip =
MIN2((
long)NLINE-1,ip+1);
141 ip =
MIN2((
long)NLINE-1,ip+1);
148 if(
HFLines[i].Hi->Pop > 1e-30 )
165 ip =
MIN2((
long)NLINE-1,ip+1);
189 ip =
MIN2((
long)NLINE-1,ip+1);
200 strcpy(chLab[ip],
"H2 ");
203 ip =
MIN2((
long)NLINE-1,ip+1);
225 ip =
MIN2((
long)NLINE-1,ip+1);
248 ip =
MIN2((
long)NLINE-1,ip+1);
271 fprintf(
ioQQQ,
" P(Lines):" );
272 for( i=0; i <
MIN2(10,ip); i++ )
274 int ipline = iperm[i];
275 fprintf(
ioQQQ,
"(%4.4s ", chLab[ipline]);
277 fprintf(
ioQQQ,
" %.2f) ",frac[ipline]);
281 fprintf(
ioQQQ,
"\n" );