error_function Function

public function error_function(argument) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	argument

Return Value real(kind=dp)

Source Code

    function error_function(argument) result(res)

        real(dp), intent(in) :: argument
        real(dp) :: res

        res = erf_local(real(argument, c_double))

    end function error_function