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.
Compute the temperature t from the pressure p and the density rho by equation of state. Essentially,
. Equation of state may take other forms, such as , ,
. Choose wisely which form to use.
(KCW, 2025-07-10)
Arguments
Type
Intent
Optional
Attributes
Name
real(kind=real64),
intent(in)
::
constant_r
real(kind=real64),
intent(in)
::
p
real(kind=real64),
intent(in)
::
rho
Return Value
real(kind=real64)
Source Code
pure elemental function t_by_equation_of_state(constant_r,p,rho)result(t)use,intrinsic::iso_fortran_env,only:real64real(real64),intent(in)::constant_r,p,rhoreal(real64)::tt=p/(rho*constant_r)end function t_by_equation_of_state