This routine calculates Diffusivity coefficients matrix 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_dens(nFields) | mole density of all species of single element |
||

real(kind=rk), | intent(out) | :: | D_ij_out(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_dens_c(nFields) | ||||

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

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

integer, | private | :: | iField_2 |