capi__g704 Module

Module for IAPWS G704 : C API.

Uses

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Functions

public function capi_gases(heavywater) result(list_gases) bind(C, name="iapws_g704_gases"))

Returns the list of available gases.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_int),	intent(in),		value	::	heavywater	Flag if D2O (1) is used or H2O(0).

Return Value type(c_ptr)

Available gases.

public pure function capi_ngases(heavywater) result(n) bind(C, name="iapws_g704_ngases"))

Returns the number of gases.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_int),	intent(in),		value	::	heavywater	Flag if D2O (1) is used or H2O(0).

Return Value integer(kind=c_int)

Number of gases.

Subroutines

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.

public subroutine capi_kh(T, gas, heavywater, k, size_gas, size_T) bind(C,name="iapws_g704_kh")

Compute the henry 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)	Henry 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.