Compute the exponent used in the alpha function.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=I_P), | intent(in) | :: | S | Number of stencils used. |
Exponent used in the alpha function.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
pure function weno_exp(S) result(w_exp)
!< Compute the exponent used in the alpha function.
integer(I_P), intent(in) :: S !< Number of stencils used.
integer(I_P) :: w_exp !< Exponent used in the alpha function.
w_exp = int(S, I_P)
endfunction weno_exp