00001 /* This file is part of Cloudy and is copyright (C)1978-2010 by Gary J. Ferland and00002 * others. For conditions of distribution and use see copyright notice in license.txt */00003 /*ion_zero zero out heating save arrays */00004 #include "cddefines.h"00005 #include "thermal.h"00006 #include "ionbal.h"00007
00008voidion_zero(longint nelem)
00009 {
00010 longint i;
00011
00012 DEBUG_ENTRY( "ion_zero()" );
00013
00014 /* heating array, but only for direct photoionization */00015 for( i=0; i < nelem; i++ )
00016 {
00017 thermal.heating[nelem][i] = 0.;
00018 }
00019 return;
00020 }