main Program

Uses

Functions

function myfunc(x) result(ret)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: x

Return Value real(kind=real64)

function my_vec_func(x) result(ret)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: x(:)

Return Value real(kind=real64), allocatable, (:)