00001 /* This file is part of Cloudy and is copyright (C)1978-2013 by Gary J. Ferland and 00002 * others. For conditions of distribution and use see copyright notice in license.txt */ 00003 /*CoolCoba compute cobalt cooling */ 00004 #include "cddefines.h" 00005 #include "taulines.h" 00006 #include "lines_service.h" 00007 #include "cooling.h" 00008 #include "atoms.h" 00009 00010 void CoolCoba(void) 00011 { 00012 00013 DEBUG_ENTRY( "CoolCoba()" ); 00014 00015 /* [Co XI] 5168.A 00016 * Y(ik) from 00017 * >>refer co11 as Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */ 00018 PutCS(1.36, TauLines[ipCo11527]); 00019 atom_level2( TauLines[ipCo11527]); 00020 return; 00021 }