UNIFAC parameters module
Instances of the yaeos GeGCModelParameters with the classic liquid-vapor UNIFAC parameters.
use yaeos__models_ge_group_contribution_unifac_parameters, only: UNIFACParameters
use yaeos__models_ge_group_contribution_model_parameters, only: GeGCModelParameters
type(GeGCModelParameters) :: parameters
parameters = UNIFACParameters()
! Get the maingroups i:1, j:7 interaction parameter aij (CH2-H2O)
print *, parameters%get_maingroups_aij(1, 7) ! prints: 1318.0000