ran2 Function

public function ran2() result(res)

wrapper for call random number

Arguments

None

Return Value real(kind=wp)

Source Code

        function ran2() result(res)
        !! wrapper for call random number

            real(kind=wp) :: res

            call random_number(res)

        end function ran2