entropy_func_Model Function

public pure function entropy_func_Model(this, s) result(e)

Arguments

TypeIntentOptionalAttributesName
class(Model), intent(in) :: this
real(kind=prec), intent(in) :: s(1:this%nvar)

Return Value real(kind=prec)


Contents

Source Code


Source Code

  pure function entropy_func_Model(this,s) result(e)
    class(Model),intent(in) :: this
    real(prec),intent(in) :: s(1:this%nvar)
    real(prec) :: e

    e = 0.0_prec

  endfunction entropy_func_Model