00001 00002 //=======================================================// _\|/_ 00003 // __ _____ ___ ___ // /|\ ~ 00004 // / | ^ | \ | ^ | \ // _\|/_ 00005 // \__ | / \ |___/ | / \ |___/ // /|\ ~ 00006 // \ | /___\ | \ | /___\ | \ // _\|/_ 00007 // ___/ | / \ | \ |____ / \ |___/ // /|\ ~ 00008 // // _\|/_ 00009 //=======================================================// /|\ ~ 00010 00011 // dyn_story.C: initialization of system parameters from input snapshots. 00012 // 00013 // Externally visible functions: 00014 // 00015 // void check_addstar // check and set stellar properties 00016 00017 #include "dyn.h" 00018 #include "star/sstar_to_dyn.h" 00019 00020 void check_addstar(dyn* b) 00021 { 00022 // Check for and add stellar properties. 00023 00024 if(find_qmatch(b->get_oldest_daughter() 00025 ->get_starbase()->get_star_story(), "Type")) { 00026 00027 real T_start = 0; 00028 00029 addstar(b, // Note that T_start and 00030 T_start, // Main_Sequence are 00031 Main_Sequence, // defaults. They are 00032 true); // ignored if a star 00033 b->set_use_sstar(true); // is there. 00034 } 00035 }