pack_bits Function

public function pack_bits(z) result(x)

Reverse the split function. I.e go from 0a0b0c0d to abcd Adapted from archer2 cpp course

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int64),	intent(in)			::	z	Input interleaved integer

Return Value integer(kind=int64)