capi_kd Subroutine
public subroutine capi_kd(T, gas, heavywater, k, size_gas, size_T) bind(C,name="iapws_g704_kd")
Compute the vapor-liquid constant for a given temperature.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=c_double), | intent(in) | :: | T(size_T) |
Temperature in °C. |
||
| type(c_ptr), | intent(in), | value | :: | gas |
Gas. |
|
| integer(kind=c_int), | intent(in), | value | :: | heavywater |
Flag if D2O (1) is used or H2O(0). |
|
| real(kind=c_double), | intent(inout) | :: | k(size_T) |
Vapor-liquid constant. Filled with NaNs if gas not found. |
||
| integer(kind=c_int), | intent(in), | value | :: | size_gas |
Size of the gas string. |
|
| integer(kind=c_size_t), | intent(in), | value | :: | size_T |
Size of T and k. |