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 );
80 if( (*
TauLines[i].Hi()).IonStg() <= 0 )
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" );
753 TauLine2[i].Emis().TauTot() = 1e20f;
760 TauLine2[i].Emis().Pelec_esc() = 0.;
773 TauLine2[i].Emis().xIntensity() = 0.;
781 for( i=0; i <
nUTA; i++ )
807 UTALines[i].Emis().TauTot() = 1e20f;
814 UTALines[i].Emis().Pelec_esc() = 0.;
829 UTALines[i].Emis().xIntensity() = 0.;
855 if(
HFLines[i].Emis().gf() < 0. )
872 HFLines[i].Emis().ColOvTot()=0;
874 HFLines[i].Emis().TauTot() = 1e20f;
878 HFLines[i].Emis().FracInwd() = 1.;
880 HFLines[i].Emis().Pdest() = 0.;
881 HFLines[i].Emis().Pelec_esc() = 0.;
889 HFLines[i].Emis().PopOpc() = 0.;
894 HFLines[i].Emis().xIntensity() = 0.;
896 HFLines[i].Emis().phots() = 0.;