19 for( i=0; i <
rfield.nflux; i++ )
21 if(
rfield.flux[0][i] < 0. )
23 fprintf(
ioQQQ,
" FLUX negative, value, freq, pointer=%10.2e%10.2e%5ld %4.4s %4.4s\n",
28 else if(
rfield.otslin[i] < 0. )
30 fprintf(
ioQQQ,
" OTSLIN negative, value, freq, pointer=%10.2e%10.2e%5ld\n",
34 else if(
rfield.otscon[i] < 0. )
36 fprintf(
ioQQQ,
" OTSCON negative, value, freq, pointer=%10.2e%10.2e%5ld\n",
40 else if(
rfield.SummedCon[i] < 0. )
42 fprintf(
ioQQQ,
" OUTCON negative, value, freq, pointer=%10.2e%10.2e%5ld\n",
46 else if(
rfield.ConInterOut[i] < 0. )
48 fprintf(
ioQQQ,
" OUTCON negative, value, freq, pointer=%10.2e%10.2e%5ld\n",
52 else if(
rfield.outlin[0][i] < 0. )
54 fprintf(
ioQQQ,
" OUTLIN negative, value, freq, pointer=%10.2e%10.2e%5ld\n",
62 fprintf(
ioQQQ,
" No parts of the continuum were negative, the electron density was%10.2e te=%10.2e\n",
64 fprintf(
ioQQQ,
" This is zone number%4ld\n",
nzone );
#define DEBUG_ENTRY(funcname)