Dummy routine which sets thermodynamic factor matrix to diagonal matrix

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 |