23 static bool lgFirst =
true;
48 fprintf(
ioQQQ,
" PROBLEM Insane value for TauLines array.\n" );
49 fprintf(
ioQQQ,
" Was block data LineData linked in??\n" );
50 fprintf(
ioQQQ,
" Check that it compiled OK (it probably did not).\n" );
61 fprintf(
ioQQQ,
" routine lines_setup, insane lower stat wght\n" );
62 fprintf(
ioQQQ,
" line index is %5ld\n", i );
68 fprintf(
ioQQQ,
" routine lines_setup, insane upper stat wght\n" );
69 fprintf(
ioQQQ,
" line index is %5ld\n", i );
75 fprintf(
ioQQQ,
" routine lines_setup, insane energy WN\n" );
76 fprintf(
ioQQQ,
" line index is %5ld\n", i );
82 fprintf(
ioQQQ,
" routine lines_setup, insane ioniz stage\n" );
83 fprintf(
ioQQQ,
" line index is %5ld\n", i );
89 fprintf(
ioQQQ,
" routine lines_setup, insane Nelem\n" );
90 fprintf(
ioQQQ,
" line index is %5ld\n", i );
96 fprintf(
ioQQQ,
" routine lines_setup, insane IonStg>Nelem\n" );
97 fprintf(
ioQQQ,
" line index is %5ld\n", i );
101 if(
TauLines[i].Emis->iRedisFun == 0 )
103 fprintf(
ioQQQ,
" routine lines_setup, insane line redis fcn\n" );
104 fprintf(
ioQQQ,
" line index is %5ld\n", i );
122 enum{DEBUG_LOC=
false};
128 fprintf(
ioQQQ,
"%s ", chString );
137 fprintf(
ioQQQ,
" Insane value for line arrays encountered.\n" );
138 fprintf(
ioQQQ,
" Was block data lines linked in??\n" );
139 fprintf(
ioQQQ,
" Were errors intreoducted into the line array?\n" );
1073 for( i=0; i <
nUTA; i++ )
1145 if(
HFLines[i].Emis->gf < 0. )
1217 if(
TauLines[i].Hi->nelem == (
int)nelem &&
1219 fabs(
TauLines[i].WLAng - wl) <0.1 )
1228 " ipFindLevLine could not find a line with following properties:\n"
1231 " atomic num=%li\n",
1255 bool lgAbort_loc=
false;
1265 fprintf(
ioQQQ,
"PROBLEM endFindLevLine warning; line %li not claimed\n",i);
1267 " line had the following properties:\n"
1283 fprintf(
ioQQQ,
" problems found entering the data. I live in lines_setup.c\n");