30 static long int nCoolant = 0;
43 if( strcmp(chJOB,
"ZERO") == 0 )
55 else if( strcmp(chJOB,
"DOIT") == 0 )
57 strcpy( chLabsv[nCoolant], chLabel );
61 sav[nCoolant] = lambda;
65 sav[nCoolant] = lambda/10000.f;
68 csav[nCoolant] = (
realnum)ratio;
72 chSig[nCoolant] =
'n';
76 chSig[nCoolant] =
' ';
85 fprintf(
ioQQQ,
" coolpr ran out of room, increase NCOLSAV.\n" );
91 else if( strcmp(chJOB,
"DONE") == 0 )
94 for( i=0; i < nCoolant; i++ )
97 scratch[i] = (
realnum)fabs(csav[i]);
100 for( i=0; i < nCoolant; i++ )
107 for( j=0; j < nCoolant; j++ )
109 if( scratch[j] > SavMax )
120 scratch[ipAr[i]] = 0.;
124 for( j=0; j < nCoolant; j += 7 )
126 limit =
MIN2(nCoolant,j+7);
128 for( i=j; i < limit; i++ )
143 fprintf( io,
" \n" );
149 fprintf(
ioQQQ,
" coolpr called with insane job =%s=\n",chJOB );
void coolpr(FILE *io, const char *chLabel, realnum lambda, double ratio, const char *chJOB)