This routine calculates thermodynamic factor for given mole_frac of all species for single element

Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|

integer, | intent(in) | :: | nFields | number of fields in mixture |
||

real(kind=rk), | intent(in) | :: | temp | mixture temperature |
||

real(kind=rk), | intent(in) | :: | press | mixture pressure |
||

real(kind=rk), | intent(in) | :: | mole_frac(nFields) | mole fraction of all species of single element |
||

real(kind=rk), | intent(out) | :: | therm_factors(nFields,nFields) | thermodynamic factor matrix |

Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|

integer(kind=c_int), | private | :: | nFields_c | ||||

real(kind=c_double), | private | :: | temp_c | ||||

real(kind=c_double), | private | :: | press_c | ||||

real(kind=c_double), | private | :: | mole_frac_c(nFields) | ||||

real(kind=c_double), | private | :: | therm_factors_c(nFields*nFields) | ||||

integer, | private | :: | iField | ||||

integer, | private | :: | iField_2 |