rand_int32 Subroutine

  1. korc_rnd_numbers.f90
  2. korc_rnd_numbers
  3. rand_int32

private subroutine rand_int32(irand32)

Arguments

Type IntentOptional AttributesName
integer(kind=4), intent(out) :: irand32

Calls

proc~~rand_int32~~CallsGraph proc~rand_int32 rand_int32 proc~rand_int64 rand_int64 proc~rand_int32->proc~rand_int64

Called by

proc~~rand_int32~~CalledByGraph proc~rand_int32 rand_int32 interface~u_random u_random interface~u_random->proc~rand_int32

Contents

Source Code

rand_int32

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