rand_int32 Subroutine

private subroutine rand_int32(irand32)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4),	intent(out)			::	irand32

Contents

Source Code

Source Code

subroutine rand_int32(irand32)
	INTEGER(4), INTENT(OUT)    :: irand32
	INTEGER(8)                 :: irand64

	call rand_int64(irand64)

	irand32 = INT(irand64,4)
end subroutine rand_int32