diff --git a/src/nucsyn/nucsyn_burn_helium.c b/src/nucsyn/nucsyn_burn_helium.c index 99466f49651cec8c2d252319f2f236e5d6285c64..e0ba2a650e3f0ca3230a3b3b211711beec437774 100644 --- a/src/nucsyn/nucsyn_burn_helium.c +++ b/src/nucsyn/nucsyn_burn_helium.c @@ -109,7 +109,7 @@ static void helium_Jacobian(double *const*const RESTRICT J, const double * RESTRICT const N, const double * RESTRICT const sigmav) { - const double y2 = 3.0 * Pow2(N[XHe4]) * sigmav[SIGMAV_3He4]; + const double dummy0 = 3.0 * Pow2(N[XHe4]) * sigmav[SIGMAV_3He4]; const double dummy1 = sigmav[SIGMAV_C12_He4] * N[XC12]; const double dummy2 = sigmav[SIGMAV_O16_He4] * N[XO16]; const double dummy3 = sigmav[SIGMAV_Ne20_He4] * N[XNe20]; @@ -118,7 +118,7 @@ static void helium_Jacobian(double *const*const RESTRICT J, const double dummy6 = sigmav[SIGMAV_Ne20_He4] * N[XHe4]; J[1][1] = - -3.0 * y2 + -3.0 * dummy0 -dummy1 -dummy2 -dummy3; @@ -128,10 +128,10 @@ static void helium_Jacobian(double *const*const RESTRICT J, J[1][5] = 0.0; J[2][1] = - + y2 + + dummy0 - dummy1; J[2][2] = - dummy4; - J[2][3] = - dummy5; + J[2][3] = 0.0; J[2][4] = 0.0; J[2][5] = 0.0; @@ -150,9 +150,9 @@ static void helium_Jacobian(double *const*const RESTRICT J, - dummy3; J[4][2] = 0.0; J[4][3] = - - dummy5; + + dummy5; J[4][4] = - + dummy6; + - dummy6; J[4][5] = 0.0; J[5][1] = dummy3; diff --git a/src/nucsyn/nucsyn_hbb.c b/src/nucsyn/nucsyn_hbb.c index f7972f4ed36975fc9c84480625e62a87ec84d59d..2a9bf9e55e5a2289fc6240d5cfe63d594fd4667b 100644 --- a/src/nucsyn/nucsyn_hbb.c +++ b/src/nucsyn/nucsyn_hbb.c @@ -29,7 +29,7 @@ void nucsyn_hbb(const double T, /* (log10) temperature */ const Nuclear_mass * mnuc = stardata->store->mnuc; const Nuclear_mass *imnuc = stardata->store->imnuc; - +//#define __TEST_HE_BURN #ifdef __TEST_HE_BURN Abundance * X = New_clear_isotope_array; Number_density * N = New_isotope_array; @@ -39,10 +39,10 @@ void nucsyn_hbb(const double T, /* (log10) temperature */ X[XHe4] = 1.0; X_to_N(imnuc,testrho,N,X,ISOTOPE_ARRAY_SIZE); - const double timemax = 1000; + const double timemax = 100; double time = 0.0; - double dtime = timemax/1000.0; - double logtemp = log10(3e8); + double dtime = timemax/100.0; + double logtemp = log10(1e9); while(time < timemax) {