文章主要講fortran在gpu端生成隨機數。
首先，調用庫函數 cublas_device
其次，聲明四個變量
type(curandStateXORWOW) :: h
integer(8) :: seed, seq, offset
最後，調用函數
call curand_init(seed, seq, offset, h)
random = curand_uniform(h)
random爲（0，1）之間的實數
最最後，編譯的時候 需要在在編譯指令裏添加 -Mcudalib=curand
這樣就可以生成隨機數了