From a15b859c0159b82df2581078bda19d9b2cea568c Mon Sep 17 00:00:00 2001 From: Salvador Date: Tue, 22 Oct 2024 14:12:38 -0300 Subject: [PATCH] consistency PSRK with Aij Bij Cij used --- test/test_implementations/ge_models/test_psrk.f90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/test/test_implementations/ge_models/test_psrk.f90 b/test/test_implementations/ge_models/test_psrk.f90 index 6ad6574a..3830f415 100644 --- a/test/test_implementations/ge_models/test_psrk.f90 +++ b/test/test_implementations/ge_models/test_psrk.f90 @@ -62,9 +62,9 @@ subroutine test_psrk_cons_mix(error) molecules(3)%groups_ids = [9, 11] molecules(3)%number_of_groups = [5, 1] - ! ! Cyclohexane [CH2] - molecules(4)%groups_ids = [2] - molecules(4)%number_of_groups = [6] + ! ! Carbon dioxide [CO2] + molecules(4)%groups_ids = [117] + molecules(4)%number_of_groups = [1] parameters = PSRKParameters() @@ -227,15 +227,15 @@ subroutine test_against_caleb_thermo(error) ! ------------------------------------------------------------------------ ! Ge - print *, Ge/n_t + !print *, Ge/n_t call check(error, abs(Ge / n_t - (-3.223992676822129_pr)) <= 1e-5) ! Gen - print *, Gen + !print *, Gen call check(error, allclose(Gen, [10.53032277_pr, -2.37758326_pr, -36.65748951_pr], 1e-5_pr)) ! ln_gammas - print *, Gen/R/T, ln_gammas + !print *, Gen/R/T, ln_gammas call check(error, allclose(Gen / R / T, [0.84433781_pr, -0.19063836_pr, -2.93925506_pr], 1e-5_pr)) call check(error, allclose(ln_gammas, [0.84433781_pr, -0.19063836_pr, -2.93925506_pr], 1e-5_pr))