@@ -192,9 +192,9 @@ int CalcEmiss(int *nx, int *ny, int *nz,
192
192
193
193
194
194
/* update the Emissivity_Array with <UV energy weighted by time> */
195
- printf ("before %i %i %i was %22.16e\n" , EmissivityArray [i + * nx * (j + * ny * k )],i ,j ,k );
195
+ /* printf("before %i %i %i was %22.16e\n", EmissivityArray[i + *nx * (j + *ny * k)],i,j,k);*/
196
196
EmissivityArray [i + * nx * (j + * ny * k )] += uv_energy ;
197
- printf ("after %i %i %i is %22.16e\n" , EmissivityArray [i + * nx * (j + * ny * k )],i ,j ,k );
197
+ /* printf("after %i %i %i is %22.16e\n", EmissivityArray[i + *nx * (j + *ny * k)],i,j,k);*/
198
198
}
199
199
}
200
200
else {
@@ -213,18 +213,5 @@ int CalcEmiss(int *nx, int *ny, int *nz,
213
213
*/
214
214
}//100 in Fortran
215
215
216
- //I want a universal translator... for computer languages...
217
-
218
- /*
219
- int emis_x=0, emis_y=0, emis_z=0, emis_index=0;
220
- for(int emis_z=0; emis_z< *nz; emis_z++)
221
- for(int emis_y=0; emis_y< *ny; emis_y++)
222
- for(int emis_x=0; emis_x< *nx; emis_x++){
223
- emis_index = emis_x + *nx*(emis_y + *ny*emis_z);
224
- if(EmissivityArray[emis_index] != 0)
225
- printf("At end of Calc Emiss %0.12"GSYM" at %"ISYM" %"ISYM" %"ISYM"\n", EmissivityArray[emis_index], emis_x, emis_y, emis_z);
226
- }
227
- */
228
-
229
216
return SUCCESS ;
230
217
}
0 commit comments