cuda fortran 生成随机数

     文章主要讲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

     这样就可以生成随机数了