parquet_debug_random_block Subroutine

public pure subroutine parquet_debug_random_block(key, stream, index, w0, w1, w2, w3)

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: key

64-bit key: key words 0 and 1, low half first
integer(kind=int64), intent(in) :: stream

splits into counter words 2 and 3
integer(kind=int64), intent(in) :: index

0-based block index: counter words 0 and 1
integer(kind=int64), intent(out) :: w0

output word c0
integer(kind=int64), intent(out) :: w1

output word c1
integer(kind=int64), intent(out) :: w2

output word c2
integer(kind=int64), intent(out) :: w3

output word c3

Source Code

    pure subroutine parquet_debug_random_block(key, stream, index, w0, w1, w2, w3)
        integer(int64), intent(in) :: key           !! 64-bit key: key words 0 and 1, low half first
        integer(int64), intent(in) :: stream        !! splits into counter words 2 and 3
        integer(int64), intent(in) :: index         !! 0-based block index: counter words 0 and 1
        integer(int64), intent(out) :: w0           !! output word `c0`
        integer(int64), intent(out) :: w1           !! output word `c1`
        integer(int64), intent(out) :: w2           !! output word `c2`
        integer(int64), intent(out) :: w3           !! output word `c3`
        call random_block(key, stream, index, w0, w1, w2, w3)
    end subroutine parquet_debug_random_block